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 :

Parcourir des cellules d'une feuille


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2002
    Messages
    646
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2002
    Messages : 646
    Par défaut Parcourir des cellules d'une feuille
    Bonjour,

    Dans mon classeur j'ai une page: MaPage, qui contient une liste de nom de la cellule B2=>B8.
    Je souhaite dans mon VB script parcourir la liste pour faire des tests, je cherche à faire quelque chose comme:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For strName = LBound(Sheets("MaPage!B2:B8")) To UBound(Sheets("MaPage!B2:B8"))
     
            ' Traitement
     
    Next
    Évidemment, cela ne fonctionne pas, ce serait trop facile
    Connaissez vous une méthode propre? (sans que je galere à faire des Cell(i++,c).select...)
    Quelque chose dans l'idée du foreach serait bien sympa...

    Merci

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    29
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 29
    Par défaut
    Bonjour,

    voici un code qui devrait fonctionner normalement :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
     
    Sub test()
    Dim LigneActive As Long
     
    Sheets("MaPage").Select
    Range("B2:B8").Select
     
       While ActiveCell.Value <> Empty
                    LigneActive = ActiveCell.Row
     
                    "Condition"
                    ActiveCell.Offset(1, 0).Activate
     
        Wend
     
    End Sub
    Je débute, mais c'est un code éprouvé.
    J'espère que cela répondra au problème
    Christelle

  3. #3
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour kacedda chrisbdx quelques exemple simple
    1 exemple boucle sur la colonne b de b2 a b8 si =2 vide la cellule

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub es()
     Dim i As Byte
      For i = 2 To 8
        If Cells(i, 2) = 2 Then Cells(i, 2) = ""
      Next i
    End Sub
    meme exemple mais tu lances ta macro d'une autre feuille teste sur feuille2

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub essai()
     Dim i As Byte
      For i = 2 To 8
        With Sheets("feuil2")
        If .Cells(i, 2) = 2 Then .Cells(i, 2) = ""
      End With:  Next i
    End Sub
    autre exemple de b2 jusqu'a la derniere cellule non vide de la colonne la variable a change

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub essai2()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(i, 2) = 2 Then Cells(i, 2) = ""
    Next i
    End Sub
    idem sur une autre feuille

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub essai3()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
     With Sheets("feuil2")
    If .Cells(i, 2) = 2 Then .Cells(i, 2) = ""
    End With: Next i
    End Sub
    on peut aller plus loin en passer par des "tablos" mais bien plus complique a comprendre

Discussions similaires

  1. Réponses: 3
    Dernier message: 19/07/2007, 09h19
  2. copier des cellules d'une feuille dans une autres sous condition
    Par olivertwist dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 16/05/2007, 10h42
  3. Problème de lecture des cellules dans une feuille Excel
    Par wangjun dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/10/2006, 09h35
  4. [VBA-E]Trouver et recopier des cellules d'une feuille à une autre
    Par sk8bcn dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 24/08/2006, 16h01
  5. [VBA-E]définir l'ensemble des cellules d'une feuille?
    Par yaya54 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 02/03/2006, 08h46

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