Sélectionner une cellule suivants des choix combobox
Résolu/Fermé
A voir également:
- Me.combobox
- Excel liste déroulante de choix - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
3 août 2015 à 10:21
3 août 2015 à 10:21
Bonjour,
Voir ceci:
https://apprendreexcel.com/
Voir ceci:
https://apprendreexcel.com/
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 3/08/2015 à 11:41
Modifié par pijaku le 3/08/2015 à 11:41
Bonjour,
1-
2-
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 :
EDIT : mes salutations au Pivert.
🎼 Cordialement,
Franck 🎶
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 Longdevrait ê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.
🎼 Cordialement,
Franck 🎶
AU POIL!
Merci encore une fois Pijaku, car tu ne le sais peu être pas mais je me suis énormément servi de tes interventions sur ce site notamment pour les combobox interdépendantes. un truc de fou but I succed.
je n'hésiterais pas a repasser si besoin, Ca fais plaisir de parler avec des gens qui s'y connaissent.
Thank's again
Merci encore une fois Pijaku, car tu ne le sais peu être pas mais je me suis énormément servi de tes interventions sur ce site notamment pour les combobox interdépendantes. un truc de fou but I succed.
je n'hésiterais pas a repasser si besoin, Ca fais plaisir de parler avec des gens qui s'y connaissent.
Thank's again
3 août 2015 à 10:48