Remplir cellule en fonction de la valeur d'une autre

Bonjour à tous

Je débute sur VBA et j'aimerais savoir si quelqu'un a la solution à mon besoin :

Je dois remplir avec une macro VBA Excel 2010 une colonne B à partir de la colonne A.

je vais utiliser des produits alimentaires comme exemple

exemple la colonne A peut se remplir aléatoirement de cerise, tomate, fraise, bière, vin, courgette etc sur une longueur aléatoire

j'ai besoin que la macro remplisse en fonctionne de la catégorie ( fruit ; légume ; boisson ) la colonne B en fasse de chaque aliment.

j'espère être assez clair sur le besoin...

merci d'avance pour votre aide

cela donnerait

	A		B
1	cerise		fruit   
2	courgette	legume
3	fraise		fruit 
4	biere		boisson
....

j'avais pensé à


if range("A1")="cerise" then Range("B1") = "fruit"

mais ça ne peut pas aller car il me faut forcement une boucle et un test de condition pour gérer le tableau


merci

c'est bon j'ai trouvé

à toutes fins utiles si quelqu'un en avait besoin voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Macro2() ' ' Macro2 Macro ' Dim i As Integer   i = 2   Do While Cells(i, 1).Value <> ""   If Range("A" & i) = "cerise" Then Range("B" & i) = "fruit" If Range("A" & i) = "whisky" Then Range("B" & i) = "boisson" If Range("A" & i) = "courgette" Then Range("B" & i) = "legume" If Range("A" & i) = "coca cola" Then Range("B" & i) = "boisson" If Range("A" & i) = "jus d-orange" Then Range("B" & i) = "boisson" If Range("A" & i) = "fraise" Then Range("B" & i) = "fruit" If Range("A" & i) = "choux-fleur" Then Range("B" & i) = "legume" If Range("A" & i) = "orangina" Then Range("B" & i) = "boisson" If Range("A" & i) = "vin" Then Range("B" & i) = "boisson" If Range("A" & i) = "carotte" Then Range("B" & i) = "legume" If Range("A" & i) = "framboise" Then Range("B" & i) = "fruit"     i = i + 1   Loop     End Sub

---

bonne journée à tous

Bonjour,

le problème de ton code (qui fonctionne cependant), c'est que si tu as 1000 produits, tu dois faire 1000 lignes pour tester chacun

il y a des méthodes plus pratiques, en voici une :

- on construit deux tableaux : l'un contient tous les produits, l'autre indique la catégorie du produit
- on défini la dernière ligne de ta colonne A
- on fait une boucle sur chaque cellule A
- on fait une sous-boucle pour tester chaque produit du tableau de produit
- quand on trouve le produit, on va chercher sa catégorie dans le tableau de catégories et on l'écrit en cellule B

l'avantage, c'est que pour rajouter un produit dans ton code, il te suffit de le référencer dans tes deux tableaux (son nom et sa catégorie)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Macro2()   Dim i As Integer Dim j As Integer Dim DerLig As Long Dim TabProduit Dim TabCategorie   TabProduit = Array("cerise", "whisky", "courgette", "coca cola", "jus d-orange", "fraise", _ "choux-fleur", "orangina", "vin", "carotte", "framboise")   TabCategorie = Array("fruit", "boisson", "legume", "boisson", "boisson", "fruit", _ "legume", "boison", "boisson", "legume", "fruit")   DerLig = UsedRange.Columns(1).Rows.Count   For i = 1 To DerLig For j = LBound(TabProduit) To UBound(TabProduit) If Range("A" & i) = TabProduit(j) Then Range("B" & i) = TabCategorie(j) Exit For End If Next j Next i   End Sub

---

d'autres approches sont possibles, on pourrait créer une plage dynamique dans Excel pour tes produits et les catégories associées
ensuite, le code sera entièrement dynamique : tu as juste à ajouter une ligne dans ta plage Excel pour le produit et sa catégorie
aucune maintenance à faire dans le code

si ça te tente, on peut travailler sur ça

c'est bien plus pro comme tu fais effectivement, je te remercie

bonne journée

Bonjour,
Lorsque je rentre votre code :

Code:

---

DerLig = UsedRange.Columns(1).Rows.Count

---

cela m'affiche error 424 et je ne comprend pas
Si vous pouviez m'éclairer sur mon erreur merci