Modifier code si possible
Résolu
jean300
Messages postés
382
Statut
Membre
-
jean300 Messages postés 382 Statut Membre -
jean300 Messages postés 382 Statut Membre -
Bonjour,
Je vous voudrai modifier ce code afin qu'il ne s'exécute pas en B1, B3 ni en D1:D3
D'autre part, si B2=X que dans le champ nommé MailCc s'inscrive un X
En vous remerciant.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or 4 Then
End If
If Target.Column = 2 Or 4 Then
Target = "X"
Target.Offset(0, 1).Select
End If
End Sub
Je vous voudrai modifier ce code afin qu'il ne s'exécute pas en B1, B3 ni en D1:D3
D'autre part, si B2=X que dans le champ nommé MailCc s'inscrive un X
En vous remerciant.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or 4 Then
End If
If Target.Column = 2 Or 4 Then
Target = "X"
Target.Offset(0, 1).Select
End If
End Sub
2 réponses
-
Bonjour,
Déjà .. pour tes conditions... il faut remettre la condition COMPLETE dans chaque ORIf Target.Column = 2 Or Target.Column=4 Then
Ensuite ... pour répondre à ta question.... regarde la méthode INTERSEC
https://forum.excel-pratique.com/viewtopic.php?forum_uri=cours-astuces&t=1314&start=
-
Bonjour jordane45,
Je te remercie vivement pour ton intervention ainsi que pour le lien donné.
Au plaisir.
