recherche de nombres

[gianni59]

bonjour, au forum
par ma commande (range) je desire entrée un nombre dans une cellules
et retrouver ce nombre dans la colone A
mettre en couleurs les cellules de la colone B ou apparait ce nombre et extraire les cellules qui contienne le nombre associé a la colones A
dans une autre colone
fichier-joint
merci pour votre aide
bonne continuation au forum

 

[Hulk]

Re : recherche de nombres

Hello Gianni,

Peut-être comme ceci... Vois le fichier joint.

J'ai juste décalé D4 en E4.

Cdt, Hulk.

 

[gianni59]

bonjour hulk
merci,
c'est exactement ca que je voulait comme formule
on en apprend tout les jours merci a toi
bonne continuation au forum et a vous tous.

 

[gianni59]

bonjour hulk
merci,
c'est exactement ca que je voulait comme formule
je vais mettre en pratique dans mes feuilles
on en apprend tout les jours merci a toi
bonne continuation au forum et a vous tous.

 

[Hulk]

Re : recherche de nombres

Re,

J'ai oublié de te le dire tout à l'heure, mais tu peux modifier la macro comme ceci.

Private Sub CommandButton2_Click()

    Dim c As Range

    For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
        If c = [E4] Then
            c.Interior.ColorIndex = 4
                c.Offset(0, 1).Interior.ColorIndex = 45
                c.Offset(0, 2).Interior.ColorIndex = 44
            c.Offset(0, 2).Value = c.Offset(0, 1).Value
        Else
            c.Interior.ColorIndex = xlNone
                c.Offset(0, 1).Interior.ColorIndex = xlNone
                c.Offset(0, 2).Interior.ColorIndex = xlNone
            c.Offset(0, 2).Value = ""
        End If
    Next c

End Sub

De cette manière si ce n'est pas le bon chiffre, plus de couleur.

Cdt, Hulk.