KTM
XLDnaute Impliqué
Bonjour chers amis du forum
J'utilise le code ci dessous pour copier mes données vers ma feuille "Export"
Sub cpie()
Range("C5:E37").Select
Selection.Copy
Sheets("Export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Ici ma dernière colonne non vide utilisée est la colonne "E"
Je voudrais le réécrire de sorte que ma plage a copier s’étende systématiquement a la dernière colonne non vide utilisée.
Les lignes 5 et 37 et la colonne C sont fixes
merci a tous
J'utilise le code ci dessous pour copier mes données vers ma feuille "Export"
Sub cpie()
Range("C5:E37").Select
Selection.Copy
Sheets("Export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Ici ma dernière colonne non vide utilisée est la colonne "E"
Je voudrais le réécrire de sorte que ma plage a copier s’étende systématiquement a la dernière colonne non vide utilisée.
Les lignes 5 et 37 et la colonne C sont fixes
merci a tous