Discussion :

[jpenja]

Bonjour,
je souheterais un petit coup de pouce.J'ai un fichier Excel contenant en moyenne 1500 lignes dans lequel je retrouve des lignes en colonne A avec comme valeur "Rayon" et sur la meme ligne en colonne B le nom du rayon.
Exemple:
(gencod1)
(gencod2)
(gencod3)
(gencod4)
Rayon Epicerie
(gencod5)
(gencod6)
Rayon Droguerie
Mon probleme est que je voudrai écrire dans le fichier sur chaque ligne le rayon auquel appartient chaque gencod sachant que le rayon d'affectetion est celui du bas.Dans mon exemple, gencod 1 à 4 Epicerie et 5,6 Droguerie.Ce qui au final devrait donner
Epicerie (gencod1)
Epicerie (gencod2)
Epicerie (gencod3)
Epicerie (gencod4)
Rayon Epicerie
Droguerie (gencod5)
Droguerie (gencod6)
Rayon Droguerie
J'espère avoir été clair dans mes explications et merci d'avance.

[David2304]

Bonjour,

Le code suivant devrait fonctionner, je l'ai testé que sur 50 lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim nomrayon As Variant
Dim i As Variant
nomrayon = ""
For i = 1500 To 1 Step -1
If Cells(i, 1) = "rayon" Then
nomrayon = Cells(i, 2)
Else
Cells(i, 2) = nomrayon
End If
Next

[ouskel'n'or]

Tu pars de la dernière ligne en remontant et tant que tu n'as pas "Rayon" dans la cellule, le rayon reste le même, auquel cas tu fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub test()
dim i as long, rayon as string
    for i = split(worksheets("feuil1").usedRange.address, "$")(4) to 2 step -1
        If left(lcase(worksheets("feuil1").cells(i, 1)), 5) = "rayon" then
            rayon = mid(worksheets("feuil1").Cells(i, 1), 7, len(Worksheets("feuil1").cells(i, 1)) - 6)
            worksheets("feuil1").cells(i, 1).delete shift:=xlUp
          else
            worksheets("feuil1").cells(i, 1) = rayon & " " & worksheets("feuil1").Cells(i, 1)
        end if
    next
end sub

J'arrête la boucle sur la ligne 2 (to 2 step -1) car je suppose que tu as des en-têtes de colonnes