Bonjour Vincent, le Forum
Alors on met le "Why" !! lol
Pour cette question qui a atterri ailleurs :
Auteur: vincent (194.206.220.---)
Date: 23-07-03 11:07
Bonjour à tous.
J'ai une question piège pour thierry, après avoir trouver comment éxécuter la macro en automatique, j'ai eu besoin d'en insérer une deuxième identique or, quand je veus la faire éxécuter en automatique, ca bloque tu saurais pas pourquoi par hasard?
A bientôt j'éspère
Ben tu vas avoir à modifier pas mal de trucs, mais au départ c'est surtout l'évènementielle sur laquelle il faut travailler comme suit :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A30 ")) Is Nothing Then
On Error Resume Next
If Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Else
ActionListAA
End If
End If
If Not Application.Intersect(Target, Range("F2:F30 ")) Is Nothing Then
On Error Resume Next
If Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Else
ActionListFF
End If
End If
End Sub
L'ideal pour ActionAA ou ActionFF serait de reprendre complètement la macro ListeRechercheV qui serait la même paramétrée différemment selon des variables, mais là franchement je n'ai pas le temps... Donc tu peux simplement dédoubler cette macro en deux macro (ActionListAA et ActionListBB qui agiront chacune sur les plages et les références choisies...)
Bon Courage
Et retiens bien Vincent, qu'il ne faut pas dédoubler les Posts
Bon aprèm
@+Thierry