[Catégorie modifiée VB6 -- VBA] tester si une valeur appartient à une liste souRésolu

Question

Bonjour,

j'ai des données alphabétiques situées entre A1 et A10 dans la feuille1 d'un tableau excel.

sur la feuille 2, je voudrais mettre, au moyen d'une macro vba, en vert la ligne 1 si le contenu de la colonne 1 de cette ligne 1 appartient à une des données situées dans la liste précédente (entre A 1 et A10 de la feuil1).


Quelqu'un pourrait-il me dépanner svp ? Merci d'avance.

cs_Jack · Accepted Answer

Salut
Quelle partie n'arrives-tu pas à faire ?
- Sélectionner une ligne
- Colorier en vert
- Lire le contenu d'une cellule
- Rechercher un texte dans un ensemble de cellules
- Faire un If-Then-Else

Tu vois, il suffit de décomposer pour trouver les tâches à résoudre.
Résous-les une à une, c'est beaucoup plus simple et là, l'aide fourni avec du langage peut t'aider.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Sans oublier le magique "enregistreur de macro" qui te fournira le code de base associé aux manips manuelles que tu sais faire, comme les deux premières tâches

Ackby · Answer

Bonjour,

ce que je ne sais pas faire, c'est :

tester si le texte de la cellule A1 de la feuil 1 d'un tableau 1 est contenu dans la liste formée des cases A1 à A10 de la feuil 1 d'un tableau 2.

Merci d'avance de l'aide.

cs_Jack · Answer

C'est quoi un tableau pour toi ? Classeur ?

--> Enregistreur de macro :
Tu lances un enregistrement
Tu vas sur ton classeur "Tableau 1"
Tu vas sur ta feuille "Feuille 1"
Tu sélectionnes les cellules A1 à A10
Tu lances le menu Edition + Rechercher
Tu entres un texte bidon + Ok
Tu stoppes l'enregistrement.

Tu as ainsi le code (dans le module généré) pour rechercher un texte dans une feuille.
Il ne te reste plus qu'à paramétrer ce code pour faire apparaitre le texte à rechercher : remplace le texte bidon par l'instruction permettant de lire le contenu de ta cellule à rechercher :
Workbook("tableau 1").Worksheet("Feuille 1").Range("A1").Value

cs_Jack · Answer

Si la recherche aboutit, la cellule active est ActiveCell ou Workbook("tableau 1").Worksheet("Feuille 1").ActiveCell

Ackby · Answer

bonjour,

merci, cela marche si la recherche aboutit mais le problème est que si la recherche n'aboutit pas, j'ai un message d'erreur d'exécution 91 : variable objet ou variable de bloc With non définie et là je ne sais pas m'en sortir. Merci d'avance de l'aide.

[Catégorie modifiée VB6 --> VBA] tester si une valeur appartient à une liste sou

6 réponses

Votre réponse