Vba excel fonction pour formater des ecritures bancaires

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 812 fois - Téléchargée 17 fois

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

Ajouter un commentaire

Commentaires

Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010

je ne comprends pas ta question MahMoud
peut tu me donner plus d'info ?
Messages postés
2
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
24 février 2009

j'ai un probleme de translation de fichier .XLS dans me data base ...si il y a de souces code a VB simple de translation ....
Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010

vos commentaires sont les bienvenus

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.