Chercher par deux ComboBox dans USF

[chaelie2015]

Bonjour Forum
je souhaite alimenter le tableau (Q-AE) par USF3.
1.je sélectionne un Numéro par ComboBox (nommé chercher) après je sélectionne un nom(destinataire) par 2eme Combobox1 en suite je fait la recherche de la cellule : dans le tableau (Q-AE) et je mets X
exemple :
ComboBox(chercher) =3
ComboBox1=c
alors je mets X dans la cellule 1er cellule de la colonne U6
ensuite je sélectionne originale ou copie par optionbutton et je le mets devant la cellule trouvée (dans notre exemple V6).
merci par avance.

 

[Robert]

Bonsoir Chaelie (et bravo pour hier !...), bonsoir le forum,

Essaie ça :

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Integer

LI = Me.chercher.ListIndex + 4
COL = Me.ComboBox1.ListIndex * 2 + 17
Worksheets("Base de Données").Cells(LI, COL).Value = "X"
End Sub

 

[chaelie2015]

Bonsoir Chaelie (et bravo pour hier !...), bonsoir le forum,

Essaie ça :

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Integer

LI = Me.chercher.ListIndex + 4
COL = Me.ComboBox1.ListIndex * 2 + 17
Worksheets("Base de Données").Cells(LI, COL).Value = "X"
End Sub

Bonjour Robert
Merci a toi aussi pour la réponse (1ere partie)
et la 2eme partie est ce qu'elle claire ?
a+

 

[Robert]

Re,

la 2eme partie est ce qu'elle claire ?

Pas compris...

 

[chaelie2015]

Re,



Pas compris...

...............
ensuite je sélectionne originale ou copie par optionbutton et je le mets devant la cellule trouvée (dans notre exemple V6).
merci par avance.

 

[chaelie2015]

Bonjour Forum
est ce que je peux avoir votre sollicitation pour résoudre le reste de mou souci?
merci par avance

 

[chaelie2015]

Bonjour Forum
est ce que je peux avoir votre sollicitation pour résoudre le reste de mou souci?
merci par avance

 

[Robert]

Re,

Désolé mais peu disponible en ce moment.
Alors d'abord, soit tu changes en G2 de l'onglet listes, soit tu changes la Caption de l'OptionButton1 pour que ce soit cohérent (Originale ou Original). Ensuite le code :

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Integer

LI = Me.chercher.ListIndex + 4
COL = Me.ComboBox1.ListIndex * 2 + 17
Worksheets("Base de Données").Cells(LI, COL).Value = "X"
Worksheets("Base de Données").Cells(LI, COL + 1).Value = IIf(Me.OptionButton1.Value = True, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
Unload Me
End Sub

 

[chaelie2015]

Re,

Désolé mais peu disponible en ce moment.
Alors d'abord, soit tu changes en G2 de l'onglet listes, soit tu changes la Caption de l'OptionButton1 pour que ce soit cohérent (Originale ou Original). Ensuite le code :

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Integer

LI = Me.chercher.ListIndex + 4
COL = Me.ComboBox1.ListIndex * 2 + 17
Worksheets("Base de Données").Cells(LI, COL).Value = "X"
Worksheets("Base de Données").Cells(LI, COL + 1).Value = IIf(Me.OptionButton1.Value = True, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
Unload Me
End Sub

Bonjour Robert
Merci pour les réponse, c'est parfait.
mon souci est résolut
a+