Inserer date dans cellule avec conditions OU

  • Initiateur de la discussion Initiateur de la discussion VE2LY
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

VE2LY

XLDnaute Nouveau
Re bonjour le forum.
Après avoir fait des recherches sur le sujet cité en titre j'ai bien trouvé des éléments de réponses qui fonctionnent très bien avec 1 cellule par ligne mais...

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2
Cells(Target.Row, 5) = Date
End Select
End Sub


...mais je cherche une équivalence qui ferai cela sur plusieurs cellules de ma même ligne mais pas toutes avec un OU et pas un ET Donc 1 ou l'autre des cellules A B ou C (pas D ni E) qui seraient modifiée générerons la date dans la case E.

J'espère avoir assez clairement expliqué mon problème, voir le fichier joint.
Merci de m'éclairer.
 

Pièces jointes

Bonsoir.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Intersect([A2:C5], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.EntireRow.Columns("E").Value = Date
Application.EnableEvents = True
End Sub
Bonne nuit.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
6
Affichages
299
Retour