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 :

afficher la premiere colonne de toutes les feuilles du classeur


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2004
    Messages
    96
    Détails du profil
    Informations forums :
    Inscription : Septembre 2004
    Messages : 96
    Par défaut afficher la premiere colonne de toutes les feuilles du classeur
    Bonjour,
    je me permet de demander de l'aide sur un problème qui me laisse tourner en rond

    voilà : dans les trois feuilles du classeur je souhaite recuperer les valeur
    de la première colonnes dec chaque feuille alors
    je fais le code suivant
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
     
    sub recuperer()
    dim v_col as string  'la valeur de cellule
    dim v_nom as string ' le nom de la feuille
    dim  v_colFeuil as string ' la concatenation des valeur de colonne
    dim  v_colFeuilCla as string ' la concatenation des valeur de toutes les feuilles
    dim i as integer
     
    v_col = ""
    v_nom= ""
    v_colFeuil =""
    v_colFeuilCla =""
    i = 2 ' le i=1  represente les titres
    For Each feuil In Worksheets
    v_nom = feuil.name
    While Sheets(v_nom).Cells(i, 1) <> ""
       If Sheets(v_nom).Cells(i, 1) <> v_col Then
               v_col= Cells(i, 4)
         End If
            i = i + 1
            v_colFeuil= v_colFeui & v_col 
      Wend
     
    v_colFeuilCla = v_colFeuilCla &  v_colFeui & chr(10)
    next
     
    msgbox v_colFeuilCla
    end sub
    je ne récupere que les valeur de la dernière feuille

    est ce que qu'un peut m' orienter ou je me plante c'est sympa

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonojur,
    une idée comme une autre à adapter
    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
    18
    19
    Sub recuperer()
    Dim v_colFeuil As Range
    Dim v_colFeuilCla As String ' la concatenation des valeur de toutes les feuilles
    Dim i As Integer, x As Integer, y As Integer
    Dim Ws As Worksheet
     
    For Each Ws In ThisWorkbook.Worksheets
    y = 2
    If Ws.Name = Sheets(1).Name Then y = 3
       i = Ws.Range("a" & Ws.Rows.Count).End(xlUp).Row
       Set v_colFeuil = Ws.Range("a2:a" & i)
       If v_colFeuilCla = "" Then v_colFeuilCla = Ws.Cells(2, 1).Value
       For x = y To i
          v_colFeuilCla = v_colFeuilCla & ":" & Ws.Cells(x, 1).Value
       Next x
    Next Ws
       MsgBox v_colFeuilCla
     
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre confirmé
    Inscrit en
    Septembre 2004
    Messages
    96
    Détails du profil
    Informations forums :
    Inscription : Septembre 2004
    Messages : 96
    Par défaut
    merci pour ta réponse
    mais c'est la même chose ,
    à la sortie je récupère que las données d'une seule feuille pas les données
    de trois feuilles

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Impossible, j'ai testé, il doit y avoir une erreur dans ton code quelque part
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

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

Discussions similaires

  1. Ajouter des étiquettes de colonnes sur toutes les feuilles du classeur
    Par Akane69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/07/2013, 09h26
  2. [Toutes versions] copier colonnes de toutes les feuilles d'un fichier
    Par cyberboy00 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 18/04/2011, 17h18
  3. Réponses: 1
    Dernier message: 14/06/2009, 13h45
  4. application a toute les feuilles du classeur
    Par dodo28 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/04/2009, 14h04
  5. Mise en page avant impression sur toutes les feuilles du classeur
    Par fribelle dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 12/11/2008, 09h48

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