utiliser la macro sur des ligne differentes

[carloutch]

bonjour
je joins mon fichier car j'ai un petit souci avec ma macro
effectivement elle fonctionne mais ne depasse pas la ligne a7.

1. ce que j'ai besoin c'est que les données introduite dans a1:a5 se collent en "transpose" mais a chaque fois dans une ligne différente a la dernière utilisée.

et la je n'ai pas suffisament de logique pour m'en sortir
Merci pour vos réponses
Carloutch

 

[JNP]

Re : utiliser la macro sur des ligne differentes

Bonjour Carloutch 🙂,
Pas sûr d'avoir compris la question 😕...

Range("A1:A5").Copy
Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Range("A1:A5").ClearContents

peut-être 🙄...
Bon dimanche 😎

 

[mécano41]

Re : utiliser la macro sur des ligne differentes

Bonjour,

Pas sûr non plus d'avoir compris...peut-être ceci ...

Cordialement

 

[JNP]

Re : utiliser la macro sur des ligne differentes

Re 🙂,
Pour info, Mécano41, Rows.Count permet de s'affranchir de la constante 2003 ou 2007 😛.
Bon dimanche 😎

 

[mécano41]

Re : utiliser la macro sur des ligne differentes

Bonjour JNP,

Exact !

...If Range("Depart").Value <> "" Then
    Set NouvDep = Range("Depart").Offset(Rows.Count - Range("Depart").Row, 0).End(xlUp).Offset(1, 0)
Else ...

C'est plus simple!

Merci.

Cordialement

 

[carloutch]

Re : utiliser la macro sur des ligne differentes

et voila c'est parfait
Un merci particulier à JPN car ta proposition tourne comme je l'ai imaginé.
Mais je n'oublie pas les autres merci a tous.
Bon dimanche
a++
Carloutch