Incrémentation date
Fermé
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
-
15 oct. 2013 à 10:19
marcoDelBo Messages postés 10 Date d'inscription mardi 15 octobre 2013 Statut Membre Dernière intervention 15 octobre 2013 - 15 oct. 2013 à 15:06
marcoDelBo Messages postés 10 Date d'inscription mardi 15 octobre 2013 Statut Membre Dernière intervention 15 octobre 2013 - 15 oct. 2013 à 15:06
A voir également:
- Incrémentation date
- Trier par date excel - Guide
- Airpods 3 date de sortie - Guide
- Trouver une date de naissance gratuit ✓ - Forum Google Chrome
- Jm date désabonnement - Forum Consommation & Internet
19 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 oct. 2013 à 10:42
15 oct. 2013 à 10:42
Bonjour marcoDelBo,
Salut Mike-31,
Un début de solution en utilisant l'évènement Change de la feuille.
A+
Salut Mike-31,
Un début de solution en utilisant l'évènement Change de la feuille.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
'Si A2 est modifiée et que B2 n'est pas renseignée, alors on inscrit la date système en B2.
If Target.Address = "$A$2" And Range("B2").Value = "" Then Range("B2") = Date
End Sub
A+
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 113
15 oct. 2013 à 11:40
15 oct. 2013 à 11:40
Re,
le code de Gyrus est un code VBA pas une formule qui doit être copié dans les propriétés de ta feuille concernée, pour cela
clic droit sur l'onglet de ta feuille/ Visualiser le code/ il faut coller le code dans la zone blanche et revenir sur ta feuille
le code de Gyrus est un code VBA pas une formule qui doit être copié dans les propriétés de ta feuille concernée, pour cela
clic droit sur l'onglet de ta feuille/ Visualiser le code/ il faut coller le code dans la zone blanche et revenir sur ta feuille
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 oct. 2013 à 14:37
15 oct. 2013 à 14:37
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
'Si une valeur de la colonne A est modifiée et que la valeur de la cellule adjacente en colonne B _
n'est pas renseignée, alors on inscrit la date système en colonne B.
If Target.Column = 1 And Range("B" & Target.Row).Value = "" Then Range("B" & Target.Row) = Date
End Sub
A+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 oct. 2013 à 15:02
15 oct. 2013 à 15:02
If Target.Column = 1 signifie "si la colonne est la colonne A".
If Target.Column = 7 signifie "si la colonne est la colonne G".
A+
If Target.Column = 7 signifie "si la colonne est la colonne G".
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 113
15 oct. 2013 à 10:23
15 oct. 2013 à 10:23
Bonjour,
En B2 as tu une formule, si oui laquelle
ensuite en B2 saisi pour tester le chiffre 1 et dis nous ce que B2 affiche
En B2 as tu une formule, si oui laquelle
ensuite en B2 saisi pour tester le chiffre 1 et dis nous ce que B2 affiche
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 10:29
15 oct. 2013 à 10:29
Merci pour cette rép rapide.
Pour l'instant, je n'ai pas de formule en B2, parce que je n'ai vu sur le sblogs que des proposition de macro qui ne correspondaient pas à ce que je cherche.
Pour l'instant, je n'ai pas de formule en B2, parce que je n'ai vu sur le sblogs que des proposition de macro qui ne correspondaient pas à ce que je cherche.
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 113
Modifié par Mike-31 le 15/10/2013 à 10:38
Modifié par Mike-31 le 15/10/2013 à 10:38
Re,
Tu n'as pas répondu à ma question, saisi en B2 le chiffre 1 et dis nous ce que la cellule affiche, il se peut qu'elle soit formatée en date
et as tu créé un code VBA dans le visual, si oui lequel
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Tu n'as pas répondu à ma question, saisi en B2 le chiffre 1 et dis nous ce que la cellule affiche, il se peut qu'elle soit formatée en date
et as tu créé un code VBA dans le visual, si oui lequel
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 10:41
15 oct. 2013 à 10:41
Ok, pardon: ça affiche: 01/01/1900, mais normal, c'est moi qui l'ai formaté en date ainsi
Non, pas de code VBA pour le moment ;-)
Non, pas de code VBA pour le moment ;-)
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 113
Modifié par Mike-31 le 15/10/2013 à 10:45
Modifié par Mike-31 le 15/10/2013 à 10:45
Re,
Salut Gyrus,
c'est ce à quoi je pensais, clic droit sur la cellule B2/Format de cellule/onglet Nombre/sélectionne Standard et OK
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Salut Gyrus,
c'est ce à quoi je pensais, clic droit sur la cellule B2/Format de cellule/onglet Nombre/sélectionne Standard et OK
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 10:45
15 oct. 2013 à 10:45
ok merci, je vais tester ça!
à +
à +
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 11:04
15 oct. 2013 à 11:04
Merci à vous 2.
Bon, c'est ma première macro pour être franc... Je ne connais pas la procédure pour utiliser change/developpeur.
Pouvez-vous me filer un lien qui décrit la marche à suivre SVP. Ca ne doit pas être complexe...
Bon, c'est ma première macro pour être franc... Je ne connais pas la procédure pour utiliser change/developpeur.
Pouvez-vous me filer un lien qui décrit la marche à suivre SVP. Ca ne doit pas être complexe...
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 113
Modifié par Mike-31 le 15/10/2013 à 11:18
Modifié par Mike-31 le 15/10/2013 à 11:18
Re,
pour reformater une cellule ou un plage tu n'as pas besoin de formule et encore moins de macro, un simple clic droit sur la sélection et suivre mon post précédent
Mais plus je regarde ta demande et moins je comprends, à partir de la cellule A2 que veux tu exactement en B2 la date courante ?
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
pour reformater une cellule ou un plage tu n'as pas besoin de formule et encore moins de macro, un simple clic droit sur la sélection et suivre mon post précédent
Mais plus je regarde ta demande et moins je comprends, à partir de la cellule A2 que veux tu exactement en B2 la date courante ?
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 11:35
15 oct. 2013 à 11:35
Mike 31,
Quand je fais clic droit, je ne peux pas rentrer la formule de Gyrus, si?
Ce que je veux en B2, c'est la date à laquelle j'ai rentré manuellement une valeur dans A2.
Quand je fais clic droit, je ne peux pas rentrer la formule de Gyrus, si?
Ce que je veux en B2, c'est la date à laquelle j'ai rentré manuellement une valeur dans A2.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 oct. 2013 à 12:37
15 oct. 2013 à 12:37
Un exemple pour agrémenter la discussion
https://www.cjoint.com/?CJpmKjRLRmO
A+
https://www.cjoint.com/?CJpmKjRLRmO
A+
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 13:42
15 oct. 2013 à 13:42
Effectivement, j'ai vu que ça fonctionnait, mais étendre la formule à 2 colonnes, comment transformez vous le code?
Merci à vous 2.
Merci à vous 2.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
15 oct. 2013 à 14:03
15 oct. 2013 à 14:03
Heu ! étendre la formule à 2 colonnes, c'est un peu vague, non ?
Tu as remarqué que l'on peut joindre un exemple de classeur pour préciser le résultat attendu ... c'est une option pour étayer le propos.
A+
Tu as remarqué que l'on peut joindre un exemple de classeur pour préciser le résultat attendu ... c'est une option pour étayer le propos.
A+
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
Modifié par marcoDelBo le 15/10/2013 à 14:30
Modifié par marcoDelBo le 15/10/2013 à 14:30
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 14:55
15 oct. 2013 à 14:55
Merci de votre aide!
Dernier point: je ne vois pas apparaître "A" dans votre code.
Que faut-il modifier si la colonne des montants n'est pas en "A" mais en "G"?
Dernier point: je ne vois pas apparaître "A" dans votre code.
Que faut-il modifier si la colonne des montants n'est pas en "A" mais en "G"?
marcoDelBo
Messages postés
10
Date d'inscription
mardi 15 octobre 2013
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 15:06
15 oct. 2013 à 15:06
Vous êtes parfaits tous les 2: merci à Gyrus & Mike 31 !
A+
A+