2 questions : suppr. motifs / liste de choix

[Stefan]

Bonjour,

1) Je n'arrive pas à supprimer les motifs de mes cellules. Voici la ligne de code que j'utilise :
Range('GN33:HE932').Interior.Pattern = xlPatternNone

2) Dans mon programme, j'utilise 'liste de choix'
avec des infos venant d'une autre feuille, ce qui entraine de passer par le menu 'Données, Validation puis Liste et Données' et faire chacune des cellules désirées à la main.
Y a-t-il un moyen d'automatiser cette manipulation ?

Mille Merci
Stefan

 

[ERIC S]

Bonjour

pour les pattern si tu joins un morceau de fichier je regarderai mais je n'ai pas de solution préconçue

pour les listes de choix, si tes cellules constituant la liste sont consécutives:

tu nommes ta liste ex: essai

tu sélectionnes tes cellules 'avec validation à faire'

données validation liste
=essai
si la longueur de ta liste peut évoluer il y a des solutions

A+

 

[Stefan]

Bonjour Eric,

Merci pour ta réponse ultra rapide.

Suite à ta réponse, tu m'as donné une idée.
J'ai reporté le morceau de code (que j'ai précedement copier dans ce message) dans une nouvelle feuille et il fonctionne. Je vais rechercher du côté des ActiveSheet.

Pour la liste je n'ai pas compris comment appliquer ton expliction.
Voici ce que j'ai fait:
1)Dans ma feuille 'Data' j'ai appliqué un nom à ma colonne et je lui ai défini cette formule:
=DECALER(Data!$A$2:$A$2;;;NBVAL(Data!$A:$A))
2) Dans ma feuille 'Planning' j'ai selectionné mes celulles (qui se suivent) et j'ai appliqué un nom (essai, par exemple).

Par contre, je n'ai pas réussi à faire l'étape suivante:
> tu sélectionnes tes cellules 'avec validation à faire'
> données validation liste
> =essai

Stefan

 

[ERIC S]

re

ton point 1, on imagine que le nom donné est 'toto'


2) Dans ta feuille 'Planning' tu sélectionnes tes cellules

puis données validation liste
=toto

tes cellules sélectionnées prendront toutes le même critère (liste toto)

A+

 

[Stefan]

Bonjour Eric,

Merci pour ton aide, cela fonctionne bien.

Stefan