Demande d'aide
le message ne donne pas d'info sur l'objet ?
Il précise erreur d'exécution 424
si le bouton Debug est présent sur le message, clic dessus et dit moi quel est la ligne surlignée ?
voici le message
.ColumnHeaders.Add , , "Num", 0
c'est cette partie qui est surlignée
cdt
re,
regarde au menu vba, Outils, Références
vérifie si les références suivante sont activés
Microsoft Scripting Runtime
Microsoft Visual Basic 6.0 Common Controls
Bonsoir oui ces références
sont cochées
re,
mets cette ligne en commentaire , et refait un test...
il me met cette cette ligne juste après en erreur
.ColumnHeaders.Add , , Tmp, Sh.Cells(1, C).Width
re,
peux-tu me dire la valeur de la variable Tmp au moment du bug ?
comment puis je repondre à cette question
ou trouver cette reponse ?
lorsque tu appuis sur debug, la fenêtre vba s'ouvre sur la ligne en erreur (surlignée)
à ce moment passe le curseur sur le mot Tmp pour voir sa valeur
c'est la bonne valeur, je ne comprend pas pourquoi il y a ce bug,
je vais revoir toutes les déclarations de variables, je reviens d'ici demain,
entre-temps, peux-tu vérifier si les références suivante sont bien cochées
ok merci
par la mêm occasion je suis en train d'essais la création d'onglet automatique ennn fonction d'une liste
Sub ajout_feuilles()
Dim nom, c
For Each c In Range("liste")
nom = c.Value
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Next c
End Sub
quand on met des noms commun ca marche lorsque l'on une date cela bug sais tu pourquoi
?
merci bonne soirée
vérifie si les dates ne comportent pas un de ces caractères
Les caractères suivants ne doivent pas être utilisés dans le nom de l'onglet :
< (plus petit que; less than)
> (plus grand que; greater than)
: (deux points; colon)
" (double appostrophe; double quote)
/ (slash; barre de fraction; forward slash)
\ (antislash; backslash)
| (barre verticale; vertical bar; pipe)
? (point d'interrogation; question mark)
* (astérisque; asterisk)
je mets la date en 01/01/2019
puis je change le format de la cellule en mettant mardi 1er janvier 2019
et la ca bug
que faire
il faut utiliser un format avec - et non /
comme le format iso international 2019-03-21
vérifie que ça n’inverse pas le jour et mois
nom = Format(c.Value, "dd-mm-yyyy")
re,
la référence: Microsoft Windows Common Controls 6.0
ne doit pas être marqué MANQUANT
est que tu vois cette référence dans la liste ?