Recherche et écriture dans un tableau

Forum pour toutes vos questions à propos d'Excel (avec ou sans macros) ...
Jess1970
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 18 août 2018, 19:45

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 :lole:

Je mets en pièce jointe le fichier.

Par avance merci.
Fichiers joints
TEST.xlsm
(13.95 Kio) Téléchargé 3 fois
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2532
Appréciations reçues : 49
Inscrit le : 4 janvier 2016
Version d'Excel : 2013 FR

Message par curulis57 » 18 août 2018, 21:10

Salut Jess,

Code : Tout sélectionner

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+
1 membre du forum aime ce message.
Jess1970
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 18 août 2018, 21:21

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.
Jess1970
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 19 août 2018, 00:34

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... :lole:

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.
Fichiers joints
TEST.xlsm
(21.58 Kio) Téléchargé 2 fois
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2532
Appréciations reçues : 49
Inscrit le : 4 janvier 2016
Version d'Excel : 2013 FR

Message par curulis57 » 19 août 2018, 01:30

Salut Jess,

Code : Tout sélectionner

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
8-)
A+ pour la quatrième donnée!? :lol:
1 membre du forum aime ce message.
Jess1970
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 19 août 2018, 09:06

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 +
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message