Récupération de données de plusieurs feuille Excel

MaSt972 -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention - 14 août 2020 à 17:49

Bonjour,
Je travaille actuellement sur une macro, qui pourrait me permettre de récupérer toutes les données d'une colonne (B) de plusieurs feuilles (feuille 1, feuille 2...).J'ai commencé avec une macro, mais elle me récupère uniquement les 1ers données (Cellule B3) de chaque feuille et pas le reste (Cellule B4, Cellule B5...). Comment faire pour que ma macro récupère ses autres données?
Voici la macro sur laquelle je travaille:
Sub TTS()
Dim nbVal As Long
Dim f As Long
Sheets("FRecap").Range("TREcap").ClearContents
nbVal = Sheets.Count - 1
For f = 1 To nbVal
Sheets("FRecap").Range("TREcap").Cells(f, 1).Value = Sheets(f).Range("B3:B30").Value
Next f
End Sub

Merci d'avance.

Configuration: Windows / Chrome 84.0.4147.105

Afficher la suite

2 réponses

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Les donnees colonnes sont a mettre en ligne ou meme colonne?

MaSt972

Bjr, en colonne.

Cdlt

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > MaSt972

Bonjour,
Ok, je regarde la chose

Pas vraiment utile la plage nommee, vu l'utilisation que vous en faites

suite:
Une facon de faire, a adapter:

Sub TTS()
    Dim nbVal As Long
    Dim f As Long
    
    nbVal = Sheets.Count - 1
    With Sheets("FRecap")
        .Range("A:A").ClearContents
        For f = 1 To nbVal
            If Sheets(f).Name <> "FRecap" Then          'nom feuille <> FRecap
                PCvid = Range("A" & Rows.Count).End(xlUp).Row + 1       'Premiere cellule vide colonne A
                .Range("A" & PCvid).Resize(28) = Sheets(f).Range("B3:B30").Value        'trsf donnees B
            End If
        Next f
    End With
End Sub

Réponse 2 / 2
MaSt972

Merci pour ce retour, j'ai lancé la macro, mais j'ai un message d'erreur "objet requis".
0
1. MaSt972
  
  ("TRecap") est un tableau où sont collées les données et ("FRecap") est la feuille ou est crée le tableau.
  
  0
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > MaSt972
    
    Re,
    
    A quelle ligne l'erreur, je ne me sers pas de votre "tableau" mais de la colonne?
    
    ("TRecap") est un tableau
    Oui, mais si c'est reelement un tableau ( en deux couleurs bleue), l'ajout de donnees doit etre fait differemment
    Pouvez mettre votre fichier a dispo
    
    Pour transmettre un fichier,
    Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
    il faut passer par un site de pièce jointe tel que cjoint.com
    
    Allez sur ce site : https://www.cjoint.com/
    Clic sur parcourir,
    Cherche ton fichier,
    clic sur ouvrir,
    Clic sur "Créer le lien cjoint",
    Copier le lien,
    Revenir ici le coller dans une réponse...
    
    ou
    'mon partage
    https://mon-partage.fr/
    
    0

Newsletters