Selection de cellules pour validation de donnees

Bonjour à tous,

Je crée une macro pour sélectionner une plage de cellule (colonne sans les lignes de titre) et faire une validation de donnees Liste. Je fais une validation de données sur de nombreuses colonnes.

J'ai deux problèmes/questions :

- la selection des cellules ne se fait pas correctement. La premiere selection est conservee et y sont ajoutees les cellules de ma deuxieme selection et cela continue ainsi jusqu'à ce que finalement toutes les cellules de validation se retrouvent avec la liste qui devrait normalement n'etre que sur la derniere colonne.
J'imagine qu'il faut une ligne pour deselectionner la selection avant de selectionner d'autres cellules ? (ou peut etre ai-je un probleme dans mon code pour selectionner les lignes?) Voir l'extrait de mon code en fin de post.

- si j'ai plusieurs plages de cellules auxquelles je veux attribuer la meme liste, comment puis je ecrire cette ensemble de cellules ?
Par exemple je veux que les cellules de B15 à la fin et les cellules de E15 à la fin, aient la liste Yes No.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Range("B15", Selection.End(xlDown)) And Range("E15", Selection.End(xlDown)).Select 'cela ne fonctionne pas, mais c'est pour illustrer ce que j'essaie de faire.   .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=List_Yes_No" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

Merci
Ambre


Extrait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Range("B15", Selection.End(xlDown)).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=List_HMG" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With   Range("C15", Selection.End(xlDown)).Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=List_Buyers" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

Tu selectionnes ton range avec ça:

Code:

---

Set userrange = Application.InputBox(prompt:="Please Select Range", Title:="Range Select", Type:=8)

---

Ton numéro de ta dernière ligne de ta selection sera:

Code:

---

MsgBox (userrange.Rows.Count + 14)

---

Bonjour,

pour le n° de la dernière ligne ceci est plus sûr : userrange.Rows(userrange.Rows.Count).Row …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour et merci à vous deux mais je voudrais que la selection (et validation) des cellules se fassent automatiquement. La boite de dialogue n'est pas vraiment pratique dans mon cas car j'ai plus de 19 colonnes pour lesquelles je souhaite faire la validation de donnees.

En fait dans un premier temps, des lignes sont inserees dans un tableau (avec une macro) sauf que les cellules des nouvelles lignes n'ont pas les listes deroulantes, et avec la macro (dont je parle dans ce post)je souhaite refaire la validation des cellules à chaque fois qu'un groupe de ligne est inséré pour les nouvelles cellules aient leur liste deroulante.
J'ajoute que je suis debutante en VBA

J'espere que c'est plus clair.

Code:

---

Range("B15:B" & .range("B" & rows.count).end(xlup).row)

---

Citation:

---

Envoyé par AmbreM

Bonjour et merci à vous deux mais je voudrais que la selection (et validation) des cellules se fassent automatiquement. La boite de dialogue n'est pas vraiment pratique dans mon cas car j'ai plus de 19 colonnes pour lesquelles je souhaite faire la validation de donnees.

En fait dans un premier temps, des lignes sont inserees dans un tableau (avec une macro) sauf que les cellules des nouvelles lignes n'ont pas les listes deroulantes, et avec la macro (dont je parle dans ce post)je souhaite refaire la validation des cellules à chaque fois qu'un groupe de ligne est inséré pour les nouvelles cellules aient leur liste deroulante.
J'ajoute que je suis debutante en VBA

J'espere que c'est plus clair.

---

Si je comprends bien tu as une macro pour insérer des lignes et une seconde pour affecter une liste de validation.

Dans ce cas la seconde doit être appelée par la première juste après l'insertion,
comme cela tu appliques le seconde directement sur ta selection courante.

Je te laisse adapter le code ci dessous qui illustre ce que je dis à ton cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Macro1Insertion()   ActiveSheet.Range("A7:R12").Select Selection.Insert Shift:=xlDown Call Macro2Validation(Selection, "List_Yes_No")   End Sub     Sub Macro2Validation(Target As Range, Mylist As String)   With Target.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=" & Mylist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With   End Sub

---