Regrouper plusieurs macro conditionnelles en une même sentence

[Magic_Doctor]

Bonsoir,

J'ai dans une feuille plusieurs cellules qui, quand on clique dessus, déclenchent toutes le même événement.

Dans le module de la feuille, voici ce que j'ai écrit :

Private Sub Worksheet_Change(ByVal Target As Range)

'Pour la cellule "DilNbUXFl1"
If Not Application.Intersect(Target, [DilNbUXFl1]) Is Nothing Then
Application.EnableEvents = False

If ControleSaisie([DilNbUXFl1], 1) = 1 Then [DilNbUXFl1] = "? ? ?" '---> Contrôles saisies

End If

'Pour la cellule "DilVolS1a"
If Not Application.Intersect(Target, [DilVolS1a]) Is Nothing Then
Application.EnableEvents = False

If ControleSaisie([DilVolS1a], 1) = 1 Then [DilVolS1a] = "? ? ?" '---> Contrôles saisies

End If

'et ceci pour une quinzaine de cellules

Application.EnableEvents = True
End Sub

Ça marche.

---------------------------------------------

Plutôt que de réécrire sempiternellement la même sentence, j'ai essayé ceci :

'Pour les cellules "DilNbUXFl1", "DilVolS1a"...
If Not Application.Intersect(Target, [DilNbUXFl1], [DilVolS1a],...) Is Nothing Then
Application.EnableEvents = False

If ControleSaisie([DilNbUXFl1], 1) = 1 Then
[DilNbUXFl1] = "? ? ?"
ElseIf ControleSaisie([DilVolS1a], 1) = 1 Then
[DilVolS1a] = "? ? ?"
.
.
.
End If


End If

Ça ne marche pas.
Comment résoudre ce problème ?

Merci d'avance.

 

[skoobi]

Re : Regrouper plusieurs macro conditionnelles en une même sentence

Bonjour Magic_Doctor,

ceci devrait marcher:

If Not Intersect(Target, [COLOR=Blue][B]Range("DilNbUXFl1,DilVolS1a"[/B][/COLOR])) Is Nothing Then

 

[soenda]

Re : Regrouper plusieurs macro conditionnelles en une même sentence

Bonsoir le fil, MagicDoctor

Un exemple avec "SelectCase" et "Target.Address" (à adapter)

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    Application.EnableEvents = False
 
    Select Case Target.Address
        Case "$D$3"
            ' code
        Case "$F$4"
            ' code
        Case "$B$7"
            ' code
        ' ...
 
    End Select
 
    ' . . .
 
    Application.EnableEvents = True
 
End Sub

A plus

Edition : Oups! Bonsoir Skoobi

 

[Guest]

Re : Regrouper plusieurs macro conditionnelles en une même sentence

Bonsoir,

N'apporte rien au fil (comme dirait un certain frèrot), mais juste pour le plaisir de saluer l'ami Skoobi😀😀😀

A+
A+++Skoobi

 

[Magic_Doctor]

Re : Regrouper plusieurs macro conditionnelles en une même sentence

Merci Skoobi & Soenda, bonsoir Hasco,

J'ai fait une synthèse de ce que m'ont proposé Skoobi & Soenda, et ça marche très bien :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("DilNbUXFl1, DilVolS1a,...")) Is Nothing Then
Application.EnableEvents = False

If ControleSaisie(Target, 1) = 1 Then Target = "? ? ?"

Application.EnableEvents = True
End If

End Sub

"ControleSaisie" étant une petite fonction que j'ai rédigée, permettant de contrôler les saisies. Si celles-ci sont erronées ---> "? ? ?"

Très bonne fin de soirée et encore merci.