Macro récupérer des données dans # feuilles
Résolu/Fermé
wanajo38
Messages postés
137
Date d'inscription
vendredi 2 mai 2008
Statut
Membre
Dernière intervention
20 février 2015
-
20 avril 2011 à 15:05
wanajo38 Messages postés 137 Date d'inscription vendredi 2 mai 2008 Statut Membre Dernière intervention 20 février 2015 - 21 avril 2011 à 08:37
wanajo38 Messages postés 137 Date d'inscription vendredi 2 mai 2008 Statut Membre Dernière intervention 20 février 2015 - 21 avril 2011 à 08:37
A voir également:
- Macro récupérer des données dans # feuilles
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Macro logiciel - Télécharger - Organisation
- Macro word - Guide
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
Modifié par gbinforme le 20/04/2011 à 23:14
Modifié par gbinforme le 20/04/2011 à 23:14
bonjour
Avec les informations que tu donnes, en supposant que ta "base de données clients" soit sur l'onglet "base" tu devrais regrouper tes données ainsi :
Toujours zen
Avec les informations que tu donnes, en supposant que ta "base de données clients" soit sur l'onglet "base" tu devrais regrouper tes données ainsi :
Public Sub regroupe() Dim f As Integer, wb As Worksheet Set wb = Sheets("base") For f = 1 To Sheets.Count If Sheets(f).Name <> wb.Name Then wb.Cells(f + 1, 1).Value = Sheets(f).Range("A1").Value wb.Cells(f + 1, 2).Value = Sheets(f).Range("B1").Value wb.Cells(f + 1, 3).Value = Sheets(f).Range("B2").Value wb.Cells(f + 1, 4).Value = Sheets(f).Range("B3").Value wb.Cells(f + 1, 5).Value = Sheets(f).Range("B4").Value End If Next f End Sub
Toujours zen
wanajo38
Messages postés
137
Date d'inscription
vendredi 2 mai 2008
Statut
Membre
Dernière intervention
20 février 2015
61
21 avril 2011 à 08:37
21 avril 2011 à 08:37
Merci mille fois, j'ai adapté ça à mes données et ça fonctionne parfaitement ;)