ozzii
XLDnaute Junior
Bonjour,
À mon travail nous sommes passé sous Office 365.
Avant (office 2010) cette macro fonctionnais, mais plus maintenant.
J'ai une erreur au niveau du ".Add Type" :
Et j'ai bien cela dans Noms :
"HOTELS" en étendu classeur
Je ne comprends pas pourquoi cette erreur. Une idée ???
Merci par avance.
À mon travail nous sommes passé sous Office 365.
Avant (office 2010) cette macro fonctionnais, mais plus maintenant.
J'ai une erreur au niveau du ".Add Type" :
VB:
If Sheets(i).Name <> "Donnees" Then
Range("B2").Select
With Selection.Validation
'.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=HOTELS"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Et j'ai bien cela dans Noms :
"HOTELS" en étendu classeur
Code:
=DECALER(Donnees!$A$1;;;NBVAL(Donnees!$A:$A);1)
Je ne comprends pas pourquoi cette erreur. Une idée ???
Merci par avance.