Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide à la séparation des données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion redabouch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

redabouch

Guest
Bonjour,

Je souhaiterai obtenir un peu d'aide sur la macro que je mets en place sur mon fichier Excel.

En premier lieu, je vous expose le problème. Je travaille sur un logiciel de maintenance qui répertorie toutes les pannes se produisant dans l'usine. J'arrive à faire une extraction de cette liste sur Excel. J'ai par la suite envie de faire une séparation de cette liste vers d'autres feuilles ( En clair avoir une feuille par machine ).

Après avoir lu plusieurs post mais aussi après avoir plusieurs recherches, j'ai essayé de mettre en place une macro, mais celle ci ne fonctionne pas. Quels seraient les modifications à faire sur celle ci pour qu'elle marche.

Je vous transmets en pièce jointe un exemplaire de l'historique sur excel avec la macro dessus.


Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Aide à la séparation des données

Bonjour


Après une vue rapide de ta macro il y a 2 problèmes
Problème 1
la ligne :
[A1].AutoFilter Field:=8, Criteria1:="*" & critere & "*"

doit être :
[A10].AutoFilter Field:=8, Criteria1:="*" & critere & "*"

Problème 2
Quand on utilise les filtres, il ne faut pas de ligne blanche. Celles-ci arrêtent le tri

Voici donc le code

Code: 
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select

'----------------------------------------------
' suppression de lignes blanches
'----------------------------------------------
l = 11
While nb_lb < 5
    If Cells(l, 8) = "" Then
        nb_lb = nb_lb + 1
        Rows(l).Delete
    Else
        nb_lb = 0
        l = l + 1
    End If
Wend

critere = InputBox("Critere?")
If critere = "" Then Exit Sub
[A10].AutoFilter Field:=7, Criteria1:="*" & critere & "*"
Application.DisplayAlerts = False
On Error Resume Next

'--------------------- création nouvelle feuille
Sheets(critere).Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = critere
  
Sheets("Sheet1").Select
l = 11
While Cells(l, 8) <> ""
    l = l + 1
Wend
Rows("11:" & l - 1).Select
Selection.Copy
Sheets(critere).Select
ActiveSheet.Paste
Cells.EntireColumn.AutoFit
Sheets("Sheet1").ShowAllData
End Sub
 
Vote positif 0 Vote négatif
Re : Aide à la séparation des données

Merci beaucoup.

Cela fonctionne très bien.

Mais puis je rajouter un code dans la macro qui me fera un total des temps d'interventions de la machine à chaque feuille ?

Et encore merci, c'est très gentil de ta part.
 
Vote positif 0 Vote négatif
Re : Aide à la séparation des données

Petite remarque:

Je n'arrive pas à faire la somme des durées d'interventions normalement non plus. En effet l'écriture est spéciale:

La durée est sous le format ( comme vous pouvez le voir sur le fichier en pièce jointe dans le premier document ) 02 H 15 ; 00 H 30 etc.....
 
Vote positif 0 Vote négatif
Re : Aide à la séparation des données

Salut,

Le code fonctionne très bien. Tu ne peux pas savoir à quel point tu as raccourci mon temps d'analyse. Merci Beaucoup.

J'ai une toute dernière question à te poser:
Serait ce possible au lieu de demander le critère, d'avoir une liste de machine dans la macro et que celle ci face tout le travail tout seul:
- C'est à dire qu'elle crée une feuille seule pour la machine 23 avec ses totaux puis une pour chaque autre machine. Si cela n'est pas possible ou trop difficile ne te casses pas la tête je ferai aussi bien comme ca.
 
Vote positif 0 Vote négatif
Re : Aide à la séparation des données

Bonjour,

Dans cette version le fait de cliquer sur le bouton met à jour toutes les feuilles machines.

Sur la feuille Sheet1 si on fait un double clic sur une ligne machine on va directement sur la feuille de la machine
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
203
sylvanu
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
344
fanch55
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
528
TooFatBoy
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
378
job75
D
  • Question Question
Microsoft 365 Aide pour Extraire des données selon critères
Réponses
1
Affichages
330
ALS35
A
W
  • Résolu(e)
XL 2019 Placer ou remplacer une photo .jpg au-dessus de la cellule [B6] contenant du texte à conserver
2
Réponses
21
Affichages
409
TooFatBoy
M
  • Question Question
XL 2016 Création fichier base de données liste nominative unique actualisée automatiquement sur tous les onglets des la mise à jour de la liste principale
Réponses
3
Affichages
286
Mikl5630
M
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
323
vgendron
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
1 K
Nain porte quoi
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
845
bruno lemaire
B
W
  • Résolu(e)
XL 2019 Retirer un mot dans un pavé de cellules contenant des Vblf
2
Réponses
21
Affichages
633
Webperegrino
W
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
279
un internaute
U
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
1 K
jeff1494
L
  • Question Question
Loloboc macro à créer
Réponses
9
Affichages
548
VIARD
V
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
464
Sissou71
S
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
420
vgendron
F
  • Question Question
XL 2016 aide tableau acompte
Réponses
5
Affichages
446
chris
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
684
Dégé59
D
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
377
p'tit vieux
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
562
Yogean
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…