VBA: faire une boucle sur un select case

[Laetitia1664]

Salut les gars,

Je suis débutante en VBA et j'aimerais regrouper les données de la colonne C vers la colonne D sous un nom different comme vous pouvez le voir dans mon code ci-dessous. Le code fonctionne sur une cellule mais j'aimerais l'appliquer à toute la colonne. pourriez-vous m'aider à mettre en place une boucle qui tourne bien.
Merci d'avance.

Sub Voiture()


Select Case Cells(2, 3).Value

Case "Renault", "Peugeot", "Citroen"
Cells(2, 4).Value = "Fra"

Case "Ferrari"
Cells(2, 4).Value = "Ita"

Case "BMW"
Cells(2, 4).Value = "All"

End Select

End Sub

 

[Paritec]

Re : VBA: faire une boucle sur un select case

Bonjour Laetitia 64 le forum
pour trouver la fin
a+
Papou

pour trouver la dernière cellule remplie de la colonne C, ci-dessous

sheets("xxx").range("C"&rows.count).end(xlup).row

remplaces les x par le nom de la feuille

Sub Voiture()
fin=sheets("xxx").range("C"&rows.count).end(xlup).row
for i = 2 to  fin
Select Case Cells(i, 3).Value
Case "Renault", "Peugeot", "Citroen"
Cells(i, 4).Value = "Fra"
Case "Ferrari"
Cells(i, 4).Value = "Ita"
Case "BMW"
Cells(i, 4).Value = "All"
End Select
next i
End Sub

 

[Laetitia1664]

Re : VBA: faire une boucle sur un select case

Super Paritec
ca fonctionne nikel. Pourtant j'avais essayé un truc du genre
En tout cas merci pour ta réactivité, au plaisir.
Biz

 

[Paritec]

Re : VBA: faire une boucle sur un select case

Re Laetitia le forum
oui mais un truc du genre en VBA ?????!!!!!!!!
Ou un point à la place d'une virgule cela ne marche pas, non le vba c'est précis, c'est pas un truc au hasard
a+
papou