Discussion :

[Le Bon Ben Ter]

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

[parmi]

Bonjour,

Quelque chose comme ceci peut-être?

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
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) & ")"

[Le Bon Ben Ter]

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 :

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

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

[parmi]

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 :

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

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

[davidbd]

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.

[Docmarti]

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

Code :

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

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

Comme le demontre le test suivant :

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
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

[Le Bon Ben Ter]

Bonjour

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