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 :

Macro vérification contenu de cellule [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 5
    Points : 5
    Points
    5
    Par défaut Macro vérification contenu de cellule
    Bonjour,

    Je souhaiterai faire une macro qui, sur une plage de cellule vérifie le contenu de chaque cellule, le compare au contenu de la cellule suivante et en fonction du résultat inscrive du texte dans une 3eme cellule.
    Ex: pour la plage A1:E50 si une cellule =Bonjour, et que la suivante sur la ligne = au revoir alors C1=ok

    J'arrive à le faire en vérifiant les cellule une par une mais le code fait 3km...
    Ex: If range("A1")="Bonjour" and range("B1")="Au revoir" then range("C1")="ok"


    Comme vous pouvez vous en douter tester chaque cellule de cette façon sur 50 lignes c'est très fastidieux.

    Si quelqu'un a une solution pour optimiser je suis preneur.

    Merci d'avance

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2008
    Messages
    389
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2008
    Messages : 389
    Points : 437
    Points
    437
    Par défaut
    Bonjour,

    Première approche

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub sc()
    For i = 1 To 5
        For j = 1 To 50
            If Cells(i, j) = "Bonjour" And Cells(i, j + 1) = "Au revoir" Then
            Cells(i, j + 2) = "ok"
            End If
        Next j
    Next i
    End Sub
    Mais il faudrait être plus clair, peut-on avoir par exemple
    Bonjour, Au revoir, Bonjour, Au revoir sur la même ligne dans des cellules contiguës

    JP

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2013
    Messages : 5
    Points : 5
    Points
    5
    Par défaut
    Bonjour JP,

    Ton code m'a été très utile j'ai juste eu a modifier le range et ça marche parfaitement, merci beaucoup

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

Discussions similaires

  1. Automatisation macro et contenu de cellule
    Par niafron71 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 20/06/2012, 16h28
  2. Réponses: 8
    Dernier message: 26/10/2010, 17h05
  3. macro evenementielle par modif de contenu de cellules
    Par koloma dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/01/2008, 03h00
  4. macro effaçant le contenu de cellules
    Par neninio31 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/01/2008, 21h33

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