Utiliser deux fois la même function sur excel
Fermé
yazou
Messages postés
85
Date d'inscription
mardi 7 novembre 2006
Statut
Membre
Dernière intervention
17 août 2023
-
6 mars 2011 à 12:35
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 6 mars 2011 à 13:29
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 6 mars 2011 à 13:29
A voir également:
- Utiliser deux fois la même function sur excel
- Utiliser chromecast - Guide
- Liste déroulante excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Comment aller à la ligne sur excel - Guide
- Si et excel - Guide
1 réponse
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
6 mars 2011 à 13:29
6 mars 2011 à 13:29
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
If Cell.Column = Range("E:E").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "B").Value = Now
Else
Cells(Cell.Row, "B").Value = ""
End If
End If
If Cell.Column = Range("H:H").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "C").Value = Now
Else
Cells(Cell.Row, "C").Value = ""
End If
End If
Next Cell
End Sub
Bonne journée.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
If Cell.Column = Range("E:E").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "B").Value = Now
Else
Cells(Cell.Row, "B").Value = ""
End If
End If
If Cell.Column = Range("H:H").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "C").Value = Now
Else
Cells(Cell.Row, "C").Value = ""
End If
End If
Next Cell
End Sub
Bonne journée.