Microsoft 365 VBA Copier / Coller Valeur sur une autre feuille, dernière ligne vide

[Sylvain29]

Bonjour,

Suite à de nombreuses recherches sur différents forums, je ne parviens pas à réaliser ma macro.
Je débute dans le codage VBA.
Je souhaite copier des données sur une feuille "Devis" non disposées sur une même ligne mais dans différentes cellules sur la feuille.
Puis coller leurs valeurs sur une autre feuille "suivi" sur une même ligne dans un tableau.
Je souhaite que ce collage se mette à la suite des lignes précédemment complété par cette procédure.
Je parviens à copier/coller ces valeurs sur la première ligne du tableau, mais mes différents essais pour compléter la dernière ligne disponible reste infructueux.

Voici ma macro :

Sub ajout_suivi_geste_co()

'Copie numéro de compte
Range("B13").Select
Selection.Copy
Sheets("Suivi Budget geste CO").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Copie date mois
Sheets("Devis Clients").Select
Range("B14").Select
Selection.Copy
Sheets("Suivi Budget geste CO").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'copie nom client
Sheets("Devis Clients").Select
Range("C12").Select
Selection.Copy
Sheets("Suivi Budget geste CO").Select
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'copie quanti et prix
Sheets("Devis Clients").Select
Range("G25:H25").Select
Selection.Copy
Sheets("Suivi Budget geste CO").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'copie référence
Sheets("Devis Clients").Select
Range("A25").Select
Selection.Copy
Sheets("Suivi Budget geste CO").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End Sub


Bien à vous.
Sylvain

 

[Sylvain29]

Mille mercis Job75,

c'est plus que parfait ! c'est même du génie ! ça fonctionne parfaitement.

Bien à toi

Sylvain29

 

[job75]

Il y avait des imperfections dans le cas où n = 0, j'ai corrigé le post #15 et le fichier.

 

[Sylvain29]

Job75,

encore moi...
J'ai intégré la macro à mon document (confidentiel).
Mais j'ai omis de te dire qu'en dessous de la ligne 60 j'ai des cellules que je ne souhaite pas copier.
Comment puis-je réduire la plage de données à copier? La limiter à la ligne 60.

Je te remercie encore une fois.

 

[job75]

Remplacer If tablo(i, 1) <> "" Then par If tablo(i, 1) <> "" And i < 61 Then

 

[Sylvain29]

Ça tourne comme une horloge.
Un grand merci à toi. Merci pour ton temps, merci pour ta réactivité, merci pour cette précieuse aide.
Et un petit dernier merci pour la route!
Bien à toi
Sylvain

 

[job75]

En fait s'il y a des milliers de lignes sous la ligne 60 ça prendra du temps.

Il vaut mieux ajouter une ligne comme ceci :

For i = 25 To UBound(tablo)
    If i > 60 Then Exit For 'arrête la boucle
    If tablo(i, 1) <> "" Then

 

[job75]

Bon voici la solution la plus simple :

For i = 25 To IIf(UBound(tablo) > 60, 60, UBound(tablo))
    If tablo(i, 1) <> "" Then