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
Bonjour,

J'ai cette fonction sous excel :

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
Next Cell
End Sub


Elle sert à rajouter automatiquement la date dans la colonne B lorsque un champs de la colonne E est rempli...

Je veux faire la même chose avec la colonne C et la colonne H dans la même feuille excel..j'ai simplement essayé de redéclarer la fonction sous un autre nom et changé le nom des colonnes mais cela ne marche pas. Pourriez vous me dire comment ça marche ?
Merci



A voir également:

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
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.
0