Discussion :

[fabrice2272]

Bonjour,
voila, je vais essayer de me faire comprendre mais pas facile pour un novice.
j' ai créer un logiciel qui nous permet d'établir des permis de feux à l aide de plusieurs bout de code pompé à droite à gauche, et mon soucis est que dans certain combobox, une erreur apparaît suite à des fautes de frappe message qui s' affiche est celui ci :"Erreur d'exécution '91' variable objet ou variable de bloc With non définie"
voici un exemple de code qui correspond au combobox en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox14_Change()
With Sheets("feuil3")
.Range("c36") = ComboBox14.Value
End With
With Worksheets("feuil2").Range("a80:a108")
    Set C = .Find(ComboBox14.Value, LookIn:=xlValues)
   T7 = ComboBox14.Value
   T8 = C.Offset(0, 1)
   T9 = C.Offset(0, 2)
End With
End Sub

puis cela me plante tout. quelqu'un aurait il une idée voir même mieux une solution pour y remédier merci d' avance.
Bonne journée à tous

[joe.levrai]

Bonjour,

Find renvoie un objet range matérialisant la première cellule trouvée
Si Find ne trouve rien, alors la variable C vaut Nothing, et tu ne peux pas l'utiliser

il faut TOUJOURS tester le retour de C avant d'agir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set C = .Find(ComboBox14.Value, LookIn:=xlValues)
If Not C Is Nothing Then
    T7 = ComboBox14.Value
    T8 = C.Offset(0, 1)
    T9 = C.Offset(0, 2)
Else
    Msgbox "Correspondance non trouvée"
End if

[fabrice2272]

Bonjour,
Merci beaucoup pour votre réponse avec cela plus de pépin cela fonctionne.
Bon week end et merci encore