Savoir si une cellule excel contient un mot parmis plusieurs

Résolu
Mickdu Messages postés 18 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 8 février 2011 - 25 nov. 2009 à 19:13
us_30 Messages postés 2065 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.

9 réponses

jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
25 nov. 2009 à 22:34
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 ...
3
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
25 nov. 2009 à 20:39
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.
0
Mickdu Messages postés 18 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 8 février 2011
25 nov. 2009 à 20:42
Oui mais via vb6, quelle est la commande ?
0
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
25 nov. 2009 à 21:17
Via VB6 ?
OK D'ac ...
Comment pilotes-tu Excel ? Montre ton code...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mickdu Messages postés 18 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 8 février 2011
25 nov. 2009 à 21:27
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.
0
jmf0 Messages postés 1566 Date d'inscription mardi 26 décembre 2000 Statut Membre Dernière intervention 5 avril 2013 8
25 nov. 2009 à 21:43
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 ?
0
Mickdu Messages postés 18 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 8 février 2011
25 nov. 2009 à 22:04
C'est bien ça jmf ...
0
Mickdu Messages postés 18 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 8 février 2011
25 nov. 2009 à 23:05
Non c'est bon jmf0, c'est bien ça. Je ne connaissais pas la fonction CBool.

Je te remercie pour ton aide.

A+
0
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
25 nov. 2009 à 23:15
Ah, oui, tiens... c'était que pour LA cellule ! ...

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

Amicalement,
Us.
0
Rejoignez-nous