Je copiais mes écritures bancaires (LCL) à la main et je les formatais pour coïncider avec ma feuille Excel de relevé de compte
Plutôt de le faire à la main à chaque fois j ai écris une macro Excel qui le fais automatiquement (CTRL-Q).
Source / Exemple :
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
Conclusion :
Si cela peut servir à quelqu un.
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.