Récupérer les informations d'une feuille
Fermé
pitch02
Messages postés
43
Date d'inscription
mardi 13 juin 2017
Statut
Membre
Dernière intervention
14 septembre 2018
-
14 sept. 2018 à 10:44
DjiDji59430 Messages postés 4107 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 10 septembre 2024 - 14 sept. 2018 à 18:08
DjiDji59430 Messages postés 4107 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 10 septembre 2024 - 14 sept. 2018 à 18:08
A voir également:
- Récupérer les informations d'une feuille
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Recuperer video youtube - Guide
- Entrer les informations d'identification reseau - Guide
- Comment récupérer un compte facebook piraté - Guide
- Impossible de récupérer mon compte gmail - Guide
3 réponses
DjiDji59430
Messages postés
4107
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
10 septembre 2024
667
14 sept. 2018 à 12:03
14 sept. 2018 à 12:03
Bonjour,
tu fais une liste a1=f0......a100=f100
en b1
=indirect(a1&"!e8") que tu descends
et bis repetita !
Crdlmt
tu fais une liste a1=f0......a100=f100
en b1
=indirect(a1&"!e8") que tu descends
et bis repetita !
Crdlmt
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 14 sept. 2018 à 12:17
Modifié le 14 sept. 2018 à 12:17
Bonjour,
ou en vba:
ou en vba:
Dim Ws As Worksheet Dim DerniereLigneUtilisee As Long Sheets("FO").Range("E1").Value = "En-tete" Sheets("FO").Range("J1").Value = "En-tete" Sheets("FO").Range("O1").Value = "En-tete" DerniereLigneUtilisee = Sheets("FO").Range("E" & Rows.Count).End(xlUp).Row + 1 ' + 1 = 1ère ligne vide For Each Ws In Worksheets If Ws.Name = "FO" Then Else Sheets("FO").Range("E" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("E8").Value Sheets("FO").Range("J" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("J8").Value Sheets("FO").Range("O" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("O8").Value DerniereLigneUtilisee = DerniereLigneUtilisee + 1 End If Next Ws
pitch02
Messages postés
43
Date d'inscription
mardi 13 juin 2017
Statut
Membre
Dernière intervention
14 septembre 2018
14 sept. 2018 à 12:42
14 sept. 2018 à 12:42
Bonjour je ne sais pas du tout codé en VBA, où dois-je insérer ce code ?
Merci
Merci
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 14 sept. 2018 à 14:17
Modifié le 14 sept. 2018 à 14:17
Ce mettre sur la feuille concernée FO, Faire Alt F11 pour accéder à l'éditeur et mettre ce code:
a chaque sélection de A1 la macro sera déclenchée
Ensuite enregistrer: Classeur Excel prenant en charge les macros
Voilà
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then lancermacro End If End Sub Private Sub lancermacro() Dim Ws As Worksheet Dim DerniereLigneUtilisee As Long Sheets("FO").Range("E1").Value = "En-tete" Sheets("FO").Range("J1").Value = "En-tete" Sheets("FO").Range("O1").Value = "En-tete" DerniereLigneUtilisee = Sheets("FO").Range("E" & Rows.Count).End(xlUp).Row + 1 ' + 1 = 1ère ligne vide Application.ScreenUpdating = False For Each Ws In Worksheets If Ws.Name = "FO" Then Else Sheets("FO").Range("E" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("E8").Value Sheets("FO").Range("J" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("J8").Value Sheets("FO").Range("O" & DerniereLigneUtilisee).Value = Sheets(Ws.Name).Range("O8").Value DerniereLigneUtilisee = DerniereLigneUtilisee + 1 End If Next Ws Application.ScreenUpdating = True End Sub
a chaque sélection de A1 la macro sera déclenchée
Ensuite enregistrer: Classeur Excel prenant en charge les macros
Voilà
pitch02
Messages postés
43
Date d'inscription
mardi 13 juin 2017
Statut
Membre
Dernière intervention
14 septembre 2018
14 sept. 2018 à 14:31
14 sept. 2018 à 14:31
Merci pour vos réponses.
Je pense que je n'ai pas été clair sur mon problème.
Je souhaite dans la feuille F0 pouvoir récupérer les données présentes dans les cases E8, J8 et O8 des autres feuilles allant de F1 à F100. De façon à avoir un tableau avec les différentes valeurs dans cette feuille F0.
Je pense que je n'ai pas été clair sur mon problème.
Je souhaite dans la feuille F0 pouvoir récupérer les données présentes dans les cases E8, J8 et O8 des autres feuilles allant de F1 à F100. De façon à avoir un tableau avec les différentes valeurs dans cette feuille F0.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 14 sept. 2018 à 14:37
Modifié le 14 sept. 2018 à 14:37
C'est ce que fait cette macro avec les en-têtes en E1, J1 et O1 et les données de toutes les feuilles dans les colonnes E, J et O. Mais l'on peut changer les destinations, c'est à toi de le dire!
pitch02
Messages postés
43
Date d'inscription
mardi 13 juin 2017
Statut
Membre
Dernière intervention
14 septembre 2018
Modifié le 14 sept. 2018 à 14:43
Modifié le 14 sept. 2018 à 14:43
D'accord je dois mal m'y prendre. Je vais regarder quelques tutos sur la création des macros afin de mieux cerner ces dernières.
Merci pour ton aide.
Merci pour ton aide.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 sept. 2018 à 16:05
14 sept. 2018 à 16:05
Voici un exemple:
https://www.cjoint.com/c/HIooeIfiVoQ
@+
https://www.cjoint.com/c/HIooeIfiVoQ
@+
14 sept. 2018 à 12:18
Merci pour cette réponse
Si j'ai bien compris je tape dans la cellule a1=f1 puis a2=f2 ... a100=f100.
Puis je tape =indirect(a1&"!e8") dans b1 ?
Modifié le 14 sept. 2018 à 15:14
tuto :
https://www.cjoint.com/c/HIonodV1SZZ
14 sept. 2018 à 15:18
Modifié le 14 sept. 2018 à 15:28
14 sept. 2018 à 15:52