[VBA] Erreur d'automation

Résolu

Yah -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 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"

Afficher la suite

A voir également:

Cette variable utilise un type automation non géré par visual basic
Visual basic - Télécharger - Langages
Visual basic editor - Télécharger - Langages
Visual click avis ✓ - Forum Consommation & Internet
Microsoft 365 basic - Accueil - Microsoft Office
Visual c++ 2019 - Guide

7 réponses

Réponse 1 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Yah

Toujours l'erreur "Objet requis".
j'ai vérifié, toutes mes variables sont initialisées.

Réponse 3 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
1°) Je suppose que Feuille est initialiser avant ?
2°) Pour une lecture plus simple, supprimer tout les Sheets(Feuille) puisque c'est la feuille active.
3°) ListObjet, comme son nom l'indique est un objet, faut donc le traiter comme un Objet

Dim listOb as Listobjet  
set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD, CD), Cells(LF, CF)), , xlYes).Name = Titre  
ListOb.TableStyle = "TableStyleLight2"  
ListOb.ShowTotals = True

4°) Plutôt que de sauter sur une erreur vaux mieux l'éviter en testant si cet objet existe déjà, ou quelque chose comme ça.
5°) On ne sort pas d'une détection d'erreur par un goto, si trop d'erreurs à la suite fait sauter la pile.
le code est : Resume Recommencer
Vu le peu de renseignement que tu donne impossible d'en dire plus.
A+

Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Yah

J'ai une erreur "Objet requis".
Ce que je voulais faire dans cette macro :
Sur une plage de donnée, créer un tableau avec comme style TableStyleLight2 et avec les totaux.

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Beh oui... voir poste précédant, remarque 3

Yah

J'ai repris exactement le code que tu m'as donné. C'est avec ce code que j'ai cette erreur d'Objet requis.
Pourquoi est ce que j'ai cette erreur ?
Voila le code que j'ai.

Dim ListOb As ListObject

Sheets(Sheet).Activate
Range(Cells(LD, CD), Cells(LF, CF)).Select
Set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD,CD), Cells(LF, CF)), , xlYes).Name = Titre
ListOb.TableStyle = "TableStyleLight2"
ListOb.ShowTotals = True
Exit Sub

J'me suis pas pris la tête avec un objet qui aurait le même nom pour le moment

Réponse 4 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

sur quel ligne ?

Yah

A partir de
Set ListOb = ListObjects.Add(xlSrcRange, Range(Cells(LD,CD), Cells(LF, CF)), , xlYes).Name = Titre

Yah

Lermite22, pas d"idée ?

Réponse 6 / 7

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bon, mon exemple précédant est bon sauf les paramètres, mais je pensais que tu les avais vérifier.
Un code qui fonctionne ??..

Dim listOb As ListObject 
    Set listOb = ActiveWorkbook.Sheets(3).ListObjects.Add(SourceType:=xlSrcRange, Source:=Range("B3:G18")) 
    listOb.Name = "Démo Titre" 
    listOb.TableStyle = "TableStyleLight2" 
    listOb.ShowTotals = True

Adapter le N° ou nom de la feuille et la plage.
Pour passer sans erreur vaux mieux que la feuille de destination soit active, sinon la nommer dans la plage.
A+
PS : Si tu veux modifier les paramètres de la liste après, tu peu employer sont Nom ou son Index ou déclarer la variable ListOb en public (dans un module.bas)

Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Yah

Quand je lance une fois, cela fonctionne.
En revanche, si je supprime la feuille, que je refais un tableau et que je réexécute la macro j'ai le message d'erreur suivant "L'objet invoqué s'est déconnecté de ses clients" et c'est comme-ci la macro avait sélectionner le tableau + 1 ligne en dessous.

Yah

C'est bon en fait, j'avais rééxécuté ma premiere macro.
Tout fonctionne normalement.
Merci

Discussions similaires

VBA Excel Supprimer cellule dans une colonne

Excel VBA : Syntaxe SUMIF

Excel suppression de lignes contenant "0"

Creer une nouvelle feuille VBA EXCEL

Syntaxe VBA Sheets.Range avec Range variable

envoie 1 feuille spécifique excel vers messag

Votre réponse

Discussions similaires