Recherche de ligne VBA

Résolu/Fermé
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 20 oct. 2009 à 11:49
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 20 oct. 2009 à 12:29
Bonjour,
Je cherche grâce à une macro à réaliser l'action suivante:

Lorsque ma userform s'affiche, et que je rentre "22" dans la textbox, la valeur de B22 s'affiche en A1, la valeur de C22 s'affiche en D6, la valeur de D22 s'affiche en G5, etc etc

Et je cherche à faire de même pour n'importe quelle valeur saisie.

exemple 2:

Textbox1=16

En A1 j'ai la valeur de B16, en D6 la valeur de C16, en G5 la valeur de D16, etc etc

quelle formule convienrait?

Merci d'avance

5 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
20 oct. 2009 à 12:19
range("A1")=range("B:" & valeurdutextbox)
etc...
0
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
20 oct. 2009 à 12:23
Bon j'ai essayé

[A1]= Range ("B:" & textbox1.value) et [A1]= Range ("B:" textbox1.value)

rien ne marche...

où est l'erreur?
0
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
20 oct. 2009 à 12:27
C'est bon.

J'ai mis

[A1]= range ("B" & textbox1.value"

Et maintenant, si je souhaite que A1 soit égale à" B Valeurtextbox + 1" que dois je faire?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
20 oct. 2009 à 12:29
???? ....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 369
20 oct. 2009 à 12:29
Solution trouvée en bidouillant.

[A1]= range("B"&textboxvalue+1)

Merci pour tout
0