Userform de récuperation

tactic6 · 19 Septembre 2010

Bonjour tout le monde
j'essaie sans résultats de créer un userform qui affiche les colonnes
A B C D G IP de la feuil1 et qui quand on clic sur un bouton, après avoir sélectionné la ligne voulue, recopie toutes les vers la feuil34
Quelqu'un pourrait m'aiguiller sur la bonne voie ?
Cordialement
Merci

Robert · 19 Septembre 2010

Re : Userform de récuperation

Bonsoir le fil, bonsoir le forum,

Abtony, il faudrait définir la plage contenant toutes les cellules renseignées dans l'onglet SAISIE.

Code:

With Sheets("SAISIE")
     set pl = Application.Union(.Range(la_cellule1), .Range(la_cellule2), ...etc..., .Range(la_cellulex))
End With

ensuite définir une cellule de destination dans l'onglet Feuil1 :

Code:

Set dest = Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)

et pour finir un boucle du style :

Code:

x = 0
For Each cel in pl
     dest.Offset(0, x).Value = cel.Value
     x = x + 1
Next Cel

abtony · 19 Septembre 2010

Re : Userform de récuperation

Bonsoir Robert,

Merci infiniment pour ces explications.

Je vais essayer tout ça.

Bonne soirée

Userform de récuperation

tactic6

XLDnaute Impliqué

Pièces jointes

Robert

XLDnaute Barbatruc

abtony

XLDnaute Impliqué

Discussions similaires

Userform de récuperation

tactic6

XLDnaute Impliqué

Pièces jointes

Robert

XLDnaute Barbatruc

abtony

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency