Copier les données d'une feuille à l'autre
kigoo
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
kigoo Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
kigoo Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Copier les données d'une feuille à l'autre
- Fuite données maif - Guide
- Comment copier une vidéo youtube - Guide
- Supprimer les données de navigation - Guide
- Super copier - Télécharger - Gestion de fichiers
- Bruler une feuille de laurier - Guide
6 réponses
Bonjour,
Voici, plus qu'à sélectionner le club et cliquer sur le bouton.
le fichier
https://mon-partage.fr/f/xm85r1SJ/
le code associé
Cdlt
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
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?
https://mon-partage.fr/f/EslFAXMW/
Pour la 2ème question: c'est quoi le but? Qu'il soit modifiable? seulement consultable?
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.
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.
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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é?