Discussion :

[damiendu33510]

BONJOUR

Je voudrais comprendre pourquoi cela ne fonctionne pas.

Premier point fonctionnel quand le rentre la fonction ci-dessous cela fonctionne mais copie et écrase à chaque fois les valeurs je comprends pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub rangecopy()
 
Workbooks("devis_vierge.xlsm").Sheets("Renseignement").Range("D12").Copy Workbooks("base_de_donner.xlsx").Worksheets("Client").Range("C3")
 
End Sub

Maintenant je voudrais que cela colle la valeur et saute une ligne pour la prochaine valeur à coller dans le classeur base de données.
J'ai fais comme cela mais je ne comprends pas la démarche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub rangecopy()
 
Dim n As Long
 
       n = Worksheets("Client").Cells(Rows.Count, "C").End(xlUp).Row + 1
 
 
Workbooks("devis_vierge.xlsm").Sheets("Renseignement").Range("D12").Copy Workbooks("base_de_donner.xlsx").Worksheets("Client").Range("C3" & n)
 
End Sub

Pourriez-vous m'aider merci

[Philippe Tulliez]

Bonjour,
Dans la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

n = Worksheets("Client").Cells(Rows.Count, "C").End(xlUp).Row + 1

il manque le parent de la feuille soit Workbooks("base_de_donner.xlsx") et si celui ci n'est pas actif, le programme renverra une erreur 1004

Cette instruction est l'équivalent du raccourci clavier Ctrl+ flèche haut en partant de la cellule C1048576 si nous travaillons avec un classeur xlsx ou xlsm ou encore xlsb et en ayant bien entendu une version supérieure à 2003
La variable n prendra alors comme valeur le numéro de la première ligne remplie + 1 (en partant de la dernière cellule du bas de la feuille)