IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Probleme basic (enfin je pense)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Statisticien et Informaticien
    Inscrit en
    Juin 2011
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Statisticien et Informaticien
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2011
    Messages : 54
    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

  2. #2
    Membre Expert Avatar de Jean-Pierre49
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2007
    Messages
    659
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2007
    Messages : 659
    Par défaut
    Bonjour

    Quelque chose comme
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Une autre solution
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If Len(Range("A1").Value) = 7 And IsNumeric(Right(Range("A1").Value, 1)) Then
        MsgBox "ok"
    End If

  4. #4
    Membre Expert Avatar de Jean-Pierre49
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2007
    Messages
    659
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2007
    Messages : 659
    Par défaut
    Tu as raison Jérôme

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  5. #5
    Membre averti
    Homme Profil pro
    Statisticien et Informaticien
    Inscrit en
    Juin 2011
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Statisticien et Informaticien
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2011
    Messages : 54
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. jedit et le charset (enfin je pense)
    Par areuh_fr dans le forum Environnement de Développement Intégré (EDI)
    Réponses: 2
    Dernier message: 18/04/2007, 22h19
  2. [C# 1.1] Erreur GDI enfin je pense
    Par notalp dans le forum Windows Forms
    Réponses: 2
    Dernier message: 22/09/2006, 15h32
  3. Probleme basic de class
    Par uriotcea dans le forum C++
    Réponses: 2
    Dernier message: 08/06/2006, 18h42
  4. [CSS enfin je pense]Retour à la ligne...
    Par lietof dans le forum Mise en page CSS
    Réponses: 4
    Dernier message: 08/03/2006, 14h17
  5. Probleme de guillemet je pense...
    Par DonKnacki dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 19/12/2005, 18h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo