Recherche et écriture dans un tableau

Bonjour à vous tous, Dieu du VBA.

Voilà, j'ai une question et j'espère enfin trouver ma réponse après avoir cherché dans plusieurs forum.

J'ai un UserForm avec deux ComboBox et un TextBox. Selon mes données de la ComboBox 1 et 2, je voudrais écrire le texte de ma TextBox dans la cellule cible.

Par Exemple selon mon fichier joint.

Si ComboBox1 = "B" et ComboBox2 = "3" Alors Cellule "C5" = TextBox1

Mais attention, je ne veux pas indiquer sur le programme comme ça:

If ComboBox1 = "B" And ComboBox2 = "3" Then Range "C5" = TextBox1

Je veux qu'il y ai une recherche dans le tableau pour trouver la cellule et y écrire le texte de la TextBox

J'espère être assez clair

Je mets en pièce jointe le fichier.

Par avance merci.

6test.xlsm (13.95 Ko)

Salut Jess,

Private Sub TextBox1_Change()
'
Range(Me.ComboBox1.Text & Val(Me.ComboBox2.Text)).Offset(2, 1).Value = Me.TextBox1.Text
'
End Sub

Ne convient qu'au tableau donné en exemple, bien sûr!

A+

Salut curulis57,

C'est extraordinaire... 2 semaines que je fais des recherches, et là en 1 heure j'ai eu ma réponse.

Il est clair que ce code ne convient qu'a ma demande. Il ne me reste plus qu'a l’adapter selon mon besoin précis

Encore mille merci pour ton aide.

Re,

Bon, ben j'ai répondu trop vite à curulis57.

En fait, je pensais pouvoir transformer son code pour que ça joue pour ce que je veux en faire, mais d'après mes petites connaissances en VBA je n'y arrive pas...

J'ai pu modifier selon ce que je connais en VBA, mais y'a t'il possibilité de faire la même chose que dans ma première demande, mais avec 3 données ?

ComboBox1 = "A"; ComboBox2 = "4"; ComboBox3 = "y" = C12. Donc ce que j'écris dans ma TextBox, ça s'écrit dans la cellule C12

Voir mon fichier joint. Feuille 2. UserForm2

Merci d'avance.

8test.xlsm (21.58 Ko)

Salut Jess,

Private Sub TextBox1_Change()
'
Sheets("Feuil2").Range(Me.ComboBox1.Text & 1).Offset(((Val(Me.ComboBox2.Text) - 1) * 3) + (Asc(UCase(Me.ComboBox3.Text)) - 87), 2).Value = Me.TextBox1.Text
'
End Sub

A+ pour la quatrième donnée!?

Eh ben dis donc... quand on dis qu'on peut tout faire avec du VBA c'est vrai...

Merci pour ton aide, ça marche impec !! Et non, cette fois si c'est la bonne.

A +

Rechercher des sujets similaires à "recherche ecriture tableau"