Discussion :

[1357VBA]

bonjour,
par rapport au code de Pierre,
j'ai donc revu le code , pour éviter les contraintes de la "localisation de l'onglet"[...]

Merci JP

Ce qui me rassure c'est que je ne suis pas le seul à avoir quelque chose qui fonctionne (j'avais la banane) et puis plus du tout (j'avais la banane à l'envers!)...
J'espère que quelqu'un trouvera la réponse sur ce forum car c'est très déconcertant.

Merci encore
@+ Eric

[Pierre Fauconnier]

[...]J'espère que quelqu'un trouvera la réponse sur ce forum car c'est très déconcertant.
@+ Eric

Ce n'est pas déconcertant... Le problème de la suppression de données, c'est qu'elle décale les lignes. On se trouve donc à un moment donné à plonger hors du tableau, par exemple. Si on supprime la cellule vers laquelle pointe rng, rng ne peut plus pointer vers une cellule valide (c'est le problème du #REF! en Excel) et donc, on se prend une erreur.

C'est pour cela qu'il faut passer en pas à pas en ayant un œil sur la fenêtre des variables locales, voire avec des variables espion pour voir ce qui se passe et comment bougent les variables.

Si on observe le code suivant:

Code :

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

1
2
3
4
5
6
7
Sub TestDelete()
  Dim rng As Range
 
  Set rng = Range("a3")
  Range("a2").EntireRow.Delete
  Debug.Print rng.Address
End Sub

il affichera $A$2, car lors de la suppression de A2, A3 a glissé vers le haut, et donc l'objet qui pointait vers A3 a suivi et pointe maintenant vers A2. C'est pourquoi il est utile de découpler et d'utiliser des fonctions isolées car on peut beaucoup plus facilement tester les arguments qu'on leur passe.

[mjpmjp]

re ,

fichier modifieé : [XL-2013] La méthode 'Add' de l'objet 'ListRows' a échoué v4.xlsm

après la modif (code 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
43
44
45
46
47
48
49
50
51
52
53
 
Private Sub UserForm_Initialize()
    'ComboBox
    If Not Tb.DataBodyRange Is Nothing Then
        ComboBox1.RowSource = Tb.DataBodyRange.Parent.Name & "!" & Tb.DataBodyRange.Address
    End If
End Sub
 
Private Sub ComboBox1_Change()
    If EffaceEnCours Then
        EffaceEnCours = False
    Else
        With ComboBox1
          UserForm1.PrenomLabel.Caption = .Column(1, .ListIndex)
        End With
    End If
End Sub
 
Private Sub AddIntervenantBtn_Click()
    Call Initialise
    If UserForm1.NomTextBox.Value <> "" Then
        'derniere ligne
        TbLigne = TbRows.Count + 1
        '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 = Tb.DataBodyRange.Parent.Name & "!" & Tb.DataBodyRange.Address
        Call EffaceControle
    End If
End Sub
 
Private Sub SupprIntervenantBtn_Click()
    Call Initialise
    'ligne à supprimer
    TbLigne = UserForm1.ComboBox1.ListIndex + 1
    'supprime ligne
    Tb.ListRows(TbLigne).Delete
    'initialise ComboBox1
    ComboBox1.RowSource = Tb.DataBodyRange.Parent.Name & "!" & Tb.DataBodyRange.Address
    Call EffaceControle
End Sub
 
Private Sub EffaceControle()
    EffaceEnCours = True
    With UserForm1
        .PrenomLabel.Caption = ""
        .NomTextBox.Value = ""
        .PrenomTextBox.Value = ""
        .ComboBox1.Value = ""
    End With
End Sub

code module :

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
 
Public Tb As ListObject
Public TbRows As ListRows
Public TbCols As ListColumns
Public EffaceEnCours As Boolean
 
Public Sub Initialise()
    'tableau
    Set Tb = Range("Intervenants").ListObject
    'contient les lignes
    Set TbRows = Tb.ListRows
    'contient les colonnes
    Set TbCols = Tb.ListColumns
    EffaceEnCours = False
End Sub

code WorkBook

Code :

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

1
2
3
4
5
 
Private Sub Workbook_Open()
    Call Initialise
    UserForm1.Show
End Sub

le même message :


qui pointe sur Set Tb :


les amis , je vais ...

@+JP

[1357VBA]

Ce n'est pas déconcertant... Le problème de la suppression de données, c'est qu'elle décale les lignes. On se trouve donc à un moment donné à plonger hors du tableau, par exemple.[...]

Je vais sûrement dire une bêtise mais la plage nommée, normalement ne permet-elle justement pas d'éviter de plonger hors du tableau ?