soucis création d'une macro VBA (débutant) Résolu/Fermé

Question

Bonjour,

J'essaye de faire une macro qui remplace le contenu des cellules dans une plage de cellules données.
J'ai essayé ça:

Sub caisse_fusion()

Dim dercell
Dim cell, masel As range

Sheets("Nombre de contrat par caisse se").Activate

dercell = InputBox("numéro de la dernière cellule")

Set masel = range("A2", "A" & dercell)

For Each cell In masel
 
    If cell.Value = 2 Then
         cell.Value = "80-02-60"
    Else
         End
    End If
Next cell

End Sub

Et ça marche (OH joie !!)

Mon soucis arrive quand je rajoute un else if cell.value = 3 (par exemple, ça aurait pu être 4 ou 50)

Là, bizarrement, vba me dit: erreur de compilation: Next sans For

et du coup, je comprends pas moi... parce que en fait c'est normal qu'il y ait pas de For ...

Sauriez vous m'aider ?

D'avance merci,

McFly

tompols · Answer

Bonjour
For Each cell In masel

If cell.Value = 2 Then
cell.Value = "80-02-60"
Else
End
End If
Next cell

=> il me smeble que tu as un end en trop !
For Each cell In masel

If cell.Value = 2 Then
cell.Value = "80-02-60"
Elseif cell.Value = 3 then 
ce que tu veux
End If
Next cell
NB : tu peux aussi utiliser select case pour tester les valeurs.....

tompols · Answer

Re,
Bon jsuis pas sur niveau perf, mais en, tout cas "select case" parait plus "fait pour" ce que tu veux faire...regarde dans l'aide vba mais ça ferait un truc comme ça :
For Each c In masel
Select Case c.Value
Case 1, 2, 3
c.Value = "1-2-3"
End Select
Next c
un ptit lien en passant : https://www.ozgrid.com/VBA/select-case.htm
A+

McFly · Answer

Woot!!!


Merci beaucoup.
Même si ça n'est pas plus rapide, ça sera au moins plus clair dans la rédaction du code.

Je vais tester merci encore.

McFly

tompols · Answer

Re,
Même si ça n'est pas plus rapide, ça sera au moins plus clair dans la rédaction du code. => toutafé :)
Je mets en "résolu"
bonne journée

Soucis création d'une macro VBA (débutant)

4 réponses

Discussions similaires