Copier les données d'une feuille à l'autre [Fermé]

Signaler
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
-
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
-
Bonjour,

Je souhaite créer un fichier excel qui me permettrai d'aller chercher les horaires d'entrainement de différents clubs.
Dans ma feuille 1 j'indiquerai le nom du club et je souhaiterai que toutes les informations qui sont dans la feuille 2 apparaissent.
En sachant que suivant les clubs je n'ai pas forcément le même nombre de créneaux horaires donc de lignes.

Je vous joins le lien du fichier : https://mon-partage.fr/f/H4HhCGR3/

J'aimerai soit une formule ou code VBA

Merci de votre aide

6 réponses

Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
Bonjour,

Voici, plus qu'à sélectionner le club et cliquer sur le bouton.
le fichier
https://mon-partage.fr/f/xm85r1SJ/

le code associé
Sub Recup_Donnees()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim Lig_f2 As Long
    Dim Club As String
    
    Application.ScreenUpdating = False
    Set f1 = Sheets("Extraction")
    Set f2 = Sheets("Liste_Entrainements")
    f1.Range(Cells(4, "B"), Cells(100, "G")).Clear
    Club = f1.[E1]
    
    Set c = f2.Columns("A").Find(Club, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Lig_f2 = c.Row
        Do
            Lig_f2 = Lig_f2 + 1
        Loop While f2.Cells(Lig_f2 + 1, "F") <> ""
        f2.Range(f2.Cells(c.Row, "A"), f2.Cells(Lig_f2, "F")).Copy Destination:=f1.[B4]
    Else
        MsgBox "Club pas trouvé"
    End If
    Set f1 = Nothing
    Set f2 = Nothing
    Set c = Nothing
End Sub


Cdlt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60664 internautes nous ont dit merci ce mois-ci

Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Merci beaucoup!
C'est super mais est ce qu'il est possible que cela peut fonctionner en tapant uniquement le nom de la structure sans cliquer sur le bouton "récupérer des données du club".

Une autre question : est ce que vous pensez que c'est possible de mettre un tel document en ligne ou c'est compliqué?
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
Voici avec la modif, faire un double-clic sur E1.
https://mon-partage.fr/f/EslFAXMW/

Pour la 2ème question: c'est quoi le but? Qu'il soit modifiable? seulement consultable?
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60664 internautes nous ont dit merci ce mois-ci

Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Bonjour,
Merci beaucoup.

Pour la seconde question c'est pour que le tableau soit seulement consultable. En sachant que j'ai aussi des formules qui recherche des données suivant le noms du clubs (comme j'avais commencé à faire dans l'exemple que je vous ai transmis).
J'ai essayé d'enregistrer en HTM mais ça ne fonctionne pas.
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
ainsi que MHT
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Je vous embête encore.
J'ai essayé d'incorporer des données clubs en plus et cela ne fonctionne plus.
En sachant que ma feuille comportera au final environ 3000 lignes.
https://mon-partage.fr/f/dJyitw9Y/
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
Bonjour,

cela ne fonctionne plus. Normal, vous avez ajouter une colonne (SEXE), donc ça décale tout.
Revoici le fichier avec la correction.
https://mon-partage.fr/f/A5ymEhdb/

Cdlt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60664 internautes nous ont dit merci ce mois-ci

Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
bonjour,

Je vous remercie. Je vous laisse regardé votre fichier car quand on change de nom : Paris
Il reste affiché les données (adresse) du clubs 684007.
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
Bonjour,

Remplacez la valeur de la lettre en caractère gras
f1.Range(Cells(4, "B"), Cells(100, "G")).Clear
par
f1.Range(Cells(4, "B"), Cells(100, "H")).Clear

Cdlt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60664 internautes nous ont dit merci ce mois-ci

Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Merci pour tout!
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
Bonjour,

Votre tableau est complet, mais les volets sont figés à partir de la ligne 36.
Supprimez les volets figés:
1) Allez sur l'onglet "Affichage"
2) Cliquez sur Figer les "volets"
3) Cliquez sur libérez les volets


Cdlt
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Bonjour,
Merci beaucoup, j'aurais pu (dû) y penser!!!
Messages postés
10
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
5 novembre 2019
1
Bonjour,

Je reviens vers vous car je ne peux pas lire l'intégralité du tableau quand je clique sur l'extraction.
Je vous joins le fichier pour que vous puissiez voir. https://mon-partage.fr/f/V5TnsE2U/

Merci à vous.