Insertion de date automatique

Question

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

via55 · Answer

Bonjour

Rien de plus simple :
En A3 = A1+1
En A4 : =SI(A3<$A$2;A3+1;"") à étirer jusqu'en A50

Cdlmnt 
Via

JrmL · Answer

Whaou, 

C'était si rapide, un grand merci !!!!


Jérémy

JrmL · Answer

Encore merci,

Il y aurait il une solution en VBA du coup ?

via55 · Answer

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

JrmL · Answer

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

via55 · Answer

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?

Insertion de date automatique

6 réponses

Discussions similaires

Newsletters