La méthode 'Add' de l'objet 'ListRows' a échoué

**1357VBA** · 31/08/2017, 10h18

Bonjour,

Lorsque je souhaite Actualiser les données de mon formulaire, ce qui revient pour moi (mais il y a sûrement une façon plus élégante de faire) à Supprimer puis Ajouter je suis surpris d'avoir ce message d'erreur lequel au passage précède l'arrêt d'Excel:

Nom : Capture 1.PNG
Affichages : 2262
Taille : 127,5 Ko

Nom : Capture 1.PNG
Affichages : 2262
Taille : 127,5 Ko

car j'utilise la même méthode Add que celle que j'utilise avec Ajouter et qui fonctionne parfaitement. Je joins ci-dessous le code pour Ajouter, Supprimer et Actualiser. Si vous pouviez me dire ce qui cloche dans le code pour Actualiser je vous en suis par avance très reconnaissant.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Private Sub BtnModifIntervenant_Click()
 
Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim E As String
Dim F As String
Dim G As String
 
If IntervenantsForm.TboNomActualiser.Value <> "" Then
    A = IntervenantsForm.TboNomActualiser
    B = IntervenantsForm.TboPrenomActualiser
    C = IntervenantsForm.TboTxHActualiser
    D = IntervenantsForm.TboTxJActualiser
    E = IntervenantsForm.TboRoleActualiser
    F = IntervenantsForm.TboEmailActualiser
    G = IntervenantsForm.TboTelActualiser
    With Liste_Intervenants
        ThisWorkbook.Worksheets(3).Select
        Application.Goto Reference:="TableauIntervenants"
        Selection.ListObject.ListRows(.ListIndex + 1).Delete
    End With
    ThisWorkbook.Worksheets(3).Select
    Application.Goto Reference:="TableauIntervenants"
    Range("A2:G2").Select
    Selection.ListObject.ListRows.Add (1)
    Range("A2").Select
    ActiveCell.Value = A
    ActiveCell.Offset(0, 1).Value = B
    ActiveCell.Offset(0, 2).Value = C
    ActiveCell.Offset(0, 3).Value = D
    ActiveCell.Offset(0, 4).Value = E
    ActiveCell.Offset(0, 5).Value = F
    ActiveCell.Offset(0, 6).Value = G
    End With
    Unload Me
    IntervenantsForm.Show
Else
Unload Me
IntervenantsForm.Show
End If
End Sub
 
==========================================
==========================================
 
Private Sub BtnAddIntervenant_Click()
If IntervenantsForm.TboNom.Value <> "" Then
    ThisWorkbook.Worksheets(3).Select
    Application.Goto Reference:="TableauIntervenants"
    Range("A2:G2").Select
    Selection.ListObject.ListRows.Add (1)
    Range("A2").Select
    ActiveCell.Value = IntervenantsForm.TboNom
    ActiveCell.Offset(0, 1).Value = IntervenantsForm.TboPrenom
    ActiveCell.Offset(0, 2).Value = IntervenantsForm.TboTxH
    ActiveCell.Offset(0, 3).Value = IntervenantsForm.TboTxJ
    ActiveCell.Offset(0, 4).Value = IntervenantsForm.TboRole
    ActiveCell.Offset(0, 5).Value = IntervenantsForm.TboEmail
    ActiveCell.Offset(0, 6).Value = IntervenantsForm.TboTel
    Unload Me
    IntervenantsForm.Show
Else
Unload Me
 
==========================================
==========================================
 
Private Sub BtnSupprIntervenant_Click()
 With Liste_Intervenants
    Application.Goto Reference:="Plage"
    Selection.ListObject.ListRows(.ListIndex + 1).Delete
    Unload Me
    IntervenantsForm.Show
  End With
End Sub
IntervenantsForm.Show
End If
End Sub

**unparia** · 31/08/2017, 11h06

Bonjour
Listobject n'est pas défini.
Doit être un élément de la collection ListObjects.
Exemple :
dim toto as listobject
set toto = listobjects(1) ' ou 1 est l'index de toto dans la collection Listobjects.

**1357VBA** · 31/08/2017, 11h28

Envoyé par unparia

Bonjour
Listobject n'est pas défini.
Doit être un élément de la collection ListObjects.
Exemple :
dim toto as listobject
set toto = listobjects(1) ' ou 1 est l'index de toto dans la collection Listobjects.

Bonjour et merci pour cet éclairage, cependant ici non plus ListOject n'est pas défini :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BtnSupprIntervenant_Click()
 With Liste_Intervenants
    Application.Goto Reference:="Plage"
    Selection.ListObject.ListRows(.ListIndex + 1).Delete
    Unload Me
    IntervenantsForm.Show
  End With
End Sub
IntervenantsForm.Show
End If
End Sub

et ici non plus :

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
Private Sub BtnAddIntervenant_Click()
If IntervenantsForm.TboNom.Value <> "" Then
    ThisWorkbook.Worksheets(3).Select
    Application.Goto Reference:="TableauIntervenants"
    Range("A2:G2").Select
    Selection.ListObject.ListRows.Add (1)
    Range("A2").Select
    ActiveCell.Value = IntervenantsForm.TboNom
    ActiveCell.Offset(0, 1).Value = IntervenantsForm.TboPrenom
    ActiveCell.Offset(0, 2).Value = IntervenantsForm.TboTxH
    ActiveCell.Offset(0, 3).Value = IntervenantsForm.TboTxJ
    ActiveCell.Offset(0, 4).Value = IntervenantsForm.TboRole
    ActiveCell.Offset(0, 5).Value = IntervenantsForm.TboEmail
    ActiveCell.Offset(0, 6).Value = IntervenantsForm.TboTel
    Unload Me
    IntervenantsForm.Show
Else
Unload Me

et pourtant ça marche...

Je ne comprends pas.

**1357VBA** · 01/09/2017, 09h35

Si j'ajoute n intervenants tout va bien
Si je supprime n intervenants tout va bien

Mais:

Si je supprime 1 ou n intervenants puis que j'en ajoute 1 -> alors je plante Excel

Mon erreur de code provient donc certainement de la façon dont j'ajoute un intervenant à la plage nommée de mon tableau mais je ne comprends toujours pas où elle se situe.

Help please

**Ben_L** · 01/09/2017, 12h55

Bonjour à vous,

Je ne puis que vous conseiller de supprimer toute action de sélection de votre code, qui contient actuellement de nombreuses lignes inutiles.
Ces lignes compliquent la lecture du code pour ceux qui souhaiteraient vous aider et représentent un risque important d'erreur.

Cordialement

**1357VBA** · 01/09/2017, 14h40

Envoyé par Ben_L

Bonjour à vous,

Je ne puis que vous conseiller de supprimer toute action de sélection de votre code, qui contient actuellement de nombreuses lignes inutiles.
Ces lignes compliquent la lecture du code pour ceux qui souhaiteraient vous aider et représentent un risque important d'erreur.

Cordialement

Bonjour et Merci Ben_L
Vous avez raison, je n'arrivais plus à me relire non plus.

Voici le code simplifié au maximum et le bug qui persiste...

1 - je peux ajouter des enregistrements
2 - je peux supprimer des enregistrements

3 - supprimer puis ajouter un enregistrement => plante Excel

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
Private Sub AddIntervenantBtn_Click()
    If UserForm1.NomTextBox.Value <> "" Then
        Range("A2").Select
        Selection.ListObject.ListRows.Add (1)
        ActiveCell.Value = UserForm1.NomTextBox
        ActiveCell.Offset(0, 1).Value = UserForm1.PrenomTextBox
        Unload Me
        UserForm1.Show
    Else
        Unload Me
        UserForm1.Show
    End If
End Sub
 
 
Private Sub SupprIntervenantBtn_Click()
 With ComboBox1
    li = .ListIndex + 2
    Rows(li & ":" & li).Select
    Selection.Delete Shift:=xlUp
    Unload Me
    UserForm1.Show
  End With
End Sub
 
 
Private Sub ComboBox1_Change()
  With ComboBox1
    PrenomLabel.Caption = .Column(1, .ListIndex)
  End With
End Sub
 
Private Sub UserForm_Initialize()
  ComboBox1.RowSource = "=Plage"
End Sub

Quelques captures écran :
Nom : Capture.PNG
Affichages : 2107
Taille : 27,0 Ko

Nom : Capture2.PNG
Affichages : 2091
Taille : 34,5 Ko

Nom : Capture3.PNG
Affichages : 2129
Taille : 31,4 Ko

Nom : Capture4.PNG
Affichages : 2151
Taille : 22,8 Ko

**1357VBA** · 01/09/2017, 15h23

A priori avoir ôté tous les select a arrangé les choses.

Cher Ben_L, que préconisez-vous pour minimiser les " SELECT " dans le code ?

**Ben_L** · 01/09/2017, 15h45

Je viens de faire un test et la gestion que vous faîtes des tableaux nommés est ineffective. C'est celle-ci qui cause votre erreur.
Pour vous en convaincre, ajoutez la ligne suivante dans votre procédure UserForm_Initialize :

Code :

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

MsgBox ActiveSheet.ListObjects("Plage").Range.Address(False, False)

Vous verrez que celle-ci n'évolue pas comme vous le pensez au fil des ajouts (pour les suppression je n'ai pas testé).

A mon sens, le plus simple serait de rechercher manuellement l'adresse de la plage à utiliser. Ca n'est pas bien compliqué, et ça vous permettrait de maîtriser réellement ce qui est fait par le code.

Quant à la suppression des sélections, il est généralement possible de procéder comme suit :

Code :

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

1
2
Un_Objet_Excel_Quelconque.Select
Selection.Une_Methode_Quelconque

est à remplacer par :

Code :

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

Un_Objet_Excel_Quelconque.Une_Methode_Quelconque

Cela est très générique et ne fonctionnera pas dans tous les cas. L'important, c'est de comprendre ce que fait Excel.
En gros, l'objet Selection est un Variant dans lequel Excel stocke l'objet auquel on applique la méthode Select.
J'insiste sur le fait que dans certains cas, il est nécessaire de modifier un peu plus le code pour qu'il fonctionne comme souhaité (voir par exemple ce fil, dans lequel on voit que la méthode Group est un peu particulière).

**1357VBA** · 01/09/2017, 16h05

Envoyé par Ben_L

Je viens de faire un test et la gestion que vous faîtes des tableaux nommés est ineffective. C'est celle-ci qui cause votre erreur.
Pour vous en convaincre, ajoutez la ligne suivante dans votre procédure UserForm_Initialize :

Code :

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

MsgBox ActiveSheet.ListObjects("Plage").Range.Address(False, False)

Vous verrez que celle-ci n'évolue pas comme vous le pensez au fil des ajouts (pour les suppression je n'ai pas testé).

A mon sens, le plus simple serait de rechercher manuellement l'adresse de la plage à utiliser. Ca n'est pas bien compliqué, et ça vous permettrait de maîtriser réellement ce qui est fait par le code.

Quant à la suppression des sélections, il est généralement possible de procéder comme suit :

Code :

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

1
2
Un_Objet_Excel_Quelconque.Select
Selection.Une_Methode_Quelconque

est à remplacer par :

Code :

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

Un_Objet_Excel_Quelconque.Une_Methode_Quelconque

Cela est très générique et ne fonctionnera pas dans tous les cas. L'important, c'est de comprendre ce que fait Excel.
En gros, l'objet Selection est un Variant dans lequel Excel stocke l'objet auquel on applique la méthode Select.
J'insiste sur le fait que dans certains cas, il est nécessaire de modifier un peu plus le code pour qu'il fonctionne comme souhaité (voir par exemple ce fil, dans lequel on voit que la méthode Group est un peu particulière).

Merci beaucoup encore une fois

si je vous comprends bien je devrais remplacer

Code :

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

1
2
Rows(li & ":" & li).Select
    Selection.Delete Shift:=xlUp

par quelque chose comme

Code :

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

Rows(li & ":" & li).Delete Shift:=xlUp

quand c'est possible.

