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

Fermé

MaSt972 - 13 août 2020 à 18:08
f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 - 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

A voir également:

Recherche de données dans plusieurs feuilles excel
Liste déroulante excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Feuille de pointage excel - Télécharger - Tableur
Si et excel - Guide
Fusionner plusieurs feuilles excel en une seule - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 1 708
13 août 2020 à 18:19

Bonjour,

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

MaSt972
14 août 2020 à 09:31

Bjr, en colonne.

Cdlt

f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 1 708 > MaSt972
Modifié le 14 août 2020 à 10:19

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
14 août 2020 à 10:42

Merci pour ce retour, j'ai lancé la macro, mais j'ai un message d'erreur "objet requis".

MaSt972
Modifié le 14 août 2020 à 10:48

("TRecap") est un tableau où sont collées les données et ("FRecap") est la feuille ou est crée le tableau.

f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 1 708 > MaSt972
14 août 2020 à 17:49

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/

Discussions similaires

[référencement] Ne pas être référencé

Discussions similaires

Newsletters