Discussion :

[amouna123456]

Bonjour,

je suis débutante dans le VBA et je veux créer une macro qui permet de chercher une valeur dans une seule colonne "F" et de colorer la cellule qui contient cette valeur en rose.

La valeur que je souhaite rechercher : se sont des références produits informatiques qui peuvent contenir la valeur 4500 soit en premier ou au mileu ou à la fin.

voici des exemples des références : L-4500-VFO ; C4500E-IPB ; CAT4500-NETW4RTM

pourriez vous m'aider svp?

Merci par avance.

[Malick]

amouna123456

Pourquoi VBA ? Une mise en forme conditionnelle devrait suffire, non ?

[amouna123456]

Bonjour Milkoseck,

Merci pour votre réponse.

Mais je souhaite avoir la macro pour automatiser la tache puisque la valeur à chercher/colorer ne change pas.

Merci.

[Pellouaille]

Hello amouna123456,

Euh, raison de plus pour utiliser la forme conditionnelle comme milkoseck l'a dit si la valeur à chercher/colorer ne change pas?

Cordialement,

Pellouaille

[Malick]

Mais je souhaite avoir la macro pour automatiser la tache puisque la valeur à chercher/colorer ne change pas

Vous pouvez démarrer avec l'enregistreur de macros. Ainsi vous pourrez obtenir un code qui pourrait être optimisé

Cordialement,
Malick

[amouna123456]

Bonjour Pellouaille,

je travaille sur plusieurs fichiers des clients différents avec des différentes références, si j'utilise la forme conditionnelle, je serai obligée de l'activer à chaque fois que je commence un traitement sur un fichier d'un client.
cette macro va me faciliter la tache surtout que j’exécute d'autre macro (je veux intégrer celle ci aussi) pour optimiser le temps de traitement.

Merci pour votre aide.

[Pellouaille]

Hello amouna123456,

Sans doute un début:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Columns("F:F").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="4500", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 16711935
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

Suivez le conseil de Malick en cas de modification.

Cordialement,

Pellouaille

[amouna123456]

Excellent ! Merci beaucoup Pellouaille.

j'ai une petite demande, je veux chercher aussi les références avec SNS (début-milieu-fin).

est ce qu'il y'a la possibilité de rajouter une autre ligne à ce code pour chercher les SNS?

Merci beaucoup!

[Menhir]

je travaille sur plusieurs fichiers des clients différents avec des différentes références, si j'utilise la forme conditionnelle, je serai obligée de l'activer à chaque fois que je commence un traitement sur un fichier d'un client.

Il suffira de faire un copier > coller format depuis une feuille dans laquelle cette MFC se trouve déjà.

[Pellouaille]

Hello amouna123456,

Les références avec SNS (début-milieu-fin)? (Désolé, surement dû au fait que j'utilise Excel in english...)

Il suffira de faire un copier > coller format depuis une feuille dans laquelle cette MFC se trouve déjà.

Pourquoi tortiller du c** pour c**** droit?

C'est bien plus rapide en effet..

[amouna123456]

C'est comme ce que vous avez fait avec 4500 ... j'aimerai bien que vous rajoutez aussi les Sns Comme clé de recherche dans le code.
Désolée de vous embêter...
Merci par avance

[Malick]

C'est comme ce que vous avez fait avec 4500 ... j'aimerai bien que vous rajoutez aussi les Sns Comme clé de recherche dans le code.
Désolée de vous embêter...
Merci par avance

Avec l'enregistreur de Macros, on a ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Columns("F:F").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="Sns", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:="4500", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 16738047
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Peut-être à améliorer.

[Pellouaille]

C'est comme ce que vous avez fait avec 4500 ... j'aimerai bien que vous rajoutez aussi les Sns Comme clé de recherche dans le code.

Désolé, j'y étais pas du tout
Quand j'arrête de travailler, j'y laisse aussi le cerveau..

Désolée de vous embêter...
Merci par avance

Pas de souci

Un tuto de Pierre Fauconnier si vous voulez plus d'info sur l'enregistreur de macro pour pouvoir générer vous même votre propre code VBA:

http://fauconnier.developpez.com/tut...istreur-macro/

Cordialement,

Pellouaille

[amouna123456]

@milkoseck

ça marche très bien.Merci beaucoup !


Merci beaucoup Pellouaille pour votre aide et votre temps!