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]

Bonjour titin,

Si tu repasses par ici, tu peux télécharger ce fichier (pratiquement toutes les données ont été effacées) dont le code est largement commenté.

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

A+ 😉