Bonjour le forum,
Voici ma macro, trouvée à partir de l'enregistreur auto de macro. Initialement elle fonctionne, mais dès que je modifie la ligne verte, car B12 est variable et dépend de "DernLigne", cela provoque l'erreur 1004 La méthode range de l'objet _global a échoué...
Pourriez-vous m'indiquer quoi faire pour que cela fonctionne?
Merci pour votre aide!
Voici ma macro, trouvée à partir de l'enregistreur auto de macro. Initialement elle fonctionne, mais dès que je modifie la ligne verte, car B12 est variable et dépend de "DernLigne", cela provoque l'erreur 1004 La méthode range de l'objet _global a échoué...
Pourriez-vous m'indiquer quoi faire pour que cela fonctionne?
Merci pour votre aide!
Code:
Sub copier_voka()
'
' copier_voka Macro
' Copier données de la voka vers modèle pdf
'
' Touche de raccourci du clavier: Ctrl+Maj+Y
'
With Worksheets("Tabelle1")
Dim DernLigne As Variant
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Cpt = Application.CountA(Range("A:A"))
Worksheets("+ total").Cells(7, 1).EntireRow.Resize(rowsize:=Cpt).Insert Shift:=xlDown
[COLOR="#00FF00"]Range("B9:B&DernLigne").Select[/COLOR]
Selection.Copy
Sheets("+ total").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("C9:C&DernLigne").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub