Fonction recherche avec boucle

Bonjour à tous,

J'aurai besoin d'un petit peu d'aide sur une macro de recherche avec une boucle "for".

Sur la feuille 2 j'ai des dates et en face des dates il y a soit B ou A j'aimerai faire une macro qui regarde sur la feuille 1 contenant les même dates sur la colonne intitulée A si les cellules sont "pleines" et même chose pour la colonne B.

Je vous joint un fichier avec la macro , mon explication me parait quelque peu hasardeuse.

Merci de votre aide ( je me suis perdu)

Greg

bonjour,

effectivement ton explication n'est pas vraiment clair, dis moi à l'aide du fichier ci-joint si cela correspond à tes attentes.

A plus

Merci pour ton aide Braters !!!!

Oui j'en conviens, explication de " merde"

j'ai essayer de modifier ton code mais... c'est pas encore cà..

For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

    With Feuil1
        If .Range("C" & i) <> "" Then
            Feuil2.Range("C" & i).Interior.ColorIndex = 3
            Else
            Feuil2.Range("C" & i).Interior.ColorIndex = 0
            End If

                If .Range("D" & i) <> "" Then

                        Feuil2.Range("C" & i).Interior.ColorIndex = 3
                        Else
                        Feuil2.Range("C" & i).Interior.ColorIndex = 0
                    End If

    End With
Next i

sur la feuille 2 , si la cellule de la colonne C contient "A" alors le code regarde sur la feuille 1 à la colonne C si la cellule est pleine il met la cellule de la feuille 2 contenant "A" en rouge.

sur la feuille 2 , si la cellule de la colonne C contient "B" alors le code regarde sur la feuille 1 à la colonne D si la cellule est pleine il met la cellule de la feuille 2 contenant "B" en rouge.

et cela en face de chaque date.

Merci encore pour t'on aide je galére

ps: dit moi si je suis un peu plus claire

Greg

Bonjour à tous

voici le code qui fonctionne si ça peut aider d'autres personnes:

Sub b()
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

    Select Case Feuil2.Range("C" & i)
    Case "A"
    If Feuil1.Range("C" & i) <> "" Then
    Feuil2.Range("C" & i).Interior.ColorIndex = 3
    Else
    Feuil2.Range("C" & i).Interior.ColorIndex = 0
    End If

    Case "B"
    If Feuil1.Range("D" & i) <> "" Then
    Feuil2.Range("C" & i).Interior.ColorIndex = 3
    Else
    Feuil2.Range("C" & i).Interior.ColorIndex = 0
    End If

    End Select
Next i
End Sub

Merci encore à Braters pour son aide

Bonne journée

Greg

sujet résolu