Discussion :

[Jay29]

Bonjour à tous !!!

Je suis nouveau sur le forum. Étant débutant en VBA, j'ai crée une macro qui me permet de calculer l'ancienneté d'un fichier a partir de la date inscrite dans une cellule et de la date saisie par l'utilisateur. Cependant, je n'arrive pas a incrémenter ma macro que je vous mets ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Ancienneté()
 
  Dim firstDate As Date
 
  Dim Ancien As Date
 
  ActiveSheet.Range("AB1").Value = "Ancienneté création"
 
  firstDate = CDate(InputBox("Entrer une date"))
 
  ActiveSheet.Range("AB2").Value = DateDiff("m", ActiveSheet.Range("O2").Value, firstDate)
 
  ActiveSheet.Range("AB2").NumberFormat = "General" 
 
End Sub

En clair, je n'arrive pas à faire en sorte que ma macro prenne automatiquement la cellule d'après comme référence au calcul, ici la cellule O3. J'espère avoir été assez clair dans ma demande, dans le cas contraire n'hésitez pas a m'en faire part et merci d'avance pour votre aide.

[mercatog]

Bonjour au forum
Cette boucle fera de même jusqu'à la dernière ligne de la colonne O
Si tu vérifie par rapport à une unique firstDate issue de l'umputbox, tu le fais sortir de ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim firstDate As Date
Dim i as long
 
Range("AB1").Value = "Ancienneté création"
For i = 2 To Range("O65536").End(xlUp).Row
    firstDate = CDate(InputBox("Entrer une date"))  'avant le For i... si une unique valeur
    Range("AB" & i).Value = DateDiff("m", Range("O" & i).Value, firstDate)
Next i
 
Range("AB2:AB" & Range("AB65536").End(xlUp).Row).NumberFormat = "General"

[Jay29]

Effectivement ça fonctionne !!!
Merci beaucoup mercatog!!!