Discussion :

[abouhossam]

bjr
j'ai 2 feuilles
feuille1 (receptions) contient:
designation situation
ar
af
st
ah
ay
hj
ey
et feuille2 (les ventes) contient:
designation
ar
st
ey
est ce que je peux avoir une macro qui renvoie la valeur "vendu" dans la feuille1 (receptions) dans la colonne situation.?
merci d'avance.

[Many31]

puisque tu parles d'une fonction de recherche... utilise déjà celle du forum

il y a plein de cas déjà résolu mainte et mainte fois...

tiens le dernier en date:

http://www.developpez.net/forums/sho...d.php?t=491976

[abouhossam]

bjr
mon problème est tout a fait #
dans la feuille1 j'ai 2 colonnes "designation" et "situation"
et dans la feuille2 j'ai une seul colonne "designation"
je veux avoir le mot "vendu" dans la colonne "situation" de la feuille1 devant tous les designations qui existent dans la feuille1 et feuille2
je pense que c'est clair.
merci.

[ouskel'n'or]

Re-bonjour,

dans la feuille1 j'ai 2 colonnes "designation" et "situation"
et dans la feuille2 j'ai une seul colonne "designation"
je veux avoir le mot "vendu" dans la colonne "situation" de la feuille1 devant tous les designations qui existent dans la feuille1 et feuille2


Pour faire ça, tu parcours les lignes de la colonne "designation" et pour chaque donnée, tu cherches la valeur dans la colonne "designation". Si la donnée existe, tu mets "à côté" "Vendu"
Ce qui devrait donner un truc comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim FL1 as worksheet
Dim FL2 as worksheet
Dim NoLigne as long
    Set FL1 = Worksheets("feuil1")
    Set FL2 = Worksheets("feuil2")
    For NoLigne = 2 to  FL2.range("A65536").end(xlUp).row
        With FL1.Range("a1:a" & FL1.range("A65536").end(xlUp).row)
            Set c = .Find(FL2.Cells(NoLigne, 1).value, lookin:=xlValues)
            If Not c Is Nothing Then
                c.offset(0, 1).value = "Vendu"
            End If
         End With
    Next

Tu dis
A+

[Many31]

ton problème est peut etre différent dans la forme mais faut pas pousser.

Code :

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

1
2
3
4
5
6
7
8
9
10
i = 2
Do while Worksheets(1).Cells(i,1).Value <> ""
recherche = Worksheets(1).Cells(i,2).Value
If Worksheets(2).Cells.Find(What:=recherche) is Nothing Then
Worksheets(2).Cells(i,2).Value = ""
else
Worksheets(1).Cells(i,2).Value = "Vendu"
End if
i = i+1
Loop

En gros comme dit plus haut c'est exactement le meme problème. Il suffit d'adapter.

[ouskel'n'or]

Hello Many,
J'inverserais l'objet de la recherche. Tu recherches la donnée prise dans la feuil1, ce qui fait que ta boucle est plus longue que si tu faisais l'inverse. Juste pour t'embêter
(Regarde mon post précédent )

[Many31]

j'avais pas vu que tu avais rep avant méchant!

/me préfère ouskel's'ud