recherche de nombres

gianni59 · 2 Juin 2009

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 · 2 Juin 2009

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 · 2 Juin 2009

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 · 2 Juin 2009

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 · 2 Juin 2009

Re : recherche de nombres

Re,

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

Code:

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.

recherche de nombres

gianni59

XLDnaute Nouveau

Pièces jointes

Hulk

XLDnaute Barbatruc

Pièces jointes

gianni59

XLDnaute Nouveau

gianni59

XLDnaute Nouveau

Hulk

XLDnaute Barbatruc

Discussions similaires