Re : Est-ce possible de simplifier
Bonsoir mapomme,
Effectivement j'ai déclaré les 25 Var (Dim Var1, Var2, ... as integer).
Pour la première partie, j'ai inversé le tout, Var1 = activecell. Je cherchais comment utiliser (si possible)
For i = 1 to 25
var & i = activecell
Activecell.offset(1,0).select
Next i
Pour la 2e partie je dois trouver chacune des Var dans une liste de mot. J'utilisais la forme suivant :
If ActiveCell.Offset(0, -1) = "Chef d'équipe" Or ActiveCell.Offset(0, -1) = "Accessoires" _
Or ActiveCell.Offset(0, -1) = "cisaille #57" Or ActiveCell.Offset(0, -1) = "Emballage" _
Or ActiveCell.Offset(0, -1) = "Cisaille #73" Or ActiveCell.Offset(0, -1) = "Presse #60" _
Or ActiveCell.Offset(0, -1) = "Presse #61" Or ActiveCell.Offset(0, -1) = "Presse #63" _
Or ActiveCell.Offset(0, -1) = "Presse #66" Or ActiveCell.Offset(0, -1) = "Presse ME05" then
Mais si je dois modifier un mot de ma liste, il est plus facile de traiter le tout si le mot en question devient une variable plutôt qu'un mot précis.
Merci