Bonjour , je vient encore solliciter votre aide :
Quand je colle plusieurs cellules le code suivant ne s'exécute pas :
Comment pouvoir appliquer ce code même si plusieurs cellules sont collées
Quand je colle plusieurs cellules le code suivant ne s'exécute pas :
Code:
If Not Application.Intersect(Target, Range("V6:V16")) Is Nothing Then
Dim MaCellule As Range
ActiveSheet.Unprotect 'Déprotège les cellules
Range("V6:W15").Select
Selection.Locked = False
Selection.FormulaHidden = False
For Each MaCellule In Range("B6:B27,G6:G30,L6:L37,Q6:Q39")
If MaCellule.Value = Target.Value Then
Application.Calculation = xlAutomatic
Target.Offset(0, 1).Value = MaCellule.Offset(0, 3).Value
ActiveSheet.Unprotect
MaCellule.Offset(0, 0).Font.Underline = xlUnderlineStyleSingle
End If
Next MaCellule
End If
Comment pouvoir appliquer ce code même si plusieurs cellules sont collées