Erreur d'exécution '13': Incompatibilité de type

**Mél3790** · 13/09/2018, 15h07

Bonjour à toutes et tous,

J'ai l'erreur indiquée dans le titre de mon poste au moment de passer à cette ligne :

Code :

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

1
2
3
Set b = Sheets("Formations")
b.Cells(LbPersonnel2.List(LbPersonnel2.ListIndex, 13), 14) = CbOrganisme2

Je n'arrive pas à comprendre pourquoi.

Auriez-vous des pistes pour m'aider ?

D'avance, merci beaucoup

**pijaku** · 13/09/2018, 15h20

Bonjour,

Peut-être que la 13ème colonne de ta ListBox ne contient pas un nombre.
Peut-être qu'elle renvoie également un nombre mais sous forme de String.

Tester son contenu, comme ceci :

Code :

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

1
2
3
Set b = Sheets("Formations")
MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)
b.Cells(LbPersonnel2.List(LbPersonnel2.ListIndex, 13), 14) = CbOrganisme2

Si le MsgBox affiche le bon numéro de ligne, modifiez comme suit :

Code :

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

1
2
Set b = Sheets("Formations")
b.Cells(CLng(LbPersonnel2.List(LbPersonnel2.ListIndex, 13)), 14) = CbOrganisme2

**Mél3790** · 13/09/2018, 15h39

Bonjour Pijaku,

Merci pour ton retour.

En effet, ma colonne 13 de ma listbox contient du Texte et non des chiffres.

J'ai testé ceci comme tu me le propose :

Code :

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

MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)

Ca ne me retourne pas le numéro de ligne mais bien le contenu de la cellule (donc du texte également) que je souhaite modifier qui est sur la bonne ligne.

Et donc ceci ne fonctionne pas :

Code :

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

b.Cells(CLng(LbPersonnel2.List(LbPersonnel2.ListIndex, 13)), 14) = CbOrganisme2

J'ai toujours "Incompatibilité de type"

Qu'est ce qui peut bien poser problème ? :s

**pijaku** · 13/09/2018, 15h45

Que te retourne, maintenant,

Code :

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

MsgBox LbPersonnel2.ListIndex

Y a-t-il une corrélation (+1 ou +2, ou +31, ou -2 ou -1...) avec ton numéro de ligne?

Si oui, alors :
b.Cells(LbPersonnel2.ListIndex +- Delta), 14) = CbOrganisme2

**Mél3790** · 13/09/2018, 16h22

Alors ça me retourne le chiffre 0.

Le numéro de ligne où doit se modifier le contenu de la cellule est le 18.

**pijaku** · 13/09/2018, 16h23

Envoyé par Mél3790

Alors ça me retourne le chiffre 0.

Tu as sélectionné une ligne dans ta ListBox avant? La première ligne?

Envoyé par Mél3790

Le numéro de ligne où doit se modifier le contenu de la cellule est le 18.

Je supposes donc que tes données vont de la ligne 18 à la ligne xxxx...

Si oui, alors :

Code :

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

b.Cells(LbPersonnel2.ListIndex + 18), 14) = CbOrganisme2

**Mél3790** · 14/09/2018, 14h56

En fait, ma listbox se remplie en fonction du choix d'une combobox.

Mon tableau dans ma feuille 1 commence bien à la ligne 1.

Mais étant donné que ma listbox est filtrée, la ligne 18 de mon tableau peut en effet être la 1ère ligne de ma listbox selon le choix de ma combobox.

**pijaku** · 14/09/2018, 15h10

Bonjour,

Quand tu as fait ce test (cf plus haut) :

Code :

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

MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)

est-ce que la valeur retournée est systématiquement unique dans ton tableau?

**Mél3790** · 18/10/2018, 14h53

Bonjour Pijaku,

Excuses moi de ne pas être revenue vers toi plus tôt, le reste de mon travail ne m'a pas permis de continuer ce projet excel....

Alors, avec ceci :

Code :

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

MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)

Le message qui apparaît est bien le mot dans ma dans la cellule de la colonne 13 de la ligne que j'ai bien sélectionné dans ma listbox.

Cette valeur est unique dans la ligne.

**pijaku** · 18/10/2018, 15h02

Bonjour,

Le souci est que tu remplis ta ListBox avec une plage de cellules filtrée.
Par conséquent, tu ne peux pas retrouver directement ton numéro de ligne.
Il te faut donc stocker tes numéros de ligne dans une nouvelle colonne de ta ListBox, colonne que tu rendras "invisible" en réglant la propriété ColumnWidth de ta listBox.

Peux tu nous donner ici le code :
> du ou des événements Initialize et/ou Activate de ton Userform
> de remplissage de ta ListBox

Merci.
A++

**Mél3790** · 18/10/2018, 15h13

Ma listbox se remplie d'après un choix de combobox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CbFormation2_change()
 
Set BD = f.Range("A2:AG" & f.[AG65000].End(xlUp).Row)
 
   Dim a()
   Ligne = 0
   For i = 1 To BD.Rows.Count
     If BD.Cells(i, 5) = Me.CbFormation2 Then
       Ligne = Ligne + 1
       ReDim Preserve a(1 To BD.Columns.Count, 1 To Ligne) 
       For k = 1 To BD.Columns.Count: a(k, Ligne) = BD.Cells(i, k): Next k
      End If
   Next i
   Me.LbPersonnel2.Column = a

**pijaku** · 18/10/2018, 15h23