Ce qui se passe avec ma plage nommée me surprend, c'est d'ailleurs quelqu'un de chevronné ici qui m'a recommandé de prendre de bonnes habitudes dès le départ (je débute comme vous avez compris) en utilisant une plage nommée liée à un tableau pour ensuite profiter des fonctions natives d'Excel sur ces tableaux (tris, filtres, graphiques, etc.) ce qui me parait assez judicieux.

**Ben_L** · 01/09/2017, 16h14

Pour la suppression des sélections, c'est bien cela.
De plus, j'ai personnellement tendance à éviter les références aux objets ActiveWorkbook, ActiveSheet, ActiveCell, etc.
Sauf bien sûr quand c'est exactement ce que je veux. Sinon, je nomme clairement l'objet auquel je souhaite faire référence. Sur de gros projet, cela permet parfois d'éviter des erreurs qui peuvent être très longues à identifier et corriger.

Concernant votre plage nommée, lors de mon essai, celle-ci s'est décalée vers le bas au moment de l'insertion de la nouvelle ligne.
J'utilise très peu les tableaux/plages nommés et ne serai donc probablement pas de bon conseil pour vous aider à corriger le problème.

Avis, donc, aux aficionados des tableaux !!! Il y aura bien une bonne âme qui saura vous dépanner

**1357VBA** · 01/09/2017, 16h25

Envoyé par Ben_L

Concernant votre plage nommée, lors de mon essai, celle-ci s'est décalée vers le bas au moment de l'insertion de la nouvelle ligne.

Bizarre pas sur mon poste... OSX->BootCamp->((Seven/Office 2013) 64 bits)
Mais j'ai à plusieurs reprises vu Excel patiner pour actualiser l'affichage de nouveaux enregistrements dans le tableau.

je pense que nous pensons à la même personne pour les tableaux, j'aimerais bien qu'elle se re-manifeste

Bon week-end Ben_L
Eric

**mjpmjp** · 01/09/2017, 19h47

bonjour,
Add et Supr --> ok

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
40
41
42
43
44
45
46
 
Dim Tb As ListObject
Dim TbRows As ListRows
Dim TbCols As ListColumns
 
Private Sub UserForm_Initialize()
    Call Initialise
End Sub
 
Private Sub ComboBox1_Change()
  With ComboBox1
    Me.PrenomLabel.Caption = .Column(1, .ListIndex)
  End With
End Sub
 
Private Sub AddIntervenantBtn_Click()
    If UserForm1.NomTextBox.Value <> "" Then
        'ajouter ligne
        Tb.ListRows.Add
        'derniere ligne
        TbLigne = TbRows.Count
        'ecrire nom
        TbCols("Nom").DataBodyRange(TbLigne).Value = UserForm1.NomTextBox.Value
        'ecrire prenom
        TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrénomTextBox.Value
        'initialise ComboBox1
        ComboBox1.RowSource = Range("Intervenants[#data]").Address
    End If
End Sub
 
Private Sub SupprIntervenantBtn_Click()
    'ligne à supprimer
    TbLigne = UserForm1.ComboBox1.ListIndex + 1
    'supprime ligne
    Tb.ListRows(TbLigne).Delete
    'initialise ComboBox1
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub
 
Private Sub Initialise()
    Set Tb = ActiveSheet.ListObjects("Intervenants")
    Set TbRows = Tb.ListRows ' contient les lignes
    Set TbCols = Tb.ListColumns ' contient les colonnes
    'ComboBox1.RowSource = Range("Intervenants[[#data],[Nom]]").Address
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub

modif

TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.~~NomTextBox~~.Value

remplacé par

TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrénomTextBox.Value

@+JP

**1357VBA** · 01/09/2017, 20h04

Merci beaucoup

**1357VBA** · 04/09/2017, 06h10

Envoyé par mjpmjp

bonjour,
Add et Supr --> ok

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
40
41
42
43
44
45
46
 
Dim Tb As ListObject
Dim TbRows As ListRows
Dim TbCols As ListColumns
 
Private Sub UserForm_Initialize()
    Call Initialise
End Sub
 
Private Sub ComboBox1_Change()
  With ComboBox1
    Me.PrenomLabel.Caption = .Column(1, .ListIndex)
  End With
End Sub
 
