Erreur 400
Bonjour,
J'ai besoin de votre aide... J'ai une macro qui insère ligne par ligne le contenu d'une bdd via un bouton. L'utilisateur a le droit de renseigner les combo et les textbox et les insérer via ce bouton sur la première ligne du tableau (ligne N2). Ensuite renseigner une autre qui fait descendre la ligne précédente sur la ligne N3 etc.
J'ai mis sur une feuille masquée les valeurs des combobox et si l'utilisateur essaie de changer le contenu d'une cellule du tableau un message d'erreur apparait.
J'ai ce code pour toutes les cellules du tableau:
With xlbdd.Range("A2")
.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(tableauTHEMATICS, ",")
End With
Sauf que si l'utilisateur veut il peut renseigner du texte "libre" sur les lignes vides en dessous de la dernière ligne remplie.
Si je change le code ci-dessus en mettant (A:A) dès que j'insère une ligne j'ai erreur 400.
Savez-vous comment je peux bloquer le remplissage des lignes vides ?
Merci d'avance
Bonjour,
Compte tenu de ton explication ... l'erreur provient probablement de l'argument : Formula1:=Join(tableauTHEMATICS, ",")
Pour t'en assurer, tu peux temporairement le remplacer par Formula1:="A,B,C" ... et tout fonctionne, c'est que tu auras identifier la cause de ton erreur ...
Bonjour,
Je viens de tester ta proposition mais ca ne fonctionne toujours pas (message d'erreur)...
Re,
Debugger à l'aveugle ... sans fichier ... est un vrai cauchemar ...
Si tu le veux, tu peux joindre ton fichier ...
Je sais que c'est difficile mais c'est une macro avec plein de données à l'intérieur et c'est confidentiel
Re,
Deux petites astuces ...
1. Vérifier le nom de ta feuille : xlbdd
2. Avant d'ajouter ta validation:
.ClearContents
.Validation.DeleteSi aucune de ces pistes ne fonctionne ... malheureusement ... je n'aurai rien d'autre à te proposer ...