Macro pour séparer les données d'une feuille de calc en pluieurs
Bonjour à tous,
J'ai une feuille Excel contenant pas mal de données sur des compteurs (compteurs pour évaluer l'affluence sur des lieux publics) en 3 colonnes (Nom du compteur / Date et heure/Affluence). Vu qu'il y a les données d'une dizaine de compteur (environ 400 lignes par compteur) dans cette feuille Excel, je voudrais faire une macro qui prend toutes les lignes d'un même compteur et les copient dans une nouvelle feuille. Par exemple, au début j'ai une feuille avec les données de 5 compteurs (200 lignes par compteur) et je voudrais au final avoir 1 feuille par compteur, donc 5 feuilles différentes.
J'espère que j'ai été assez clair dans les explications de mon problème.
Je ne sais pas trop comment m'y prendre, vu que je veux que cette macro fonctionne quelque soit le nombre de compteurs et quelque soit leur nom.
Merci bcp par avance pour vos réponses.
Une chose qui permettrait de me faire bien avancer c'est :
Comment sélectionner des lignes jusqu'à la prochaine ligne différente.
Exemple pour des données en 3 colonnes sur une feuille de calcul:
Bleu 12 12
Bleu 13 14
Bleu 56 35
Bleu 25 56
Noir 26 32
Noir 52 32
Rouge 23 25
Rouge 26 26
Je voudrais faire une macro qui sélectionne toutes les lignes bleu, puis les ajoutent dans une nouvelle feuille de calcul, puis qui sélectionne toutes les lignes noir et les ajoutent dans une nouvelle feuille de calcul après la nouvelle feuille bleue etc etc.
Je voudrais que cette macro fonctionne quelque soit le nombre de couleurs différentes et quelque soit le nom de la couleur.
J'espère que j'ai été plus clairs dans mes questionnement.
Merci pour vos réponses.
Re,
Non toujours pas
Pourquoi veux-tu séparer les relevés des compteurs ?
N'auras-tu pas besoin plus tard de faire des diagnostics ou autre entre les compteurs
Je veux les séparer car c'est utile pour ce que je veux faire, et c'est plus lisible.
Avez-vous une solution?
Merci d'avance
Re,
Les grandes lignes :
Il faut récupérer la dernière ligne de la colonne A
dLig = Range("A" & Rows.Count).End(XlUp).RowMémoriser le nom du 1er compteur et parcourir toutes les lignes jusqu'à ce que le nom change
' LA ligne 1 contient les entêtes
MemCompteur = Range("A2").Value
For Lig = 2 To dLig
If Range("A" & Lig+1).Value <> MemCompteur Then
' Couper/Coller les lignes dans une nouvelle feuille
' #Code à mettre ICI
' A la fin de la procédure mémoriser le nouveau compteur
MemCompteur = Range("A" & Lig+1).Value
Endif
Next LigVoilà à toi de faire le job
Merci bcp Bruno, je vais essayer ça
A bientôt
Bonjour, j'ai essayé ça mais le problème c'est que ça copie colle juste la première ligne, comment faire pour sélectionner toutes les lignes d'un même compteur? Merci d'avance :
'Variable pour savoir le nombre de lignes
dLig = Range("A" & Rows.Count).End(xlUp).Row
'On crée une variable avec le nom du premier compteur'
MemCompteur = Range("A2").Value
'On crée et renomme une feuille avec le nom de ce compteur
Sheets.Add(After:=Worksheets(1)).Name = "1"
ActiveSheet.Name = Range("Données!A2")
'Fonction pour
Worksheets(1).Activate
For Lig = 1 To dLig
If Range("A" & Lig + 1).Value = MemCompteur Then
' Couper/Coller les lignes dans une nouvelle feuille
Rows(Lig + 1).Select
Selection.Copy
Worksheets(2).Activate
ActiveSheet.Paste
MemCompteur = Range("A" & Lig + 1).Value
End If
Next Lig
'
End Sub
Re,
Pour moi, il faut mémoriser la 1ère ligne trouvée du compteur
Et lorsque la ligne suivante change de compteur, on copie/colle les valeurs de la Ligne mémorisée à la ligne actuelle
Mais attention les prémisses du code que je t'avais donné ne sont pas ceux que tu utilises