Test d'une valeur d'une feuilleRésolu

Question

Bonjour à tous!

J'ai un problème sur lequel je bloque depuis plusieurs jours.
En fait je souhaite faire le test suivant:

si la valeur de la feuil1 de la cellule (i,1) est egale à la valeur de la feuil2 de la cellule (i,1) alors ecrire 1 dans la cellule (i,2) de la feuil2.

Voici mes essais:

Sub test()
    For Each c In Sheets("Feuil2").[a1:a100]        If c.Value Sheets("Feuil1").[a1] Then c.Offset(0, 1).Value Sheets("Feuil1").[b1]
    Next c
End Sub

> Le problème est qu'ici je ne recupere que la premiere valeur de ma feuille 1

Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
For i = 1 To 100
    If F1.Cells(i, 1) = F2.Cells(i, 1) Then
       F2.Cells(i, 2).FormulaR1C1 = "test"
    End If
Next

> Et ici, rien ne se passe!! :(

Si quelqu'un pourrait me debloquer...
En vous remerciant par avance!

mortalino · Accepted Answer

ok, donc SI j'ai bien compris :

dim i as integer, j as integer

for i = 1 to 100
    for j = 1 to 100
        if Sheets("Feuil1").Cells(j, 1).Value = Sheets("Feuil2").Cells(i, 1).Value then
            Sheets("Feuil2").Cells(i, 2).Value = 1
        end if
    next j
next i

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mortalino · Answer

salut,

dim i as integer

for i = 1 to 100
    if Sheets("Feuil1").Cells(i, 1).Value = Sheets("Feuil2").Cells(i, 1).Value then
        Sheets("Feuil2").Cells(i, 2).Value = 1
    end if
next i

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

sebsab2008 · Answer

Bonjour Mortalino!
Déjà merci pour ta réponse super rapide! ;)
Par contre, je pense que je me suis mal exprimé... En fait dans ma feuille 1, l'ordre des valeurs n'est pas la meme que dans la feuille 2. C'est peut-être pour ca que ma macro (et la tienne) ne donne rien.
En fait, je souhaite tester toutes les valeurs de la colonne A de la feuille 1 et si une de ces valeurs est egale à une valeur de la colonne A de la feuille 2 alors mettre 1 dans la deuxieme colonne de ma feuille 2.

En tout cas, mille merci pour ta reponse.

sebsab2008 · Answer

Merci mille fois Mortalino! C'est nickel!!
J'ai encore beaucoup de mal dans les boucles!! 
Passe une bonne journée,
A +,
Seb

Test d'une valeur d'une feuille

4 réponses

Votre réponse

Discussions similaires