Private Sub AddIntervenantBtn_Click()
    If UserForm1.NomTextBox.Value <> "" Then
        'ajouter ligne
        Tb.ListRows.Add
        'derniere ligne
        TbLigne = TbRows.Count
        'ecrire nom
        TbCols("Nom").DataBodyRange(TbLigne).Value = UserForm1.NomTextBox.Value
        'ecrire prenom
        TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrénomTextBox.Value
        'initialise ComboBox1
        ComboBox1.RowSource = Range("Intervenants[#data]").Address
    End If
End Sub
 
Private Sub SupprIntervenantBtn_Click()
    'ligne à supprimer
    TbLigne = UserForm1.ComboBox1.ListIndex + 1
    'supprime ligne
    Tb.ListRows(TbLigne).Delete
    'initialise ComboBox1
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub
 
Private Sub Initialise()
    Set Tb = ActiveSheet.ListObjects("Intervenants")
    Set TbRows = Tb.ListRows ' contient les lignes
    Set TbCols = Tb.ListColumns ' contient les colonnes
    'ComboBox1.RowSource = Range("Intervenants[[#data],[Nom]]").Address
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub

modif

TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.~~NomTextBox~~.Value

remplacé par

TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrénomTextBox.Value

@+JP

Bonjour JP

Merci pour ton code,

Cela fonctionne pour supprimer un intervenant ;
Lorsque je veux ajouter un intervenant Excel plante brutalement et je ne comprends pas bien pourquoi :
Nom : JP.PNG
Affichages : 2074
Taille : 102,2 Ko

Nom : JP.PNG
Affichages : 2074
Taille : 102,2 Ko

**mjpmjp** · 04/09/2017, 09h41

bonjour,
teste mon fichier : [XL-2013] La méthode 'Add' de l'objet 'ListRows' a échoué.xlsm

@+JP

**1357VBA** · 04/09/2017, 10h00

Bonjour JP

Ton fichier fonctionne parfaitement bien... je ne sais pas quoi dire à part Merci
et surtout je ne comprends pas pourquoi ça buggait sur mon fichier que je vais repasser au peigne fin...

Bonne journée
Eric

**mjpmjp** · 04/09/2017, 10h45

bonjour,

Nom : Animation.gif
Affichages : 3063
Taille : 618,8 Ko

code final (dans UserForm1) :

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
40
41
42
 
Private Sub UserForm_Initialize()
    Call Initialise
End Sub
 
Private Sub ComboBox1_Change()
  With ComboBox1
    Me.PrenomLabel.Caption = .Column(1, .ListIndex)
  End With
End Sub
 
Private Sub AddIntervenantBtn_Click()
    If UserForm1.NomTextBox.Value <> "" Then
        'ajouter ligne
        Tb.ListRows.Add
        'derniere ligne
        TbLigne = TbRows.Count
        'ecrire nom
        TbCols("Nom").DataBodyRange(TbLigne).Value = UserForm1.NomTextBox.Value
        'ecrire prenom
        TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrenomTextBox.Value
        'initialise ComboBox1
        ComboBox1.RowSource = Range("Intervenants[#data]").Address
    End If
End Sub
 
Private Sub SupprIntervenantBtn_Click()
    'ligne à supprimer
    TbLigne = UserForm1.ComboBox1.ListIndex + 1
    'supprime ligne
    Tb.ListRows(TbLigne).Delete
    'initialise ComboBox1
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub
 
Private Sub Initialise()
    Set Tb = ActiveSheet.ListObjects("Intervenants")
    Set TbRows = Tb.ListRows ' contient les lignes
    Set TbCols = Tb.ListColumns ' contient les colonnes
    'ComboBox1.RowSource = Range("Intervenants[[#data],[Nom]]").Address
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub

@+JP

**1357VBA** · 04/09/2017, 10h56

Envoyé par mjpmjp

bonjour,

code final (dans UserForm1) :

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
40
41
42
 
Private Sub UserForm_Initialize()
    Call Initialise
End Sub
 
Private Sub ComboBox1_Change()
  With ComboBox1
    Me.PrenomLabel.Caption = .Column(1, .ListIndex)
  End With
End Sub
 
