XL 2021 problème de VBA avec name

Bonjour,

name est un object Excel, ne peut pas etre pris en tant que variable

Bonjour à toutes & à tous, bonjour @C'est Génial ,
Même remarque que @Oneida,
Essaie
For each nom in uniqueNames
CleanName =CleanSheetName(nom)
...
À bientôt

Bonjour C'est Génial, Oneida, AtTheOne,

Chez moi sur Win 11 Excel 2019 name peut être utilisé comme variable, cette macro va bien :
A+

Bonjour @job75
Oups ! Je suis sur mon téléphone, pas de VBA, j'ai plongé la tête la première sans pouvoir vérifier !
À bientôt

Par contre j'obtiens une erreur de compilation si la macro est dans le code d'une feuille de calcul et si la variable name n'est pas déclarée avec Dim.

job75 à dit:

Par contre j'obtiens une erreur de compilation si la macro est dans le code d'une feuille de calcul et si la variable name n'est pas déclarée avec Dim.

Cliquez pour agrandir...

ben oui voila
si la variable n'est pas déclarée c'est la propriété name qui est interprété par vba (donc erreur)
donc je plussoie @Oneida
(PAS DE VARIABLES AYANT LE MÊME ORTHOGRAPHE QU UNE PROPERTY OU MEMBRE DUN OBJECT)

Bonjour à tous,
Mon problème du dessus est résolu
maintenant j'ai un autre problème sur mon calendrier
Sub Init_Cal(Optional Dt As Date) qui se met en jaune avec l'erreur .Label_MY.Caption = Format(Dt, "mmmm yyyy") "
Merci à tous pour votre aide


Sub Init_Cal(Optional Dt As Date)
Dim Annee As Integer, Mois As Byte
Dim index As Byte, i As Integer, j As Integer, d As Date
Dim T As Variant, idx As Byte

With UserForm1
Dt = IIf(Dt = 0, Now, Dt)
.Label_MY.Caption = Format(Dt, "mmmm yyyy") "
Annee = Year(Dt)
Mois = Month(Dt)
index = Weekday(DateSerial(Annee, Mois, 1)) - 1
If index = 0 Then index = 7
T = TFeries(Annee)
idx = 0
For i = 0 To 41
d = DateAdd("d", i - index + 1, DateSerial(Annee, Mois, 1))
Jrm(i) = d
With .Controls("J" & i + 1)
.Caption = Day(d)
.ForeColor = IIf(Month(d) = Mois, &H404040, &HC0C0C0)
.BackColor = &HFFFFFF
.ControlTipText = ""
For j = 1 To 13
If d = T(j, 1) Then
.BackColor = &HE0E0E0
.ControlTipText = T(j, 0)
End If
Next j
If d = Date Then .BackColor = &HC0FFC0
End With
idx = idx + 1
If idx = 7 Then idx = 0
Next i
End With
End Sub

Bonjour,

Relisez cet article de la Charte :

2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.

Cliquez pour agrandir...

A+

Bonjour,

C'est Génial à dit:

j'ai un autre problème sur mon calendrier

Cliquez pour agrandir...

Donc nouveau fil de discussion...

Et quand tu postes du code VBA directement dans le texte de ton message, ce serait mieux si tu utilisais la balise code avec le paramètre vb, car le code serait ainsi plus lisible.