Essaye ceci, tu devrais voir tes numéros de ligne apparaître en 1ère colonne de ta listBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   Set BD = f.Range("A2:AG" & f.[AG65000].End(xlUp).Row)
 
   Dim a()
   Ligne = 0
   For i = 1 To BD.Rows.Count
      If BD.Cells(i, 5) = Me.CbFormation2 Then
         Ligne = Ligne + 1
         ReDim Preserve a(1 To BD.Columns.Count + 1, 1 To Ligne)
         a(LBound(a, 1), Ligne) = i    'on stocke en colonne 1 le numéro de ligne
         For k = LBound(a, 1) + 1 To UBound(a, 1)  'je préfères boucler d'une borne à l'autre d'une variable tableau
            a(k, Ligne) = BD.Cells(i, k)
         Next k
      End If
   Next i
   Me.LbPersonnel2.Column = a

**Mél3790** · 18/10/2018, 15h36

Ah oui, déjà ok ça fonctionne, je vois bien des numéros dans ma 1ère colonne de ma listbox

**pijaku** · 18/10/2018, 15h42

Bon.
A mon avis cela va être inutile...
Mais bon.

Tu remplis ta listbox en filtrant une plage d'une feuille A.
Ok.
Tu sélectionnes une (ou des) ligne(s) dans ta listBox, lignes que tu veux mettre après dans une autre feuille que la feuille A.

Expliques nous exactement ce que tu veux faire.

**Mél3790** · 18/10/2018, 16h16

Je sélectionne une ligne de ma listbox.
Mes combobox et textbox se remplissent en fonction de ma sélection de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim i As Integer
    For i = 0 To LbPersonnel2.ListCount - 1
        If LbPersonnel2.Selected(i) = True Then
            'FrameCaract2
            TbFormationNTS2 = LbPersonnel2.List(i, 5)
            TBType = LbPersonnel2.List(i, 11)
            TbJours2 = LbPersonnel2.List(i, 9)
            TbHeures2 = LbPersonnel2.List(i, 10)
            TbInEx2 = LbPersonnel2.List(i, 12)
            TbCoutF°2 = LbPersonnel2.List(i, 16)
            'FrameProg2
            CbDébut3 = LbPersonnel2.List(i, 6)
            CbFin3 = LbPersonnel2.List(i, 7)
            TbSemaine3 = LbPersonnel2.List(i, 8)
            CbOrganisme2 = LbPersonnel2.List(i, 13)
            CbLieu2 = LbPersonnel2.List(i, 14)
            Tbcommande2 = LbPersonnel2.List(i, 21)
            If LbPersonnel2.List(i, 20) = "OK" Then
            CheckPréRequis2.Value = True
            Else
            CheckPréRequis2.Value = ""
            End If
            If LbPersonnel2.List(i, 22) = "OK" Then
            CheckConvocation2.Value = True
            Else
            CheckConvocation2.Value = ""
            End If
            'FramePnt2
            Lundi2 = LbPersonnel2.List(i, 27)
            Mardi2 = LbPersonnel2.List(i, 28)
            Mercredi2 = LbPersonnel2.List(i, 29)
            Jeudi2 = LbPersonnel2.List(i, 30)
            Vendredi2 = LbPersonnel2.List(i, 31)
            ObservationsPnt2 = LbPersonnel2.List(i, 32)
            'FrameObs2
            TbObs2 = LbPersonnel2.List(i, 26)
 
        End If
        Next i

Tout roule.

Si par exemple Monsieur DUPONT a une formation auprès de l'organisme TRUC, ma combobox CbOrganisme2 va afficher TRUC. Si je me suis trompée et que finalement sa formation a lieu auprès de l'organisme BIDULE, je choisi dans ma combo BIDULE.
Ok, jusque là.

Ce que je souhaite et que je n'arrive pas à faire

: Pour que BIDULE s'inscrive à la place de TRUC dans ma 13ème cellule de ma ligne sélectionnée, je dois cliquer sur un bouton "MODIFIER".
Je ne sais pas comment coder cette partie -_-"

**pijaku** · 18/10/2018, 16h18

Ce que je souhaite et que je n'arrive pas à faire : Pour que BIDULE s'inscrive à la place de TRUC dans ma 13ème cellule de ma ligne sélectionnée, je dois cliquer sur un bouton "MODIFIER".
Je ne sais pas comment coder cette partie -_-"

Même avec le numéro de ligne tu n'y arrives pas?

**Mél3790** · 18/10/2018, 16h52

Je suis désolée, mais non. J'ai bien ton MsgBox :

Code :

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

MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)

qui me montre bien le contenu de la cellule avant que celui-ci soit écrasé.

**Mél3790** · 30/10/2018, 15h48

J'ai essayé des choses, ça ne fonctionne pas. Je suis sûre que la solution est facile, mais pour moi cela n'est pas tout à fait simple.

C'est ce petit bout de code qui me bloque pour tout le reste

, après mon projet sera terminé. Et grâce à vous !

Svp, puis-je avoir un peu d'aide encore ?

**pijaku** · 30/10/2018, 15h50

Bonjour,

Peux-tu nous envoyer ton fichier, avec un minimum de données, anonymisé?

**Mél3790** · 31/10/2018, 12h49

Bonjour,

D'accord j'essai de faire ça dans la journée, sinon la semaine prochaine car je ne travaille pas vendredi.
Merci beaucoup d'être revenu vers moi

A très vite.

Erreur d'exécution '13': Incompatibilité de type

Macros et VBA Excel

Discussions similaires

Partager

Partager