Utiliser deux fois la même function sur excel
Fermé
yazou
Messages postés
86
Date d'inscription
mardi 7 novembre 2006
Statut
Membre
Dernière intervention
2 novembre 2022
-
6 mars 2011 à 12:35
g Messages postés 1263 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 6 mars 2011 à 13:29
g Messages postés 1263 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
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Deux comptes whatsapp - Guide
- Qu'est ce qu'une femme fait 3 fois par jour - Forum Loisirs / Divertissements
1 réponse
g
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
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.