Masque sur contenu cellule Excel

Fermé
HUCHEA Messages postés 3 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 26 mai 2009 - 25 mai 2009 à 18:19
HUCHEA Messages postés 3 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 26 mai 2009 - 26 mai 2009 à 18:23
Bonjour,

Je suis en train de réaliser une macro pour mettre en forme des données pour mon atelier.

Je n'arrive pas à faire cette action :

- Il faut que je récupère dans la cellule active un code article de 8 chiffres : contenu de la cellule : F - 60 12000088
Je veux récupérer 12000088 pour ensuite le comparer à un ensemble de cellules contenant chacune une suite de 8 chiffres
Si je trouve cette valeur dans le groupe de cellule, je change la couleur et le style de la cellule active (gras + bleu)

Merci d'avance
A voir également:

4 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
26 mai 2009 à 09:11
bonjour

Est-ce ce que tu cherches ?

valeur = Right(ActiveCell.Value, 8)
0
HUCHEA Messages postés 3 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 26 mai 2009
26 mai 2009 à 09:28
Bonjour

Merci pour ta réponse
Par contre, comment tu fais après pour voir cette valeur ou comparer cette valeur avec le contenu d'une autre cellule (ou d'un groupe de plusieurs cellules ??)

Merci encore
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
26 mai 2009 à 10:05
bonjour

comment tu fais après pour voir cette valeur ou comparer cette valeur avec le contenu d'une autre cellule

avec le contenu d'une autre cellule :
If range("A1").value = Right(ActiveCell.Value, 8) then
....... traitement
end if

ou d'un groupe de plusieurs cellules :
dim cellule as range
For each cellule in range("A1:A10","B12","C4:C8")
if cellule.value = Right(ActiveCell.Value, 8) then
....... traitement
end if
next cellule
0
HUCHEA Messages postés 3 Date d'inscription lundi 25 mai 2009 Statut Membre Dernière intervention 26 mai 2009
26 mai 2009 à 18:23
Merci pour ces nouvelles lignes de code

Par contre, mon groupe de cellules est sur un autre classeur, donc je pointe comment dessus ??
Que faut il adapter : For each cellule in range("A1:A10","B12","C4:C8")

Merci d'avance
0