copie de cellules via 1 USF

[LP]

Bonjour

Voilà un autre problème qui me trotte dans la tête :

Je cherche à copier 4 valeurs alignées horizontalement dans un tableau d’une feuille 1 dans 4 cellules d’une feuille 2 via un userform contenant une textbox uniquement. Cette textbox contenant la valeur à rechercher dans la feuille 1.

La recherche de la valeur de la texbox ne me pose pas de soucis.

Le problème réside dans le fait que je n’arrive pas à copier les valeurs correspondantes à la valeur recherchées (ainsi que cette valeur) sur la 2ième feuille.

Merci pour votre aide !!

 

[Ronan Quennec]

Si tes 4 valeurs se trouvent en a1 b1 c1 d1
Il faut également que ta recherche selectionne une des cellules de la ligne concernée

dim valeur(3)
ligne=activecell.row
colonne=1
a=0
do until sheets("feuil1").cells(ligne,colonne)=""
valeur(a)=sheets("feuil1").cells(ligne,colonne).value
a=a+1
colonne=colonne+1
loop
sheets("feuil2").range("a1:d1").value=valeur