Discussion :

[rihab92]

Bonjour tout le monde ,

SVP, si vous pouvez m'aider

Je veux copier la colonne des noms des zones dans la Feuil 1("A6:A") et les coller dans la feuille 2("A6:A")

En fait la colonne de la feuil1 est toujours modifiable , on pourra ajouter , supprimer ou changer de nom

Cette macro traite le cas de changer de nom à travers un serform Combobox ( ancien nom) et textBox (nouveau nom )

je veux une macro qui, après avoir effectué les changements sur la colonne de la Feuil1 (changer des noms existants) de copier cette colonne et la coller dans la feuil2

Rque: Feuil1 : AuditMensuel
Feuil2 : Responsable

Ce code est inséré dans une macro que j'ai appelé dans commandbutton (bouton ok de userform) et il est erroné dans la partie copy and paste

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Worksheets("AuditMensuel").Activate
For V = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(V, 1) = UserForm5.ComboBox1.Value Then Cells(V, 1) = UserForm5.TextBox2.Value
Next V
 
Sheets("AuditMensuel").Range("A6:A").Copy
Sheets("Responsable").Range("A6:A").PasteSpecial xlPasteValues

Aidez moi SVP

[gnain]

Bonjour,

Code :

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

1
2
3
 
Sheets("AuditMensuel").Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=Sheets("Responsable").Range("A6")