selection cellules precises

Oranger à dit:

Bonjour,

Je te propose le code suivant à ajouter à comboBox3_Change. Il faut un peu modifier la présentation de l'onglet "Base" et suivant l'incident tu devra remplir toutes les lignes la base afin de déterminer quels étages doivent être affichés (avec des croix) mais dans l'idée ça marche 😉

Voici le code que j'ai ajouté (Regardes dans le fichier ci-joint avec la présentation à modifier ce sera plus explicite).

'on récupère le numéro de la ligne de l'incident
Var_Ligne = Application.WorksheetFunction.Match(UserForm.ComboBox3.Value, Sheets("BASE").Range("A:A"), 0)

'on vide la combobox étage
ComboBox1.Clear

'on parcours les colonnes "étages"
For i_col = 5 To 9

'si il y a une croix on ajoute l'intitulé de la ligne 2
If Sheets("BASE").Cells(Var_Ligne, i_col) = "X" Then
ComboBox1.AddItem Sheets("BASE").Cells(2, i_col)
End If


Next i_col

Bonne soirée,

Cdlt,

Oranger

Cliquez pour agrandir...