[VBA] Erreur d'automation

Résolu/Fermé
Yah - 21 févr. 2011 à 11:53
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 22 févr. 2011 à 12:33
Bonjour,

J'ai une erreur d'automation avec pour commentaire "s'est déconnecté de ses clients"
Je ne sais pas du tout à quoi cela peut correspondre étant donné que c'est sur de la mise en forme de cellule.

Ci-dessous le code :

    On Error GoTo ErrorHandler
Recommencer:
    Sheets(Feuille).Activate
    Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)).Select
    Sheets(Feuille).ListObjects.Add(xlSrcRange, Sheets(Feuille).Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)), , xlYes).Name = _
        Titre
    Range(Sheets(Feuille).Cells(LD, CD), Sheets(Feuille).Cells(LF, CF)).Select
    Sheets(Feuille).ListObjects(Titre).TableStyle = "TableStyleLight2"
    Sheets(Feuille).ListObjects(Titre).ShowTotals = True
    Exit Sub
ErrorHandler:
    Randomize
    Titre = Titre & Int(Rnd) & Int(Rnd) 'Traitement de l'erreur sur le nom de tableau similaire
    GoTo Recommencer




L'erreur s'affiche sur le ActiveSheet.ListObjects(Titre).TableStyle = "TableStyleLight2"

7 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 196
22 févr. 2011 à 10:58
Je n'avais pas vu la fin de cette ligne, essaye avec..
Set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD,CD), Cells(LF, CF)), , xlYes)
ListOb.TableStyle = "TableStyleLight2"
ListOb.ShowTotals = True
ListOb.Name = Titre
Et vérifie que tes variables sont initialisées.
1
Toujours l'erreur "Objet requis".
j'ai vérifié, toutes mes variables sont initialisées.
0