Incrémenter la variable de la boucle dans le paramètre d'une formule

Version imprimable

Bonjour,

Voici mon problème :

Code:

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.

29/08/2017, 13h51
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:

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.
29/08/2017, 14h40
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...
29/08/2017, 15h51
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.
29/08/2017, 17h41
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, …