Discussion :

[cedric.stat]

Bonjour,

Voici mon problème :

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
Sub macro()
 
For w = 1 To 4
 
If w > 1 Then
    Range("K4").Value = "Product/Period"
    Range("K5").Value = "=CONCATENATE(LEFT(cells(26024+w-1,1),2+2*w-2),""?? *"")"
    Range("A3:I26014").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("K4:K5"), Unique:=False
 
    Range("K4").Value = ""
    Range("K5").Value = ""
    Cells(26025 + w - 1, 1).CurrentRegion.Select
 
    selection.Offset(1 + w - 1, 0).Resize(selection.Rows.Count - 1 - w + 1, selection.Columns.Count).Select
    selection.Clear
End If
 
end sub

J'aimerais donc que la variable w augmente de 1 dans la formule CONCATENATE(LEFT(cells(26024+w-1,1),2+2*w-2,""?? *"").

C'est simplement une question de synthaxe que je ne connais pas encore.

Merci bien.

[Menhir]

Tout d'abord, quand on fait une boucle For To, il faut la cloturer avec un Next.
https://msdn.microsoft.com/fr-fr/lib.../gg251601.aspx

Deuxièmement, si dans ta boucle For Next, si tu veux éviter la valeur 1, inutile de faire un If derrière. Il suffit de commencer par la valeur 2.

Code :

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

For w = 2 To 4

Troisièmement, pour mettre une formule dans une cellule, on n'utilise pas Value (qui ne met qu'une valeur comme son nom l'indique) mais Formula ou une de ses petites sœurs.
https://msdn.microsoft.com/fr-fr/lib.../ff838835.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff838851.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff823188.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff838568.aspx

Quatrièmement, avec un Formula, on doit mettre dans la cellule une formule avec la syntaxe d'Excel et non celle de VBA.
Donc, dans la formule, on ne met pas de "Cells" mais les coordonnées de la cellule.

Enfin, pour ce qui est de ta question, ce qui est introduit dans Formula est une chaine de caractère et doit être traité comme tel, y compris pour les concaténations (&) permettant d'introduire des parties variables.

[traersa]

Merci beaucoup Menir j'avais eu un problème similaire mais j'avoue que j'utilise par habitude formulaR1C1, et en le remplaçant simplement par ton formula ça fonctionne parfaitement...

[Menhir]

Chacune des quatre solutions a ses avantages.

FormulaR1C1 a l'avantage de pouvoir mettre simultanément dans plusieurs cellule une formule avec des adresses relatives.

[Marc-L]

Bonjour,

tout comme Formula / FormulaLocal s'il n'y a pas de $ dans l'adressage des cellules …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …