Code pour activer ou desactiver un autre code
Bonjour le Forum!!!!
je vous sollicite encore pour de l'aide sur un problème pour desactiver un code afin de pouvoir insérer des ligne.
je joint un fichier exemple avec des informations complémentaires sur ma demande.
en vous remerciant d'avance je vous souhaite une bonne journée
Bonjour,
Essaie ainsi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLig As Long
If Target.Count > 1 Then Exit Sub
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
If Intersect(Target, Range("D3:D" & DerLig & ",F3:F" & DerLig & ",H3:H" & DerLig & ",J3:J" & DerLig & ",L3:L" & DerLig & ",N3:N" & DerLig & ",P3:P" & DerLig & ",R3:R" & DerLig & ",T3:T" & DerLig & ",V3:V" & DerLig & ",X3:X" & DerLig & ",Z3:Z" & DerLig & ",AB3:AB" & DerLig & ",AD3:AD" & DerLig & ",AF3:AF" & DerLig & ",AH3:AH" & DerLig & ",AJ3:AJ" & DerLig & ",AL3:AL" & DerLig & ",AN3:AN" & DerLig & ",AP3:AP" & DerLig & "")) Is Nothing Then Exit Sub
Target.Value = "1"
End SubBonne journée
Bonjour Cousinhub!!
Merci pour ton aide, sur l'exemple cela fonctionne parfaitement, je test sur mon fichier final avant déclarer "Résolu"
bonne journée et encore merci