Macro qui permet d'insérer une ligne
Bonjour,
Salut les amis, j'espère que vous allez bien en ces temps compliqué.
Je m'étais déjà adressé à vous pour des macro afin de pouvoir faire de la saisie automatique et deux personnes m'ont aidé à la faire (il me l'ont faite en entier je ne maitrise pas les Macros). Merci à @Ergotamine et @3GB.
J'aimerais dans le mesure du possible vous demander votre aide pour la création d'une macro me permettant de créer une ligne en mettant le automatiquement 5120000 et en remplissant les case débit ou crédit, libelle et date en fonction de la ligne de départ.
J'ai essayer une macro avec "enregistre une macro" mais cela fonctionne que pour les première ligne.
Je met en PJ un Excel avec deux onglets, ce que j'ai et ce que j'aimerais avoir c'est beaucoup plus simple a comprendre en regardant l'Excel.
Sur l'Excel j'ai mis une infime partie, en réalité j'ai des milliers de lignes a traité.
Merci par avance.
Pour le code journal sur ce que j'ai il y a "BP" et ce que je veux "CM". je me suis juste tromper sur ce que j'ai, j'ai bien CM. Il n'est pas impératif que le code journal sois dans la macro.
Bonjour plati69000, le forum,
Un essai.....de ce que j'ai compris...
Option Explicit
Dim dl%, i%
Sub insertion_ligne()
Application.ScreenUpdating = False
With Sheets("Ce que j'ai")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = dl To 2 Step -1
.Rows(i + 1).Resize(1).Insert
.Range("A" & i + 1) = .Range("A" & i)
.Range("B" & i + 1) = .Range("B" & i)
.Range("C" & i + 1) = IIf(.Range("C" & i) = 0, .Range("D" & i), 0)
.Range("D" & i + 1) = IIf(.Range("D" & i) = 0, .Range("C" & i), 0)
.Range("E" & i + 1) = 51200000
.Range("F" & i & ":F" & i + 1) = "CM"
Next i
End With
End SubCTRL + e pour exécuter la macro...
Cordialement,
J'essaie sa dans 5 min et je vous tiens au courant 1000 MERCIII
il me semble que sa marche, je vais essayer ce soir avec des plus de lignes et je vous tiens au courant
elle marche parfaitement merci infiniment !!!!!!!!!!