Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 879 fois - Téléchargée 17 fois
Sub LCL() ' ' LCL Macro ' Macro enregistrée le 31/12/2008 ' ' Touche de raccourci du clavier: Ctrl+q ' Dim i, j As Integer Dim NombreDeCellule As Integer Dim CelluleTrouvee As Boolean CelluleTrouvee = False For i = 1 To 100 If Range("A" & i).Text = "" Then ', "A" & i If CelluleTrouvee = False Then CelluleTrouvee = True NombreDeCellule = i End If End If Next i 'MsgBox ("cellule vide = " & NombreDeCellule) ' 10 'MsgBox ("range" & Range("a10", "a10").Text & "fin") If NombreDeCellule <= 2 Then MsgBox ("vous avez moins de deux lignes donc la macro ne fonctionne pas") j = 0 For i = NombreDeCellule - 1 To 1 Step -1 Range("A" & i & ":D" & i).Select Selection.Cut j = j + 1 Range("A" & NombreDeCellule + j).Select ActiveSheet.Paste Next i Range("B:B").Select ' on sélectionne toute la colonne B c'est plus simple que de calculer la sélection copiée Selection.Cut Range("F:F").Select ' F9 ActiveSheet.Paste Columns("B:B").Select Selection.Delete Shift:=xlToLeft Range("A" & NombreDeCellule + 1 & ":E" & (2 * NombreDeCellule) - 1).Select Selection.Copy MsgBox ("Sélection formatée et copiée dans le presse-papier") End Sub
peut tu me donner plus d'info ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.