Formule Aujourd'hui [Excel]
Résolu/Fermé
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
-
6 juin 2011 à 15:10
olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 6 juin 2011 à 21:52
olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 6 juin 2011 à 21:52
A voir également:
- Formule aujourd'hui excel ne fonctionne pas
- Formule excel - Guide
- Liste déroulante excel - Guide
- Probleme de reception tnt aujourd'hui 2023 - Guide
- Formule moyenne excel - Guide
- Formule excel si et - Guide
3 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
6 juin 2011 à 15:37
6 juin 2011 à 15:37
Salut,
En VBA seulement
clic droit sur l'onglet de ta feuille/Visualiser le code dans la partie vide
colle ce code qui inscrira la date dans tes colonnes de J à P si tu as saisie une donnée en I
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Target <> "" Then Range(Target.Offset(0, 1), Target.Offset(0, 7)) = Date
End If
End Sub
En VBA seulement
clic droit sur l'onglet de ta feuille/Visualiser le code dans la partie vide
colle ce code qui inscrira la date dans tes colonnes de J à P si tu as saisie une donnée en I
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
If Target <> "" Then Range(Target.Offset(0, 1), Target.Offset(0, 7)) = Date
End If
End Sub
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
6 juin 2011 à 21:28
6 juin 2011 à 21:28
Re,
pour faire simple et te permettre de modifier le code (concerne les plages de la ligne 1 à 100
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
pour faire simple et te permettre de modifier le code (concerne les plages de la ligne 1 à 100
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
1
6 juin 2011 à 21:43
6 juin 2011 à 21:43
Dernière petite question, si je copie le classeur contenant ce code, est-ce que ça copie ce code ?
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
6 juin 2011 à 21:50
6 juin 2011 à 21:50
Re,
Si tu enregistres sous le fichier oui le code est copié
si tu fais un copier/coller du fichier également
mais tu auras aussi vite fait de modifier les plages dans le code exemple pour
Range("I2:I100") si tu veux que la plage de déclenchement couvre de I2 à I1500 Range("I2:I1500")) etc
ensuite un simple clic droit sur l'onglet de feuille concernée/Visualiser le code et coller le code
Si tu enregistres sous le fichier oui le code est copié
si tu fais un copier/coller du fichier également
mais tu auras aussi vite fait de modifier les plages dans le code exemple pour
Range("I2:I100") si tu veux que la plage de déclenchement couvre de I2 à I1500 Range("I2:I1500")) etc
ensuite un simple clic droit sur l'onglet de feuille concernée/Visualiser le code et coller le code
olympiklyon
Messages postés
63
Date d'inscription
dimanche 21 novembre 2010
Statut
Membre
Dernière intervention
8 octobre 2012
1
6 juin 2011 à 21:52
6 juin 2011 à 21:52
Merci beaucoup de ton aide !!!
6 juin 2011 à 20:26
Je me suis peut-être mal exprimer. J'aimerais que J agisse seulement avec I, L avec K, N avec M et P avec O !!