Private Sub AddIntervenantBtn_Click()
    If UserForm1.NomTextBox.Value <> "" Then
        'ajouter ligne
        Tb.ListRows.Add
        'derniere ligne
        TbLigne = TbRows.Count
        'ecrire nom
        TbCols("Nom").DataBodyRange(TbLigne).Value = UserForm1.NomTextBox.Value
        'ecrire prenom
        TbCols("Prénom").DataBodyRange(TbLigne).Value = UserForm1.PrenomTextBox.Value
        'initialise ComboBox1
        ComboBox1.RowSource = Range("Intervenants[#data]").Address
    End If
End Sub
 
Private Sub SupprIntervenantBtn_Click()
    'ligne à supprimer
    TbLigne = UserForm1.ComboBox1.ListIndex + 1
    'supprime ligne
    Tb.ListRows(TbLigne).Delete
    'initialise ComboBox1
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub
 
Private Sub Initialise()
    Set Tb = ActiveSheet.ListObjects("Intervenants")
    Set TbRows = Tb.ListRows ' contient les lignes
    Set TbCols = Tb.ListColumns ' contient les colonnes
    'ComboBox1.RowSource = Range("Intervenants[[#data],[Nom]]").Address
    ComboBox1.RowSource = Range("Intervenants[#data]").Address
End Sub

@+JP

Merci pour la vidéo JP

Comme je ne sais pas faire de video je t'envoie juste une capture d'écran :

Nom : JP2.PNG
Affichages : 2081
Taille : 71,4 Ko

J'ai juste:
Fait une copie de ton fichier
Supprimé le ClicButton sur la Feuil1
Rajouté le code dans l'ojet classeur :

Code :

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

1
2
3
Private Sub Workbook_Open()
UserForm1.Show
End Sub

C'est sûrement ça qui fait planter mon code jusqu'ici, mais pourquoi ?

**mjpmjp** · 04/09/2017, 11h13

re,

pour la vidéo (libre) : Capture_ScreenToGif.2.7.1

Private Sub Workbook_Open()
UserForm1.Show
End Sub

quand une erreur se produit dans le UserForm1 , çà revient ici !!!

pour trouver l'erreur , met un point d’arrêt dans : Private Sub AddIntervenantBtn_Click()
Nom : Capture1.PNG
Affichages : 2923
Taille : 19,8 Ko

Nom : Capture1.PNG
Affichages : 2923
Taille : 19,8 Ko

quand tu va ajouter une ligne , le code s’arrête (en jaune)
Nom : Capture2.PNG
Affichages : 2964
Taille : 20,3 Ko

utilise F8 pour faire avancer le code

quand l'erreur survient c'est la ligne j'aune (avant F8) qui est en cause
Nom : Capture3.PNG
Affichages : 2976
Taille : 77,7 Ko

Nom : Capture3.PNG
Affichages : 2976
Taille : 77,7 Ko

si après F8 tu as une erreur , l'erreur est dans cette ligne
ComboBox1.RowSource = Range("Intervenants[#data]").Address

@+JP

**1357VBA** · 04/09/2017, 11h58

Envoyé par mjpmjp

re,

pour la vidéo (libre) : Capture_ScreenToGif.2.7.1

quand une erreur se produit dans le UserForm1 , çà revient ici !!!

pour trouver l'erreur , met un point d’arrêt dans : Private Sub AddIntervenantBtn_Click()
Nom : Capture1.PNG
Affichages : 2923
Taille : 19,8 Ko

quand tu va ajouter une ligne , le code s’arrête (en jaune)
Nom : Capture2.PNG
Affichages : 2964
Taille : 20,3 Ko

utilise F8 pour faire avancer le code

quand l'erreur survient c'est la ligne j'aune (avant F8) qui est en cause
Nom : Capture3.PNG
Affichages : 2976
Taille : 77,7 Ko

si après F8 tu as une erreur , l'erreur est dans cette ligne
ComboBox1.RowSource = Range("Intervenants[#data]").Address

@+JP

voici l'erreur, mais je suis incapable de la corriger

Nom : JP.PNG
Affichages : 2117
Taille : 60,1 Ko