Macro - récupérer données onglets spécifiques
Fermé
nonalla
Messages postés
1
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
17 août 2010
-
17 août 2010 à 22:40
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 août 2010 à 02:21
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 août 2010 à 02:21
A voir également:
- Macro - récupérer données onglets spécifiques
- Recuperer video youtube - Guide
- Macro logiciel - Télécharger - Organisation
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Impossible de récupérer mon compte gmail - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
18 août 2010 à 00:08
18 août 2010 à 00:08
Bonjour,
Essayer le code suivant :
Essayer le code suivant :
Sub test()
Dim wbkSource As Workbook
Dim wbkRapport As Workbook
Dim wsh As Worksheet
Dim rng As Range
Set wbkSource = ActiveWorkbook
Set wbkRapport = Application.Workbooks.Add(xlWBATWorksheet)
Set rng = wbkRapport.Worksheets(1).Range("A1")
For Each wsh In wbkSource.Worksheets
rng.Value = wsh.Name
rng.Offset(, 1).Value = wsh.Range("C25").Value
Set rng = rng.Offset(1)
Next
End Sub
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 18/08/2010 à 02:28
Modifié par lermite222 le 18/08/2010 à 02:28
Bonjour,
code à coller dans le module de la feuille synthèse
pas besoin de bouton, c'est automatique.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
code à coller dans le module de la feuille synthèse
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Count = 1 Then
On Error Resume Next 'si erreur de saisie du nom de l'onglet
Target.Offset(1, 0) = Sheets(Target.Text).Range("C25")
End If
End Sub
pas besoin de bouton, c'est automatique.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)