Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/10/2011, 09h10   #1
Candidat au titre de Membre du Club
 
Homme
Informaticien chargé des bases de données et du traitement des données statistiques
Inscription : juin 2011
Messages : 35
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

Informations professionnelles :
Activité : Informaticien chargé des bases de données et du traitement des données statistiques
Secteur : Associations - ONG

Informations forums :
Inscription : juin 2011
Messages : 35
Points : 11
Points : 11
Par défaut Probleme basic (enfin je pense)

Bonjour forum,

Je recherche le caractère pour VBA de ceci :
mot = "coucou"

si cellule.value = mots & "UN SEUL CARACTÈRE APRÈS" (un nombre) alors faire
...
...
fin si

J'ai des cellules contenant "coucou1", "coucou2",...
et d'autres : "coucou_eff1", coucou_eff2",...

Et je ne voudrais récupérer que celles contenant les "coucou" & "un chiffre".


Merci d'avance pour l'aide apportée.

Thordek
Thordek est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 09h25   #2
Membre Expert
 
Avatar de Jean-Pierre49
 
Homme J-Pierre Catherine
Conception Calcul
Inscription : juillet 2007
Messages : 659
Détails du profil
Informations personnelles :
Nom : Homme J-Pierre Catherine
Âge : 57
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Conception Calcul
Secteur : Industrie

Informations forums :
Inscription : juillet 2007
Messages : 659
Points : 1 856
Points : 1 856
Bonjour

Quelque chose comme
Code :
1
2
3
4
Mot = "coucou"
    If IsNumeric(Right(Cells(1, 1).Value, 1)) And Left(Cells(1, 1).Value, Len(Cells(1, 1).Value) - 1) = Mot Then
        MsgBox "Ok"
    End If
Si j'ai bien compris

Tu dis
__________________
Jean-Pierre Pensez à Voter pour les réponses qui vous ont aidés, d'avance merci
---------Et n'oubliez pas de mettre : ..quand c'est le cas !---------
Jean-Pierre49 est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 19/10/2011, 09h54   #3
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 907
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 907
Points : 7 207
Points : 7 207
Bonjour,

Une autre solution
Code :
1
2
3
If Len(Range("A1").Value) = 7 And IsNumeric(Right(Range("A1").Value, 1)) Then
    MsgBox "ok"
End If
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 19/10/2011, 10h05   #4
Candidat au titre de Membre du Club
 
Homme
Informaticien chargé des bases de données et du traitement des données statistiques
Inscription : juin 2011
Messages : 35
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

Informations professionnelles :
Activité : Informaticien chargé des bases de données et du traitement des données statistiques
Secteur : Associations - ONG

Informations forums :
Inscription : juin 2011
Messages : 35
Points : 11
Points : 11
Par défaut Grand merci

Merci bien à Jean-Pierre49 et jfontaine, En faisant un petit mix des deux et mon savoir-faire extraordinaire (-ment basique), j'ai ce que je voulais.

Merci bien.

En vous souhaitant une bonne journée,

Thordek
Thordek est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 10h06   #5
Membre Expert
 
Avatar de Jean-Pierre49
 
Homme J-Pierre Catherine
Conception Calcul
Inscription : juillet 2007
Messages : 659
Détails du profil
Informations personnelles :
Nom : Homme J-Pierre Catherine
Âge : 57
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Conception Calcul
Secteur : Industrie

Informations forums :
Inscription : juillet 2007
Messages : 659
Points : 1 856
Points : 1 856
Tu as raison Jérôme

Code :
Len(Range("A1").Value) = 7
Aller à l'essentiel


Thordek
Donne nous ton petit mix si tu veux bien
Il peut être utile à d'autre

Cordialement
__________________
Jean-Pierre Pensez à Voter pour les réponses qui vous ont aidés, d'avance merci
---------Et n'oubliez pas de mettre : ..quand c'est le cas !---------
Jean-Pierre49 est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h58.


 
 
 
 
Partenaires

Hébergement Web