on error resume next sans effet

Version imprimable

1 pièce(s) jointe(s)

Bonsoir,

Je ne comprend pas pourquoi VBA plante alors que il lui est demandé de passer à la ligne suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
sub test()
    dim ....
 
     scleligne = "Tintin"
     ' le tableau structuré nommé Tintin n'existe pas
 
     on error resume next
     Set oList = Range(scleLigne).ListObject
 
     if olist is nothing then
         msgbox ("Tableau structuré inexistant")
     end if
 
end sub

Pièce jointe 454381

Citation:

Envoyé par PLH81

Bonjour,

Un tableau structuré s'applique à un objet Worksheet.

A adapter et à tester:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
Dim I As Integer
Dim Tabletrouvee As Boolean
 
    With Sheets("Feuil1")  ' A adapter
 
         Tabletrouvee = False
         If .ListObjects.Count > 0 Then
           For I = 1 To .ListObjects.Count
               If .ListObjects(I).Name = "Tintin" Then Tabletrouvee = True
           Next I
         End If
 
         If Tabletrouvee = False Then MsgBox "Tableau structuré inexistant !", vbCritical, "Recherche de la table Tintin"
 
    End With
 
End Sub

03/03/2019, 10h48
Invité

Bonjour,
En écrivant ton exemple tu avais bien conscience de aberration de ton code.

Le on error évalue l'aberration de ton code dans une certaine mesure seulement.

Note que ton ordinateur dispose d'une unité arithmétique et logique constitué de 1/0 {0 volt,5 volts} une évaluation complète pourrait mettre le feu à ton ordinateur.

Le on erreur se borne aux évaluation simple.

En fait ton code manipule des zones mémoires qui n'existent pas. Ça revient à un suicide de Windows !
04/03/2019, 09h16
PLH81

Bonjour à vous,

Merci pour vos réponses.

Eric, j'ai résolu effectivement le problème de cette façon, en enlevant par contre la référence à la worksheet, ce pour garder la possibilité ultérieur de pouvoir déplacer le tableau structuré sur un autre onglet.

Dysorthographie, merci pour ces explications électriques, je vais éviter de suicider Windows et mettre le feu à la boite.

Bonne journée à vous

PLH81

Citation:

Envoyé par PLH81

Bonjour,

Dans ce cas, vous pouvez utiliser une procédure paramétrique ou directement une fonction :

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
 
 
Sub TestRechercheTable()
 
Dim OngletEnCours As Worksheet
Dim NomDeLaTable As String
 
    Set OngletEnCours = ActiveSheet
    NomDeLaTable = "Tintin"
    If TableTrouvee(OngletEnCours, "Tintin") = False Then MsgBox "Tableau structuré inexistant !", vbCritical, "Recherche de la table " & NomDeLaTable & " dans l'onglet " & OngletEnCours.Name
    Set OngletEnCours = Nothing
 
End Sub
 
Function TableTrouvee(ByVal OngletEnCours2 As Worksheet, ByVal NomDeLaTable2 As String) As Boolean
 
Dim I As Integer
 
    With OngletEnCours2
         TableTrouvee = False
         If .ListObjects.Count > 0 Then
           For I = 1 To .ListObjects.Count
               If .ListObjects(I).Name = NomDeLaTable2 Then TableTrouvee = True
           Next I
         End If
    End With
 
End Function

2 pièce(s) jointe(s)

Bonjour

Quand on utilise des Tableaux (ListObject) on peut ne pas se casser la tête pour savoir dans quel(s) onglet(s) ils se trouvent.
Chez moi, avec un Tableau nommé Tintin dans un onglet et un autre nommé Tintins dans un autre,PLH81, ton code même écrit dans un module standard, ne pose pas de problème sauf si l’on prend scleligne = "Tintin " 'ou "Tintins " (espaces non accaptés dans des noms de Tableau)
Pour rappel :
Code:

1 2 3 4 5 6 7 Sub test() Dim scleLigne As String, olist As ListObject scleLigne = "Tintin" 'ou "Tintins" On Error Resume Next Set olist = Range(scleLigne).ListObject If olist Is Nothing Then MsgBox ("Tableau structuré inexistant"): Exit Sub End Sub
Je retrouve cela avec les autres codes. Avec ou sans On Error Resume Next, chez moi, j’ai 2 types d’erreur (Tableau nommé Tintin présent)

04/03/2019, 11h30
Invité
Citation:

Envoyé par OrDonc

Bonjour Ordonc,

Effectivement, j'ai dû modifier mes codes, j'avais omis l'indice dans la collection.
Code:

1 2 If .ListObjects(I).Name = "Tintin" Then Tabletrouvee = True
Code:

If .ListObjects(I).Name = NomDeLaTable2 Then TableTrouvee = True

Pour PLH81 : Modifiez également votre code.