1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Vba excel fonction pour formater des ecritures bancaires

Vba excel fonction pour formater des ecritures bancaires

0/5 (3 avis)

Snippet vu 7 167 fois - Téléchargée 19 fois

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

Ajouter un commentaire Commentaires
fredatcs
Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010
7 janv. 2009 à 18:23
je ne comprends pas ta question MahMoud
peut tu me donner plus d'info ?
mahmoud1982
Messages postés
2
Date d'inscription
lundi 20 mars 2006
Statut
Membre
Dernière intervention
24 février 2009
7 janv. 2009 à 06:47
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 ....
fredatcs
Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010
31 déc. 2008 à 15:03
vos commentaires sont les bienvenus
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)