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).
Si cela peut servir à quelqu un.
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
- Vba excel fonction pour formater des ecritures bancaires
- Visual Basic / VB.NET : Vba excel : fonction round pour compatibilité excel 97 - CodeS Source - Guide
- Vba excel fonction pour déterminer la dernière ligne d'une colonne ou plusieurs - Codes sources - Visual Basic / VB.NET (VBA)
- [VBA Excel] Problème de syntaxe pour écriture de moyenne ✓ - Forum - Visual Basic 6
- Pb VBA Excel fonction cells help svp ✓ - Forum - VB.NET
- VBA Excel Fonction de LookUp en VBA? ✓ - Forum - Visual Basic 6
Commentaires
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.