Erreur d’exécution "13"

Bonjour le Forum.

J'ai récupéré un classeur sur la toile pour afficher et modifier mes cellules par Userform . Après l'avoir adapté à mes besoins, celui ci fonctionnait bien. (Une feuille pour ce classeur).

En l'intégrant dans mon projet final, (contenant plusieurs feuilles), 2 problèmes sont apparus :

• Un message : Erreur d’exécution "13" : incompatibilité de type
• le second, peut-être lié, la sélection de la feuille "Visites" pour travailler dessus.

Merci pour l'aide apportée.

Licaon

Bonjour,

A quoi correspond ou doit correspondre [colonneA] ?

Private Sub UserForm_Initialize()

    Set Mondico = CreateObject("scripting.dictionary")
    For Each c In [colonneA]
        If Not Mondico.exists(c.Value) Then Mondico.Add c.Value, c.Value
    Next c
    Me.ComboBox1.List = Mondico.items

End Sub

Bonjour Jean-Eric.

A vrai dire, de part le code, je ne sais pas.

En fait, je pensais que cela alimentait mon combobox1 pour sélectionner les lignes que je désire afficher et modifier.

Licaon.

Bonjour

je voie dur dur

a voir si tu comprent ?

Dim Nlig&, C&

Private Sub UserForm_Initialize()
Sheets("Ville1").Select
      ComboBox1.List = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_Change()
' Lecture
If ComboBox1.ListIndex = -1 Then Exit Sub
Nlig = ComboBox1.ListIndex + 2
    For C = 1 To 30
        Controls("TextBox" & C).Value = Cells(Nlig, C + 1).Value
    Next
End Sub

Private Sub CommandButton1_Click()
'Modifications
Nlig = ComboBox1.ListIndex + 2
    For C = 1 To 30
        Select Case C
            Case 4, 7, 10, 16
                Cells(Nlig, C + 1).Value = CDate(Controls("TextBox" & C).Value)
            Case Else
                Cells(Nlig, C + 1).Value = Controls("TextBox" & C).Value
        End Select
    Next
End Sub

A+

Maurice

Bonjour,

ci-jointe correction

Accueil et non Acceuil

Bonjour à tous.

@ thev : désolé pour la faute d'orthographe, cela m'arrive souvent de mal placer le U dans ce mot.

Sinon, ton aide m'a bien dépanné.

Merci à toi et aux autres contributeurs pour les solutions proposées.

Cordialement.

Licaon