Sélectionner une cellule suivants des choix combobox Résolu

Question

Bonjour, le forum

Ayant déjà poser une question sur ce forum et très satisfait de la réponse qui m'a été donnée, je reviens vers vous pour un tout autre problème.

Aujourd'hui mon probleme est le suivant :

J'ai 3 combobox, dans celles-ci je choisis : mon atelier, ma machine et, mon outil. 

Maintenant j'aimerais sélectionner une case sur la même ligne que celle qui contiens les 3 critères sélectionnés (une seul cellule possible)

Alors je me suis amusé à essayer et je touche au but je pense mais j'ai toujours des soucis, voici ce que j'ai déjà fait :

Private Sub CommandButton1_Click()
 
Dim i As Range, f As Worksheet

Set f = Sheets("Outils coupants tournants")
  
    For Each i In f.Rows
     If Cells([B,i].Value) = UsfToolMoveOCT.ComboBox1.Value And Cells([C,i].Value) = UsfToolMoveOCT.ComboBox1.Value And Cells([E,i].Value) = UsfToolMoveOCT.ComboBox3.Value Then
     Cells([F,i]).Select
     End If
       Next i

End Sub

PLS HELP MEEEEEE

Configuration: Windows 7 / Chrome 44.0.2403.125

cs_Le Pivert · Answer

Bonjour,

Voir ceci:

https://apprendreexcel.com/

pijaku · Answer

Bonjour,

1- Dim i As Range? Vous êtes sur? Vous bouclez sur les lignes donc bouclez sur les numéros de ligne plutôt que sur des objets Range. Dim i As Long devrait être préféré.

2- If Cells([B,i].Value) = UsfToolMoveOCT.ComboBox1.Value And Cells([C,i].Value) = UsfToolMoveOCT.ComboBox1.Value
2 fois ComboBox1???

3- .Value n'est pas nécessaire. Il s'agit, dans votre cas, des paramètres par défaut.

4- Essayez avec un bloc With qui référence votre feuille f :
Private Sub CommandButton1_Click()
Dim i As Long, f As Worksheet

Set f = Sheets("Outils coupants tournants")
With f
   For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
      If .Cells(i, 2) = UsfToolMoveOCT.ComboBox1 And .Cells(i, 3) = UsfToolMoveOCT.ComboBox2 And .Cells(i, 5) = UsfToolMoveOCT.ComboBox3 Then
         .Cells(i, 6).Select
         Exit For 'Inutile de continuer la boucle si trouvé !!!
      End If
   Next i
End With
          
End Sub 

EDIT : mes salutations au Pivert.
 
&#127932; Cordialement,
Franck &#127926;

Sélectionner une cellule suivants des choix combobox

2 réponses

Discussions similaires

Newsletters