XL 2010 probleme de validation par liste avec vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

moialbert2

XLDnaute Nouveau
Bonjour a tous
Avec Excel 2007 je crée une liste de validation sur une cellule avec des données dans un autre fichier cf le code ci après
Sub majListeNRA()
Dim findc As Integer
Dim txt As String
If dc4 Then
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 6).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!f1:f" & findc

Else
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 9).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!I1:I" & findc
End If

With Workbooks(ficData).Sheets(4).Cells(10, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=txt
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub
"ficmacro" est une variable contenant le nom du fichier ou sont les données devant servir a remplir la liste
avec la version 2007 aucun pb par contre sur 2010 le code plante sur la ligne add avec la propriété Formula1
Si quelqu'un a une idee ??

En direct dans l'interface d'Excel 2010 je ne peut pas aller chercher la plage pour remplir la liste dans un autre fichier
PB de version ou de syntaxe je ne pas travailler sr 2010 c'est le micro du boulot de ma femme avec Excel sur le serveur distant
Merci de toute info
 
Bonjour,
Vous pouvez vous inspirer de
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
Attention, le classeur des données doit rester ouvert ...
Bonjour
Je suis allé ,j'ai vu mais je suis vaincu
cela me plante Excel complètement ou me dit que la source du nom est erronée
Merci
Apres le plantage le fichier est nommé fichier.xls (récupéré automatiquement) au lieu de fichier.xls
Apres correction du nom dans le fichier de validation je change de nom moi aussi maintenant je m'appelle CESAR car là j'ai vaincu
Merci de l'aide
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
793
  • Question Question
Microsoft 365 Formules
Réponses
2
Affichages
660
Réponses
3
Affichages
534
Retour