VBA : Somme à variable en fonction de la date du jour

Bonjour

Grand débutant sur VBA, je rencontre un souci.
J'ai un tableau (en pièce jointe) dont le nombre et l'emplacement des colonnes peuvent varier.

Je souhaiterait mettre dans la dernière colonne la somme des colonnes B jusqu’à la date du jour
=>par exemple, pour la ligne 2, mettre la somme de B2 jusqu'a J2, et ensuite, étendre la formule jusqu’à la fin du tableau
La ou se situe mon problème est que l'emplacement de la colonne contenant la date du jour pourra varier en fonction de la date de l’extrait.

je suis pour l'instant capable de situer la première colonne vide du tableau et d'y mettre une somme, mais je ne sait pas la faire varier en fonction de l'emplacement de la colonne contenant la date du jour.

Pouvez vous m'aider?

Merci d'avance :)

Bonjour,

Quelque chose comme ceci peut-être?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Colonne As Long Dim nbLignes As Long, ColonneVide As Long Dim Recherche As Range   Set Recherche = Rows(1).Find(Date, LookIn:=xlValues, LookAt:=xlWhole) If Not Recherche Is Nothing Then Colonne = Recherche.Column Else MsgBox "La date n'a pas été trouvée" Exit Sub End If   nbLignes = Cells(Rows.Count, "A").End(xlUp).Row ColonneVide = Cells(1, Columns.Count).End(xlToLeft).Column + 1   Range(Cells(2, ColonneVide), Cells(nbLignes, ColonneVide)).Formula = "=SUM(B2:" & Cells(2, Colonne).Address(False, False) & ")"

---

Bonjour Parmi

Merci beaucoup pour ton aide
Cela fonctionne parfaitement.

Il me reste malheureusement un petit souci :?:?
Dans mon extract, la première ligne n'est pas au format date
J'ai donc ajouté la ligne de macro suivante avant ton code

Code:

---

1 2 3

'Mettre la ligne 1 en format date Rows("1:1").Select Selection.NumberFormat = "dd/mm/yyyy"

---

Mais cela ne fonctionne pas. A chaque fois que je lance la macro, le message "La date n'a pas été trouvée" s'affiche.
Si je réécrit les dates à la main et que je lance la macro, la cela fonctionne.

Aurais tu une solution pour remédier à cela?

Merci d'avance pour ton aide

J'ai dû modifier ton fichier parce que mon format de date (Québec) est différent du vôtre

Essaie comme ceci pour voir

Code:

---

Rows("1:1").NumberFormat = "m/d/yyyy"

---

Bonjour,

C'est quoi le type d'objet qui se trouve dans ta cellule? Assure-toi qu'il s'agit bel et bien d'une date.

Il est preferable d'utiliser lookin:=xlFormulas que lookin:=xlValues.

Code:

---

Set Recherche = Rows(1).Find(Date, lookin:=xlFormulas, LookAt:=xlWhole)

---

Comme le demontre le test suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Sub test_xlValues_xlFormulas() Rows(1).Clear Cells(1, 2).NumberFormat = "m/d/yyyy" Cells(1, 2) = Date   Debug.Print   lookin = "xlFormulas"   Cells(1, 2).NumberFormat = "m/d/yyyy" NumberFormat = Cells(1, 2).NumberFormat Call testFind(Date, lookin, NumberFormat)     Cells(1, 2).NumberFormat = "dd\/mm\/yyyy" NumberFormat = Cells(1, 2).NumberFormat Call testFind(Date, lookin, NumberFormat)   lookin = " xlValues"   Cells(1, 2).NumberFormat = "m/d/yyyy" NumberFormat = Cells(1, 2).NumberFormat Call testFind(Date, lookin, NumberFormat)   Cells(1, 2).NumberFormat = "dd\/mm\/yyyy" NumberFormat = Cells(1, 2).NumberFormat Call testFind(Date, lookin, NumberFormat)   End Sub Function testFind(d, lookin, NumberFormat)   If lookin = "xlFormulas" Then Set Recherche = Rows(1).Find(Date, lookin:=xlFormulas, LookAt:=xlWhole) Else Set Recherche = Rows(1).Find(Date, lookin:=xlValues, LookAt:=xlWhole) End If   If Recherche Is Nothing Then Debug.Print d & " non trouve avec " & lookin & " si Numberformat = " & NumberFormat Else Debug.Print d & " trouve avec " & lookin & " si Numberformat = " & NumberFormat End If   End Function

---

Bonjour

Merci Parmi, cela fonctionne parfaitement avec le format "m/d/yyyy"
Merci aussi a Docmarti pour tes précisions! :)