Bonjour tout le monde,
J'ai essayé par moi-même de créer une macro pouvant rajouter une ligne néanmoins vus mes compétences limitées en VBA, je reste bloquer par rapport au code.
Dans le fichier ci-joint j'ai créer le code suivant :
Sub InsertLIne()
Rows("18:18").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B17:Q17").Copy
Range("B18").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J17:O17").Copy
Range("J18").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B18").Select
End Sub
Ca marche, mais il me manque du fine tuning . Les conditions que j'aimerais rajouter sont:
- que la ligne se créer au fure et a mesure qu'on en créer. ( la dans mon code, elle se créer à la ligne 18)
- copie/colle format et les formules
Il faudrait que je rajoute un code pouvant "delete" la dernière ligne entrée jusqu'à la ligne 18 (qui est ne doit pas être effacées)
Voilà.. cela fait 2 semaines que je trime pour trouver ceci sans succès, mais j'y crois toujours
Encore merci pour votre futur aide
Bien a vous
J'ai essayé par moi-même de créer une macro pouvant rajouter une ligne néanmoins vus mes compétences limitées en VBA, je reste bloquer par rapport au code.
Dans le fichier ci-joint j'ai créer le code suivant :
Sub InsertLIne()
Rows("18:18").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B17:Q17").Copy
Range("B18").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J17:O17").Copy
Range("J18").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B18").Select
End Sub
Ca marche, mais il me manque du fine tuning . Les conditions que j'aimerais rajouter sont:
- que la ligne se créer au fure et a mesure qu'on en créer. ( la dans mon code, elle se créer à la ligne 18)
- copie/colle format et les formules
Il faudrait que je rajoute un code pouvant "delete" la dernière ligne entrée jusqu'à la ligne 18 (qui est ne doit pas être effacées)
Voilà.. cela fait 2 semaines que je trime pour trouver ceci sans succès, mais j'y crois toujours
Encore merci pour votre futur aide
Bien a vous