Formule
Résolu/Fermé
A voir également:
- Formule
- Formule si et - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel - Guide
- Formule moyenne excel - Guide
- Excel mise en forme conditionnelle formule - Guide
1 réponse
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
573
29 avril 2012 à 14:26
29 avril 2012 à 14:26
Bonjour,
Code VBA à copier dans le module de feuille accessible par Alt+F11 et valable pour les rangées de 2 à 100 (adaptable):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Range("B" & i) = "A" Then
Range("A" & i) = Date
End If
Next i
End Sub
Bonne journée.
Code VBA à copier dans le module de feuille accessible par Alt+F11 et valable pour les rangées de 2 à 100 (adaptable):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Range("B" & i) = "A" Then
Range("A" & i) = Date
End If
Next i
End Sub
Bonne journée.
29 avril 2012 à 15:28
J'ai deux colonnes soit Colonne "A "à laquelle j'aimerais que la date s'affiche automatiquement quand......dans la colonne "C" il y a un menu deroulant avec 3 choix ( i.e carton,papier ,plastic) mais il y a aussi une mise en forme conditionnel dans la colonne de 'C" si je choisi carton la case devient rouge, moi je veux quand la case devient rouge la colonne de "A" affiche la date automatiquement.
Voila
merci encore
29 avril 2012 à 15:49
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Range("C" & i) = "carton" Then
Range("A" & i) = Date
ElseIf Range("C" & i) <> "carton" Then
Range("A" & i) = ""
End If
Next i
End Sub
Bon courage.
1 mai 2012 à 14:38
merci encore
Modifié par michel_m le 1/05/2012 à 14:49
-tu fais un copier de la macro de notre ami g(bonjour)
-clic droit sue l'onglet (nom de la feuille)
-visualiser le code
-coller
la macro se déclenchera lorsque tu cliqueras dans la colonne C de la ligne 2 à la ligne 100
1 mai 2012 à 16:27
Dean