Erreur d'execution 13

Bonjour,

J'ai récupérer une GMAO sur le site dont voici le lien : Le lien : https://forum.excel-pratique.com/applications/logiciel-de-maintenance-gmao-maj-31-01-16-37745 de scorpioRG

Il y avait des erreurs que j'ai réussis à résoudre mais je bloque sur une erreur d'exécution '13' incompatibilité de type. Cette erreur arrive quand on clique sur le bouton Ajout du carré Préventif.

Pourriez-vous me venir en aide mais surtout m'expliquer a quoi cette erreur est dû ?

MDP admin : GMAO

MDP pour VBA : 13081988PINOTMIKHAIL

Bonjour Steph,

L'erreur se situe dans la création de "list1" comme elle est vide ça ne va pas

Il faut donc insérer un test du nombre d'items existants

   If Feuil4.Cells(7, 2).Value = 3 Then
    UsfPreventif.TxtIntervenant.Style = fmStyleDropDownCombo
        Set list1 = CreateObject("Scripting.Dictionary")
        With Feuil3
            For Each cell In .Range("E5:E" & .[E20000].End(xlUp).Row)
                If cell.Value <> "" Then
                  list1.Item(cell.Value) = cell.Value
                End If
            Next cell
            UsfPreventif.TxtIntervenant.Clear
            If list1.Count > 1 Then
              UsfPreventif.TxtIntervenant.List = Application.Transpose(list1.items)
            Else
              UsfPreventif.TxtIntervenant.List = list1.items
            End If
        End With
    End If

A+

Merci afin que je puisse faire les corrections et comprendre.

Le code VBA fourni, dans ton message précédent, est rectifié ?

Peux-tu me dire où je le trouve dans VBA car je ne le trouve pas.

Merci de ton aide et pour les explications.

C'est bon j'ai fini par trouver le code. Tout est fonctionnel.

Un grand merci!