Discussion :

[bobigimi]

Bonjour,

Je cherche à coder dans un UserForm:
Copier la dernière ligne non vide de mon tableau et la recopier sur la dernière ligne vide.

Je souhaite 2 CommandButton pour valider mon formulaire:

. 1 qui enregistre mes données et ferme le formulaire (le code fonctionne)
. L'autre doit faire la même chose mais en relancant le formulaire tout en recopiant les données de la dernière ligne du tableau renseignée sur la dernière ligne vide

J'ai essayé plusieurs code mais rien ne fonctionne

Voici un des codes:



Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).Rows.Copy Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).Row + 1


Est ce que quelqu'un aurait une solution a me proposer?
Je suis nouveau sur le site et en programmation VBA, je ne suis pas sûr d'être très clair

[Menhir]

Remplace

Code :

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

Row + 1

par

Code :

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

Offset(-3, 1)

[bobigimi]

Je remplace Row + 1 par Offset (-3,1) de cette façon?

Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).Rows.Copy Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).Offset(-3, 1)

9a ne fonctionne pas, j'ai un messaage: Erreur d'exécution '1004':
erreur définie par l'application ou par l'objet.

Qu'est ce que ça veut dire?

[Theze]

Bonjour,

Il te faut inverser les deux paramètres dans Offset(Ligne, Colonne) et mettre EntireRow puisque c'est la ligne complète que tu veux copier dans la première instruction :

Code :

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

1
2
 
Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).EntireRow.Copy Sheets("Fournitures").Cells(Rows.Count, 4).End(xlUp).Offset(1, -3)

[bobigimi]

J'ai fais la modif comme tu me l'as expliqué et ça marche.
Merci beaucoup!!!!!

En plus tu m'as apris un nouveau mot de codage "EntireRow" qui me sera bien pratique.

Encore Merici