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

Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
- - Dernière réponse : kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
- 6 sept. 2019 à 15:35
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
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
1995
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 septembre 2019
224
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 60276 internautes nous ont dit merci ce mois-ci

kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
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é?
Commenter la réponse de Frenchie83
Messages postés
1995
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 septembre 2019
224
1
Merci
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?

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 60276 internautes nous ont dit merci ce mois-ci

kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
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.
kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
ainsi que MHT
kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
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/
Commenter la réponse de Frenchie83
Messages postés
1995
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 septembre 2019
224
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 60276 internautes nous ont dit merci ce mois-ci

kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
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.
Commenter la réponse de Frenchie83
Messages postés
1995
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 septembre 2019
224
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 60276 internautes nous ont dit merci ce mois-ci

kigoo
Messages postés
8
Date d'inscription
mercredi 10 juillet 2019
Statut
Membre
Dernière intervention
6 septembre 2019
-
Merci pour tout!
Commenter la réponse de Frenchie83