Activer Copier/Coller Résolu/Fermé

Question

Salut, J'ai réalisé une macro pour afficher un message d'alerte sur une feuille (CT) quand une donnée est sélectionnée sur une liste déroulante. J'ai plusieurs tableaux dans la même feuille. Le message s'affiche qu'une seule fois, d'où l'utilisation de cette macro. Cependant je ne peux pas utiliser le copier/coller sur ma feuille quand j'applique la macro. Pouvez-vous m'aider à ce sujet ? Merci :) Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Message d'alerte shift 2x8 Tableau PHB If Range ("J3") = "2x8" Then 'Cellule Z3 dans Feuille CT If Cells (3, 26) <> "OK" Then MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift PHB" Cells (3, 26) = "OK" End If Else Cells(3, 26).Clear End If 'Message d'alerte shift 2x8 Tableau PDB If Range ("J12") = "2x8" Then 'Cellule Z4 dans Feuille CT If Cells(4, 26) <> "OK" Then MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift PDB" Cells(4, 26) = "OK" End If Else Cells(4, 26).Clear End If 'Message d'alerte shift 2x8 Tableau Essai If Range("J29") = "2x8" Then 'Cellule Z5 dans Feuille CT If Cells(5, 26) <> "OK" Then MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift Essai" Cells(5, 26) = "OK" End If Else Cells(5, 26).Clear End If

gbinforme · Answer

Bonjour, 
 
Je te propose de remplacer ta procédure par celle-ci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Union(Range("J3"), Range("J12"), Range("J29"))) Is Nothing Then
'Message d'alerte shift 2x8 Tableau PHB
    If Target = "2x8" Then
        Dim lig As Long
        lig = IIf(Target.Row = 3, 3, IIf(Target.Row = 12, 4, 5))
                'Cellule Z3/4/5 dans Feuille CT
        If Cells(lig, 26) <> "OK" Then
            MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift PHB"
            Cells(lig, 26) = "OK"
        End If
    Else
        Cells(lig, 26).Clear
    End If
End If
End Sub


Elle ne se déclenche que lorsque ton code est saisi et ne gène pas la copie.

Activer Copier/Coller

1 réponse

Discussions similaires