Vba excel fonction pour formater des ecritures bancaires

Commenter

Contenu du snippet

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.

A voir également

S'inscrire maintenant

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.

Du même auteur (fredatcs)