Discussion :

[Rstorm74]

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

[Rstorm74]

c'est bon j'ai trouvé

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rstorm74]

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

bonne journée

[ratsiam]

Bonjour,
Lorsque je rentre votre code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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