Savoir si une cellule excel contient un mot parmis plusieurs [Résolu]

Messages postés
18
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
- - Dernière réponse : us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
- 25 nov. 2009 à 23:15
Bonsoir,

J'ai dans mon fichier excel des cellules (X2.range("F"& a )) contenant plusieurs prénoms "les uns au-dessus des autres" (séparés par "alt+entrée").

Je veux savoir si cette cellule contient un prénom particulier.

Merci d'avance.
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
3
3
Merci
Je réponds alors à ta question, telle qu'elle a été posée (j'insiste)
toto = "trucmuche" & vbCrLf & "Pierre" & vbCrLf & "Machin"
 cherche = "Pierre"
 MsgBox CBool(InStr(vbCrLf & toto & vbCrLf, vbCrLf & cherche & vbCrLf))


Mais je me douite qu'il s'agit d'autre chose (et suis prêt) mais attends que tu l'exprimes avec précision ...

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 193 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmf0
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7
0
Merci
Bonsoir,

Il suffit de faire une recherche ?... Quelle est la difficulté ? ...

C'est une utilisation basique d'Excel, voir de toute application d'Office...

Amicalement,
Us.
Commenter la réponse de us_30
Messages postés
18
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
0
Merci
Oui mais via vb6, quelle est la commande ?
Commenter la réponse de Mickdu
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
3
0
Merci
Via VB6 ?
OK D'ac ...
Comment pilotes-tu Excel ? Montre ton code...
Commenter la réponse de jmf0
Messages postés
18
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
0
Merci
Je met ça au début:

Dim X1 As Excel.Application
Dim X2 As Excel.Worksheet
Dim Xlclasseur As Excel.Workbook

Puis je commande les cellules sous cette forme:
X2.range("A"& 1)

Je ne sais pas si c'est ce que tu voulais lire mais je ne peux pas mettre tout mon code, il est bien trop long.
Commenter la réponse de Mickdu
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Statut
Membre
Dernière intervention
5 avril 2013
3
0
Merci
Je voulais surtout lire le code définissant X2 et Xlclasseur...
Mais peu importe...
Tu es donc déjà en mesue d'extraire le contenu d'une cellule ===>>> disons dans une variable toto et ton problème devient alors :
j'ai une variable toto contenant plusieurs prénoms séparés par des sauts de ligne

Je veux savoir si toto contient un prénom particulier.

On est bien d'acoord ? C'est bien çà ?
Si oui, ta réponse attendue va être simple et rapide...
Alors ?
Commenter la réponse de jmf0
Messages postés
18
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
0
Merci
C'est bien ça jmf ...
Commenter la réponse de Mickdu
Messages postés
18
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
8 février 2011
0
Merci
Non c'est bon jmf0, c'est bien ça. Je ne connaissais pas la fonction CBool.

Je te remercie pour ton aide.

A+
Commenter la réponse de Mickdu
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7
0
Merci
Ah, oui, tiens... c'était que pour LA cellule ! ...

... sinon, il faudrait mieux passer la commande VBA ".Find"

Amicalement,
Us.
Commenter la réponse de us_30