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

Re : Bonjour à tous,

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cpo1968
  • 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
C

cpo1968

Guest
Bonjour,
Je salue tous les membres d'XLD.

j'ai40 ans et je suis élève ingénieur généraliste en formation continue. Par la force des choses, je dois me mettre à la page concernant la bureautique et surtout excel .
J'aurais besoin d'un coup de main pour faire une macro.
J'utilise excel pour faire des tableaux et des graphiques depuis peu.

Je sais me servir de l'assistant enregistreur de macro ,mais je suis loin de savoir faire un code élaboré.

Voici ma problématique: sur Excel 2000 à partir d'une feuille protégée,je désire extraire et recopier les lignes correspondant à un numéro contenu dans la colonne "N° d'OT"(OT=ordre de travail) dans une autre feuille.

Le filtre élaboré ne peut pas se faire sur une feuille protégée.

Cette feuille sert à saisir toutes les interventions techniques à partir d'un ordre de travail.Il peut y avoir plusieurs lignes de saisie pour le même OT.

La liste des OT étant assez longue . Il n'est pas aisé de retrouver les lignes correspondant à un n°OT.

Le but est de recopier toutes les lignes correspondant à un N° d'OT sur une autre feuille.

Il faudrait disposer d'une boite de dialogue afin de saisir le N°d'OT pour executer la macro.

Le classeur contenant ce fichier de saisie est en partage réseau et doit rester protéger pour la mise en forme .

Toute aide afin d'avancer sur cette requete sera la bienvenue.

Merci d'avance.
 
Trier par date Trier par votes
Bonjour cpo1968, bienvenue sur le forum,

Un conseil : mettre un titre plus explicite quand on ouvre une discussion. Cela permet des recherches.

En supposant que la feuille contenant les OT soit la 1ère du classeur, et que les OT soient dans la 1ère colonne, essayez la macro suivante.

Elle est à placer dans un module (Alt+F11 puis menu Insertion-Module).

La feuille de restitution doit être dans le même classeur et sélectionnée. La macro peut se lancer par des touches de raccourci.

Code: 
Sub Filtre()
Dim OT$
Cells.ClearContents 'la feuille active est vidée
OT = InputBox("Entrez le N° d'OT recherché :", "N° d'OT")
If OT = "" Then Exit Sub
Application.ScreenUpdating = False 'l'écran est figé
Workbooks.Add 'création d'un nouveau classeur
ThisWorkbook.Sheets([COLOR="Red"][B]1[/B][/COLOR]).Cells.Copy Cells 'copie de la 1ère feuille vers le nouveau classeur
Range("A1").AutoFilter Field:=[COLOR="Red"][B]1[/B][/COLOR], Criteria1:=OT 'filtrage sur la 1ère colonne
Cells.Copy ThisWorkbook.ActiveSheet.Cells 'copie du filtrage vers la feuille active de ThisWorkbook
ActiveWorkbook.Close SaveChanges:=False 'fermeture du nouveau classeur
Application.ScreenUpdating = True
End Sub

Edit : vous pouvez aussi lancer la macro Filtre par la macro suivante placée dans le code de la feuille de restitution (clic droit sur l'onglet et Visualiser le code), la macro se lance à chaque activation de la feuille :

Code: 
Private Sub Worksheet_Activate()
Filtre
End Sub
A+
 
Dernière édition:
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

A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
245
sylvanu
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
535
TooFatBoy
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
378
job75
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
760
sylvanu
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
350
PRy
P
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
736
jeff1494
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
438
fd.30
F
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
322
evindi
E
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
579
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
684
sousou
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
925
TooFatBoy
Y
  • Résolu(e)
XL 2016 Evaluation sur des imposés
Réponses
6
Affichages
272
YGU1
Y
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
632
Webperegrino
W
  • Question Question
XL 2021 Mise à jour en lot de certaines cellules d'un TS.
Réponses
12
Affichages
485
TooFatBoy
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
971
candido57
C
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
869
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
887
Max
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…