Discussion :

[Fabert]

Bonjour,

Est-il possible d'affecter à plage1 le Mois de la date qui figure en cellules B3 à B9, au lieu de la date elle-même dans le code ci-dessous ?

Code :

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

Set plage1 = Range("B3:B9")

J'ai essayé un truc du genre

Code :

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

Set plage1 = Month (Range("B3:B9"))

Mais ça ne fonctionne pas.

Merci

Fabert

[joe.levrai]

Si tu veux conserver tes dates et uniquement utiliser leur numéro de mois, le plus simple est d'insérer une colonne à côté de ta plage et d'y renvoyer le numéro de mois via la formule MOIS()

[Fabert]

oui, c'est ce que je pensais en dernier recours.

Mais c'était tout de même bien pratique d'injecter en plage1 directement le mois contenu dans la date plutôt que la date elle-même.

Tiens, serait-ce possible via une formule (que je n'ai pas testée) juste après Set plage1 = ActiveSheet.Range("B3:B9") ?

Code :

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

1
2
3
4
 
For Each Cell in plage1
Cell.value = Month (Cell.value)
Next

[joe.levrai]

Bonjour,

ça va modifier la valeur de tes cellules
(au passage, il faut rajouter la collection des Cells à ton plage1 dans ce type de boucles : plage1.Cells)

étant donné que je sais ce que tu vas faire avec cette plage (Cf ton précédent sujet), on peut très bien stocker ta plage dans un tableau / réinjecter les mois dans ta plage / calculer ton SumIfs / réinjecter les dates dans ta plage au moyen du tableau de stockage

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
Sub o()
Dim Plage1 As Range
Dim Tablo
Dim i as Long
 
' chargement de la plage dans le tableau
Set Plage1 = Range("B3:B9")
Tablo = Plage1
 
' réécriture de la plage avec uniquement le numéro du mois
For i = LBound(Tablo) To UBound(Tablo)
    Plage1(i, 1) = Month(CDate(Tablo(i, 1)))
Next i
Plage1.NumberFormat = "0"
 
 
' utilisation de ta plage ICI
 
 
 
' restitution des dates complètes dans la plage
Plage1 = Tablo
Plage1.NumberFormat = "m/d/yyyy"
 
Set Plage1 = Nothing
End Sub

[Fabert]

Merci beaucoup pour ton aide que je suis occupé à intégrer dans mon code.

Cependant, j'avais fortement simplifié celui-ci pour l'exemple.

Dans la réalité, il y a 11 plages d'environ 10 000 lignes qui se remplissent comme suit :

Code :

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

1
2
3
4
 
    For v = 1 To 11
        Set Plage(v) = Range(Cells(1, v), Cells(DerniereLigne, v))
    Next v

Et à présent, je butte pour utiliser ton code à cet endroit :

Code :

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

1
2
3
4
 
For i = LBound(Tablo) To UBound(Tablo)
    Plage1(i, 1) = Month(CDate(Tablo(i, 1)))
Next i

Puisque Plage1 devient dans la réalité Plage (6)

Comment puis-je utiliser un truc du genre Plage(6) (i,1) ?

Merci encore pour tes conseils.

Fabert

[joe.levrai]

comme ça ?
on fait une boucle pour tes 11 plages
à chaque tour de boucle, on réalise ce qu'on avait fait pour Plage1

je te laisse intégrer ça à ton code, puisque je ne sais pas comment est calculée DerniereLigne

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
Sub o()
Dim Plage As Range
Dim Tablo
Dim i As Long
Dim j As Long
 
 
For j = 1 To 11
 
    ' chargement de la plage dans le tableau
    Set Plage = Range(Cells(1, j), Cells(DerniereLigne, j))
    Tablo = Plage
 
    ' réécriture de la plage avec uniquement le numéro du mois
    For i = LBound(Tablo) To UBound(Tablo)
        Plage(i, 1) = Month(CDate(Tablo(i, 1)))
    Next i
    Plage.NumberFormat = "0"
 
 
    ' utilisation de ta plage ICI
 
    ' restitution des dates complètes dans la plage
    Plage = Tablo
    Plage.NumberFormat = "m/d/yyyy"
 
Next j
 
End Sub