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

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

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

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:

Pièce jointe 307966

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:

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

31/08/2017, 11h06
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.

yes but ?

Citation:

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:

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:

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.

01/09/2017, 09h35
1357VBA

précision sur le 'bug'

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
01/09/2017, 12h55
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

4 pièce(s) jointe(s)

Citation:

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:

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 :
Pièce jointe 308326Pièce jointe 308329Pièce jointe 308336Pièce jointe 308341

01/09/2017, 15h23
1357VBA

je ne reproduis plus le bug mais je ne sais pas pourquoi ?

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 ?
01/09/2017, 15h45
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:

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:

1 2 Un_Objet_Excel_Quelconque.Select Selection.Une_Methode_Quelconque
est à remplacer par :

Code:

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).
01/09/2017, 16h05
1357VBA
Citation:
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:

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:

1 2 Un_Objet_Excel_Quelconque.Select Selection.Une_Methode_Quelconque

est à remplacer par :

Code:

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:

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

Code:

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.
01/09/2017, 16h14
Ben_L

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 ;)
01/09/2017, 16h25
1357VBA

Plage nommées

Citation:

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.

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

Bon week-end Ben_L
Eric

bonjour,
Add et Supr --> ok

Code:

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

01/09/2017, 20h04
1357VBA

Merci JP

Merci beaucoup

1 pièce(s) jointe(s)

Bug

Citation:

Envoyé par mjpmjp

bonjour,
Add et Supr --> ok

Code:

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 :
Pièce jointe 308795

04/09/2017, 09h41
mjpmjp

1 pièce(s) jointe(s)

bonjour,
teste mon fichier : Pièce jointe 308825

@+JP
04/09/2017, 10h00
1357VBA

...

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

1 pièce(s) jointe(s)

bonjour,

Pièce jointe 308889

code final (dans UserForm1) :

Code:

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

1 pièce(s) jointe(s)

Citation:

Envoyé par mjpmjp

bonjour,

Pièce jointe 308889

code final (dans UserForm1) :

Code:

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 :lol:

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

8O

Pièce jointe 308896

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

Code:

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 ?

04/09/2017, 11h13
mjpmjp

3 pièce(s) jointe(s)

re,

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

Citation:

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()
Pièce jointe 308900

quand tu va ajouter une ligne , le code s’arrête (en jaune)
Pièce jointe 308904

utilise F8 pour faire avancer le code

quand l'erreur survient c'est la ligne j'aune (avant F8) qui est en cause
Pièce jointe 308909

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

@+JP
04/09/2017, 11h58
1357VBA

2 pièce(s) jointe(s)

Citation:

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()
Pièce jointe 308900

quand tu va ajouter une ligne , le code s’arrête (en jaune)
Pièce jointe 308904

utilise F8 pour faire avancer le code

quand l'erreur survient c'est la ligne j'aune (avant F8) qui est en cause
Pièce jointe 308909

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

Pièce jointe 308929 Pièce jointe 308934

Voir 40 message(s) de cette discussion en une page