Impossible de definir propriete value

Bonsoir

un formulaire de saisie avec les 3 premières combobox en cascade mais j'ai un message quand je sélectionne a la 2eme combo

"impossible de definir la proprité value" et le débogage cible la combobox 4. j'ai besoin d'un petit coup de pouce

merci a vous

Bonjour,

Voir si ça peut convenir ...

Dans la macro : Combobox3_Change ... sous la ligne DIM I ... ajoute On error Resume Next

Gelinotte

Bonsoir et merci

oui cela fonctionne par contre a la combobox2 les autres combo se charge apparemment avec la dernière saisie

Bonjour,

erreur de ma part, je reviens.

Gelinotte

Bonjour,

Essai comme ceci, ça devrait fonctionner ....

Par contre, il y a très peu lignes qui ont des infos.

Seule : A07 RDC 7 GESTION PATRIMOINE a des infos complètes.

Private Sub ComboBox3_Change()
Dim I, derligne As Long

With Sheets("SPSI")
   derligne = .Range("C" & Rows.Count).End(xlUp).Row
   For I = 2 To derligne
      If .Range("C" & I) = ComboBox3.Value Then
         Me.TextBox1 = .Range("D" & I).Value
         Me.TextBox2 = .Range("N" & I).Value
         Me.ComboBox4 = .Range("E" & I).Value
         Me.ComboBox5 = .Range("F" & I).Value
         Me.ComboBox6 = .Range("G" & I).Value
         Me.ComboBox7 = .Range("H" & I).Value
         Me.ComboBox8 = .Range("I" & I).Value
         Me.ComboBox9 = .Range("J" & I).Value
         Me.ComboBox10 = .Range("K" & I).Value
         Me.ComboBox11 = .Range("L" & I).Value
         Me.ComboBox12 = .Range("M" & I).Value
         I = derligne
      Else
         Me.TextBox1.Value = ""
      End If
    Next I
End With
End Sub

Gelinotte

Merci gelinotte

normal pour les lignes vides je testé sur 1 seul ligne

bonne journée