union Zone de Nom ???

[titin]

bonjour à tous

je cherche à faire l'union de 3 zone de noms:
'saisie1','saisie2','saisie3'
pour être utiliser dans la macro ci dessous.
je bloque complètement.
cette procédure est utilisé pour éditer une double liste de validation

merci pour votre aide


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Static IsOn As Boolean
If IsOn Then
IsOn = False
Exit Sub
End If
Set Isect = Application.Intersect(Target, Range('Saisie'))
If Isect Is Nothing Then Exit Sub
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If .Value = '' Then Exit Sub
Range('A1').Value = .Value
With .Validation
.Modify Formula1:='=ListeNom'
End With
End With
SendKeys '%{DOWN}', False
IsOn = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Isect As Range
Set Isect = Application.Intersect(Target, Range('Saisie'))
If Isect Is Nothing Then Exit Sub
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
With .Validation
.Modify Formula1:='=ListeAlpha'
End With
End With
SendKeys '%{DOWN}', False
End Sub

 

[Charly2]

Bonsoir titin,

Tu peux essayer ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim oZoneSaisie As Range
Dim Isect As Range
Static IsOn As Boolean
'
  If IsOn Then
    IsOn = False
    Exit Sub
  End If

  Set oZoneSaisie = Union(Range('Saisie1'), Range('Saisie2'), Range('Saisie3'))
  Set Isect = Application.Intersect(Target, oZoneSaisie)

  If Isect Is Nothing Then Exit Sub

  With Target
    If .Count > 1 Then Exit Sub
    If .Value = '' Then Exit Sub

    Range('A1').Value = .Value
    With .Validation
      .Modify Formula1:='=ListeNom'
    End With
  End With

  SendKeys '%{DOWN}', False
  IsOn = True
End Sub

' *******************

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim oZoneSaisie As Range
Dim Isect As Range
'
  Set oZoneSaisie = Union(Range('Saisie1'), Range('Saisie2'), Range('Saisie3'))
  Set Isect = Application.Intersect(Target, oZoneSaisie)

  If Isect Is Nothing Then Exit Sub

  With Target
    If .Count > 1 Then Exit Sub
    With .Validation
      .Modify Formula1:='=ListeAlpha'
    End With
  End With

  SendKeys '%{DOWN}', False
End Sub

Tiens-nous au courant...

A+

 

[titin]

Merci Charly2 pour ta réponse.
mais je n'arrive pas à faire fonctionner cette double validation.
la 1er liste de validation apparait 'ListeAlpha'
mais la cellule A1 ne se modifie pas aprés le choix de la lettre.
la listeNom de vient pas ne vient pas en 2ème choix
y a t'il une référence particuliaire à donner à 'A1' ?
j'ai fais des essais sur cellules fusionnées puis j'ai changé sur des cellules simples mais c'est pareil.(pour cellule validation)
j'ai bien mes zones nomées:
Initiale
ListeAlpha
ListeNom

merci encore

 

[Charly2]

Bonjour titin, bonjour à toutes et à tous

titin, peut-être pourrais-tu joindre un fichier exemple...

A+

 

[titin]

bonjour

je l'alège un peu et je l'envoi dans un petit moment

merci

 

[titin]

Salut Charly2
en voulant alèger mon fichier je me rend compte que la double validation fonctionne maintenant.

-j'ai suprimé une feuille
-annulé des liste de validation simple

le nombre de feuille pose t'il problème ??
ne faut-il pas spécifier l'adresse de la cellule 'A1' ?? -->feuil!A1

je vais recomposé mon fichier et voir ce que cela donne

 

[titin]

bonsoir à tous et en particulier Charly2 s'il repasse par là.
ma liste de double validation fonctionne en partie mais reste bloquée sur le 2ème choix.
je m'explique:
dans la cellule de validation le 1er choix s'affiche, je choisi une lettre, le 2ème choix s'affiche, je choisi un mots qui s'incrémente.
si je veux effacer ce mot la liste 2ème choix reste, je ne parviens plus à obtenir la liste Alpha.
sur un petit fichier sa marche bien.
mon fichier comporte de nombreuses liste de validation.
n'y a t'il pas un moyen de forcé la liste de validation à afficher la listeAlpha quand la cellule sélectionnée est vide.
c'est a dire mon choix dans la cellule est bloqué, j'efface la cellule, je resélectionne la cellule et là, la cellule affiche la liste 1er choix ( donc quand cellule vide afficher 1er choix).

merci pour votre aide

 

[Charly2]

re titin,

J'ai beau essayer de reproduire ce que tu expliques, je n'y parviens pas. Je crois vraiment qu'un fichier, même s'il fonctionne, pourrait nous aider à t'aider

A+

 

[titin]

bonjour Charly2

voila ci joint le fichier
si tu peut jeter un oeil.
tu constatera le blocage sur le 2éme choix de validation.
lorsque la cellule avec double validation est bloqué, je vais dans le menu validation de cette cellule et un message me dit 'la sélection contient plus d'un type de validation'

merci [file name=titin.zip size=45713]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/titin.zip[/file]

 

[Charly2]

Bonsoir Titin

Dis-nous si le fichier joint te convient...



A+

 

[Charly2]

Oups, le fichier :unsure:

Ne pas oublier la formule en B1...



A+

 

[Charly2]

Bonsoir titin,

Vérifie si la pièce jointe correspond à ta demande...



A+

 

[titin]

salut charly2

je ne vois pas ton fichier joint !!


merci

 

[Charly2]

Bonjour titin,

Je suis désolé, j'avais laissé un espace dans le fichier :S :whistle:

J'espère que celui-ci va passer (très proche des 50 Ko)...

[file name=essai_titin.zip size=50245]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_titin.zip[/file]

EDITION : Tu modifieras au besoin l'initialisation de ta zone de saisie (var globale oZoneSaisie) qui contient toutes les cellules OP 1 à 12 jusqu'à la ligne 524...

A+

Message édité par: Charly2, à: 24/02/2006 13:22

 

[titin]

merci charly2 pour ton fichier

çà marche super.
maintenant je vais essayer de comprendre ce que tu à apporté en modifications.

si tu à encore un peu de temps à me consacré peu tu me faire quelques commentaires sur tes lignes


merci mille fois