Recherche valeur dans colonne via Marco

[Infratunes]

Bonjour le forum,

Merci d'avance pour le temps que vous prendrez à lire ce message.

J'aimerai avoir une macro permettant de rechercher une valeur dans la colonne A en tapant la recherche en B2 par exemple. (Ex : recherche de la référence 15677 dans une liste de 1500 références)

Ainsi il suffirait de cliquer sur un bouton de commande pour que la macro s'exécute et se place sur la valeur recherchée.

De plus est-il possible de surligner la ligne contenant la valeur ?

Merci d'avance à tous.

Infratunes.

 

[porcinet82]

Re : Recherche valeur dans colonne via Marco

Salut Infratunes,

Le code suivant fait ce que tu souhaites. Je suppose que la plage de données de recherche commence en A1 et finit a la dernière cellule non vide de cette meme colonne. A toi de l'affecter a un bouton de commande.

Sub test()
Dim cel As Range
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If cel = Range("B2").Value Then
        cel.Select
        Exit Sub
    End If
Next cel
MsgBox "valeur non trouvée dans la liste", vbExclamation
End Sub

@+

 

[informatixo]

Re : Recherche valeur dans colonne via Marco

Pour ceci, tu pourrais essayer d'utiliser un bouton avec une macro en vba.

Je te propose d'utliser "WorksheetFunction.VLookup" qui est l'équivalent en VBA de RechercheV sous excel et qui va te permettre de trouver ta référence.

Ensuite tu récupères la ligne concerné et tu fais un select sur cette ligne ainsi elle sera sélectionnée et enfin tu la colorie à l'aide "feuille.cellule.interior.colorindex = index de couleur".

Tu peux générer une macro sous excel pour récupérer l'index de couleur qui te convient.

J'espère t'avoir donné une piste de départ. A plus

 

[michel_m]

Re : Recherche valeur dans colonne via Marco

bonjour,

ci joint proposition

A+
Michel_M

 

[porcinet82]

Re : Recherche valeur dans colonne via Marco

Bonjour a tous,

Je viens de jeter un oeil a ton code Michel, interressant l'utilisation du Find, je ne pense jamais a l'utiliser. Par contre l'idée de la macro evenementielle, je me suis taté a l'utiliser

Cependant, excuse moi de te dire ca, mais ton code merdouille quelque peu car si l'on rentre 10 dans la cellule B2, le code selectionne la cellule contenant zaza10. Est-ce qu'il faut rajouter une option dans le code du Find?

@+

 

[michel_m]

Re : Recherche valeur dans colonne via Marco

re à Tous,

Merci, Porcinet de ta remarque. En effet il fallait écrire:

Range(Columns(1).Find(Range("B2").Value, Range("A65536"), , xlWhole, xlByRows).Address).Select

normalement, si je n'ai rien oublié encore...

A+
Michel

 

[Infratunes]

Re : Recherche valeur dans colonne via Marco

Merci à tous !

je vais essayer chacune des fonctions.

PS : Michel, est-il possible de sélectionner toute la ligne en jaune et pas seulement la valeur ?

Merci

Infratunes

 

[michel_m]

Re : Recherche valeur dans colonne via Marco

Re:

ici, on colorietoute la ligne. inconvénient: on enlève toutes les autres couleurs de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2")) Is Nothing Then: Exit Sub
Cells.Interior.ColorIndex = xlNone
On Error Resume Next
Range(Columns(1).Find(Range("B2").Value, Range("A65536"), , xlWhole, xlByRows).Address).Select
If Err Then
MsgBox "valeur inconnue"
Exit Sub
End If
Rows(ActiveCell.Row).Interior.ColorIndex = 6 'jaune
End Sub

 

[Infratunes]

Re : Recherche valeur dans colonne via Marco

Merci Michel

Est-il possible d'appliquer cette modification simplement jusqu'à la colonne G. Si oui, est-ce que cela détruiera les autres couleurs de la feuille également ?


merci

 

[michel_m]

Re : Recherche valeur dans colonne via Marco

Oui c'est possible: les couleurs ne seront alors détruites que de la colonne A à G. est-ce cela que tu veux?
(on pourrait ne détruire que la ligne concernée dans ces colonnes mais c'est un petit peu plus compliqué, donc...)

dans l'attente
Michel

 

[Hervé]

Re : Recherche valeur dans colonne via Marco

bonjour tout le monde

a partir du code de l'excellentissime michel, une idée pour les couleurs de lignes sans pertes des couleurs précédentes.

par contre on ne peux plus utiliser de MEFC (enfin pour le moment)

salut

 

[Infratunes]

Re : Recherche valeur dans colonne via Marco

Merci à tous les deux !

Michel : je voudrais garder les couleurs dans mes colonnes de A à G

Hervé : qu'est ce que le MEFC ?

merci

 

[michel_m]

Re : Recherche valeur dans colonne via Marco

salut Hervé, Re les autres

Excellentissime, tu as dit excellentissime ? puisqu'on parle de MFC je suis tout colorindex=3

Mais comment, alors pourrais je t'appeler mon cher Hervé? excellentissimesque, peut-être ou plus réel: Maîîître...

Avec mon plus profond respect,

Michel_M (lol)

A propos je rejoins ta solution avec MFC. Mon cher Infratunès, tu viens d'assiter à un des moments les + sympas du forum: la collaboration pour trouver une solution; merci à Hervé, Porcinet et Informatixo.

 

[Infratunes]

Re : Recherche valeur dans colonne via Macro

MEFC = Mise en forme conditionnel, j'ai mis un peu de temps à percuter

Merci à tous, c'est vraiment du très beau travail. J'espère qu'il pourra servir à d'autres personnes !



Infratunes

 

[informatixo]

Re : Recherche valeur dans colonne via Marco

Mise en forme conditionelle je suppose.

Je connaissais pas find, quelle est la grosse différence par rapport à recherchev, rechercheh et recherche ?

A plus