Bonjour,
Je suis entrain de faire une fiche de suivi de materiels=20
et j'aimerai pouvoir une fiche recapitulative des pannes
et des interventions sur les machines.
Voici ma feuille :
Comment faire pour que quand je selectionne par une list-
box "AFICIO 1105" je puisse recup=E9rer que les ligne qui=20
correspond=20
a ce materiel?=20
Sachant que les pannes sont saisie les une apr=E8s les=20
autres pour une situation. Les situations ne sont pas=20
m=E9lang=E9es.
Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essay=E9 la "recherche vertical" mais ca ne fonctionne=20
pas parceque je ne connais pas le nombre de ligne que je=20
peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'esp=E8re avoir =E9t=E9 explicite.
Merci pour un coup de main.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news: 170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
Bonsoir.
Est-ce qu'un filtre automatique ferait l'affaire ?
Cordialement.
Daniel
"jed" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
170001c507b0$7cb45a00$a501280a@phx.gbl...
Bonjour,
Je suis entrain de faire une fiche de suivi de materiels
et j'aimerai pouvoir une fiche recapitulative des pannes
et des interventions sur les machines.
Voici ma feuille :
Comment faire pour que quand je selectionne par une list-
box "AFICIO 1105" je puisse recupérer que les ligne qui
correspond
a ce materiel?
Sachant que les pannes sont saisie les une après les
autres pour une situation. Les situations ne sont pas
mélangées.
Exemple : je selectionne AFICIO 1105 j'ai :
Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news: 170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
Jed
Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
.
Bonjour,
Merci d'abord de prendre la peine de me répondre.
Le filtre ne me va pas parceque j'ai plusieurs materiels à
plusieurs étages (18 !) et j'ai un onglet par étage.
Je voulais avoir une feuille sur laquelle je pourrais
avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la
solution de filtre.
Merci encore.
Jed
-----Message d'origine-----
Bonsoir.
Est-ce qu'un filtre automatique ferait l'affaire ?
Cordialement.
Daniel
"jed" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
170001c507b0$7cb45a00$a501280a@phx.gbl...
Bonjour,
Je suis entrain de faire une fiche de suivi de materiels
et j'aimerai pouvoir une fiche recapitulative des pannes
et des interventions sur les machines.
Voici ma feuille :
Comment faire pour que quand je selectionne par une list-
box "AFICIO 1105" je puisse recupérer que les ligne qui
correspond
a ce materiel?
Sachant que les pannes sont saisie les une après les
autres pour une situation. Les situations ne sont pas
mélangées.
Exemple : je selectionne AFICIO 1105 j'ai :
Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
.
Daniel
Bonjour. Essaie : Sub Fiche() Sheets("Fiche").Activate Range("A1").Select For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter Field:=1, Criteria1:="AFICIO 1105" Selection.SpecialCells(xlCellTypeVisible).Copy Sheets("Fiche").Activate ActiveSheet.Paste ActiveCell.SpecialCells(xlLastCell).Select Range("A" & ActiveCell.Row + 1).Select End If Next i For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Selection.AutoFilter End If Next i Sheets("Fiche").Activate Range("B1").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = "Modèle" Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub Cordialement. Daniel "Jed" a écrit dans le message de news: 1cd601c5084b$2c4f2180$ Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
.
Bonjour.
Essaie :
Sub Fiche()
Sheets("Fiche").Activate
Range("A1").Select
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Fiche" Then
Sheets(i).Activate
Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.AutoFilter Field:=1, Criteria1:="AFICIO 1105"
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Fiche").Activate
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.Row + 1).Select
End If
Next i
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Fiche" Then
Sheets(i).Activate
Selection.AutoFilter
End If
Next i
Sheets("Fiche").Activate
Range("B1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "Modèle" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Cordialement.
Daniel
"Jed" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1cd601c5084b$2c4f2180$a501280a@phx.gbl...
Bonjour,
Merci d'abord de prendre la peine de me répondre.
Le filtre ne me va pas parceque j'ai plusieurs materiels à
plusieurs étages (18 !) et j'ai un onglet par étage.
Je voulais avoir une feuille sur laquelle je pourrais
avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la
solution de filtre.
Merci encore.
Jed
-----Message d'origine-----
Bonsoir.
Est-ce qu'un filtre automatique ferait l'affaire ?
Cordialement.
Daniel
"jed" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
170001c507b0$7cb45a00$a501280a@phx.gbl...
Bonjour,
Je suis entrain de faire une fiche de suivi de materiels
et j'aimerai pouvoir une fiche recapitulative des pannes
et des interventions sur les machines.
Voici ma feuille :
Comment faire pour que quand je selectionne par une list-
box "AFICIO 1105" je puisse recupérer que les ligne qui
correspond
a ce materiel?
Sachant que les pannes sont saisie les une après les
autres pour une situation. Les situations ne sont pas
mélangées.
Exemple : je selectionne AFICIO 1105 j'ai :
Bonjour. Essaie : Sub Fiche() Sheets("Fiche").Activate Range("A1").Select For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter Field:=1, Criteria1:="AFICIO 1105" Selection.SpecialCells(xlCellTypeVisible).Copy Sheets("Fiche").Activate ActiveSheet.Paste ActiveCell.SpecialCells(xlLastCell).Select Range("A" & ActiveCell.Row + 1).Select End If Next i For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Selection.AutoFilter End If Next i Sheets("Fiche").Activate Range("B1").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = "Modèle" Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub Cordialement. Daniel "Jed" a écrit dans le message de news: 1cd601c5084b$2c4f2180$ Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
.
Jed
Merci !!!! Ca a l'air de fonctionner... qq modifs et je crois que je tiens le bon bout grace a toi !!
Merci indefinement ... euh non infinement. Cdlt Jed
-----Message d'origine----- Bonjour. Essaie : Sub Fiche() Sheets("Fiche").Activate Range("A1").Select For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Range("A1", ActiveCell.SpecialCells (xlLastCell)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy Sheets("Fiche").Activate ActiveSheet.Paste ActiveCell.SpecialCells(xlLastCell).Select Range("A" & ActiveCell.Row + 1).Select End If Next i For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Selection.AutoFilter End If Next i Sheets("Fiche").Activate Range("B1").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = "Modèle" Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub Cordialement. Daniel "Jed" a écrit dans le message de news:
1cd601c5084b$2c4f2180$ Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
J'ai essayé la "recherche vertical" mais ca ne fonctionne pas parceque je ne connais pas le nombre de ligne que je peux avoir pour un materiel.
Ou puis je trouver des exemples ou des tuto !
J'espère avoir été explicite. Merci pour un coup de main.
.
.
Merci !!!!
Ca a l'air de fonctionner... qq modifs et je crois que je
tiens le bon bout grace a toi !!
Merci indefinement ... euh non infinement.
Cdlt
Jed
-----Message d'origine-----
Bonjour.
Essaie :
Sub Fiche()
Sheets("Fiche").Activate
Range("A1").Select
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Fiche" Then
Sheets(i).Activate
Range("A1", ActiveCell.SpecialCells
(xlLastCell)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("Fiche").Activate
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.Row + 1).Select
End If
Next i
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Fiche" Then
Sheets(i).Activate
Selection.AutoFilter
End If
Next i
Sheets("Fiche").Activate
Range("B1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "Modèle" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Cordialement.
Daniel
"Jed" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
1cd601c5084b$2c4f2180$a501280a@phx.gbl...
Bonjour,
Merci d'abord de prendre la peine de me répondre.
Le filtre ne me va pas parceque j'ai plusieurs materiels à
plusieurs étages (18 !) et j'ai un onglet par étage.
Je voulais avoir une feuille sur laquelle je pourrais
avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la
solution de filtre.
Merci encore.
Jed
-----Message d'origine-----
Bonsoir.
Est-ce qu'un filtre automatique ferait l'affaire ?
Cordialement.
Daniel
"jed" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
170001c507b0$7cb45a00$a501280a@phx.gbl...
Bonjour,
Je suis entrain de faire une fiche de suivi de materiels
et j'aimerai pouvoir une fiche recapitulative des pannes
et des interventions sur les machines.
Voici ma feuille :
Comment faire pour que quand je selectionne par une list-
box "AFICIO 1105" je puisse recupérer que les ligne qui
correspond
a ce materiel?
Sachant que les pannes sont saisie les une après les
autres pour une situation. Les situations ne sont pas
mélangées.
Exemple : je selectionne AFICIO 1105 j'ai :
Merci !!!! Ca a l'air de fonctionner... qq modifs et je crois que je tiens le bon bout grace a toi !!
Merci indefinement ... euh non infinement. Cdlt Jed
-----Message d'origine----- Bonjour. Essaie : Sub Fiche() Sheets("Fiche").Activate Range("A1").Select For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Range("A1", ActiveCell.SpecialCells (xlLastCell)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy Sheets("Fiche").Activate ActiveSheet.Paste ActiveCell.SpecialCells(xlLastCell).Select Range("A" & ActiveCell.Row + 1).Select End If Next i For i = 1 To Sheets.Count If Sheets(i).Name <> "Fiche" Then Sheets(i).Activate Selection.AutoFilter End If Next i Sheets("Fiche").Activate Range("B1").Select Do While ActiveCell.Value <> "" If ActiveCell.Value = "Modèle" Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub Cordialement. Daniel "Jed" a écrit dans le message de news:
1cd601c5084b$2c4f2180$ Bonjour, Merci d'abord de prendre la peine de me répondre. Le filtre ne me va pas parceque j'ai plusieurs materiels à plusieurs étages (18 !) et j'ai un onglet par étage. Je voulais avoir une feuille sur laquelle je pourrais avoir l'historique des pannes sur l'ensemble du materiel.
Mais si je ne trouve pas je vais etre oblige de prendre la solution de filtre. Merci encore. Jed
-----Message d'origine----- Bonsoir. Est-ce qu'un filtre automatique ferait l'affaire ? Cordialement. Daniel "jed" a écrit dans le message de news:
170001c507b0$7cb45a00$
Bonjour, Je suis entrain de faire une fiche de suivi de materiels et j'aimerai pouvoir une fiche recapitulative des pannes et des interventions sur les machines. Voici ma feuille :
Comment faire pour que quand je selectionne par une list- box "AFICIO 1105" je puisse recupérer que les ligne qui correspond a ce materiel? Sachant que les pannes sont saisie les une après les autres pour une situation. Les situations ne sont pas mélangées. Exemple : je selectionne AFICIO 1105 j'ai :
