Insertion de date automatique
JrmL
-
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai besoin si possible de vos service car je suis dans une impasse.
Je notifie une date de début (A1) et une date de fin (A2).
J'aimerai si possible que les dates se trouvant entre les deux dates en A1 et A2 soit notées automatiquement. de A3 à A50.
Dans l'attente de votre retour,
Cordialement,
Jérémy
J'ai besoin si possible de vos service car je suis dans une impasse.
Je notifie une date de début (A1) et une date de fin (A2).
J'aimerai si possible que les dates se trouvant entre les deux dates en A1 et A2 soit notées automatiquement. de A3 à A50.
Dans l'attente de votre retour,
Cordialement,
Jérémy
6 réponses
-
Macro à mettre dans le worksheet de la feuille concernée, se déclenche à l'entrée d'une date en A2
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2")) Is Nothing Then For n = Range("A1") + 1 To Range("A2") x = x + 1 Range("A" & x + 2) = Range("A1") + x Next End If End Sub
Cdlmnt
Via
-
Bonjour
Rien de plus simple :
En A3 = A1+1
En A4 : =SI(A3<$A$2;A3+1;"") à étirer jusqu'en A50
Cdlmnt
Via
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Merci pour le code.
Je viens de je viens de me rendre compte que j'ai fait une erreur dans ma question il faut lire B1 à la place de A2.
De plus cette action peut-elle se reproduire sur la dernière ligne à chaque nouvelles entrées ?
Merci d'avance -
Il suffit de remplacer A2 par B1 dans les lignes de la macro
Par contre je ne comprends pas où tu veux reproduire l'action ?quelles cellules devraient déclencher la macro et où doivent s'inscrire les résultats?
