Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes
les lignes contenant le mot "Maison", copier ces lignes et les coller
dans un autre fichier excell nommé "MesMaisons"
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
MichDenis
Tu sélectionnes la totalité de la plage de cellules, Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison" Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement. Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Tu sélectionnes la totalité de la plage de cellules,
Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison"
Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne
d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement.
Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" <jc.electra@laposte.net> a écrit dans le message de news:
OqAivPxPHHA.3872@TK2MSFTNGP06.phx.gbl...
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes
les lignes contenant le mot "Maison", copier ces lignes et les coller
dans un autre fichier excell nommé "MesMaisons"
Tu sélectionnes la totalité de la plage de cellules, Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison" Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement. Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Jacky
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert -- Salutations JJ
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Bonsoir,
'-----------
Sub jj()
Application.ScreenUpdating = False
With Sheets(1)
[a1].AutoFilter Field:=1, Criteria1:="Maison"
Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy
Workbooks("MesMaisons").Sheets(1).Range("a2")
[a1].AutoFilter
End With
End Sub
Ps: le fichier "MesMaisons" est supposé ouvert
--
Salutations
JJ
"Electra" <jc.electra@laposte.net> a écrit dans le message de news:
OqAivPxPHHA.3872@TK2MSFTNGP06.phx.gbl...
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes
les lignes contenant le mot "Maison", copier ces lignes et les coller dans
un autre fichier excell nommé "MesMaisons"
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert -- Salutations JJ
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Jacky
A remplacer
Workbooks("MesMaisons"). par
Workbooks("MesMaisons.xls")
Ps:Le fichier "MesMaisons.xls" enregistré au moins 1 fois -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert -- Salutations JJ
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
A remplacer
Workbooks("MesMaisons").
par
Workbooks("MesMaisons.xls")
Ps:Le fichier "MesMaisons.xls" enregistré au moins 1 fois
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
eTsmygxPHHA.1552@TK2MSFTNGP05.phx.gbl...
Bonsoir,
'-----------
Sub jj()
Application.ScreenUpdating = False
With Sheets(1)
[a1].AutoFilter Field:=1, Criteria1:="Maison"
Range("a2:iv256",
[a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy
Workbooks("MesMaisons").Sheets(1).Range("a2")
[a1].AutoFilter
End With
End Sub
Ps: le fichier "MesMaisons" est supposé ouvert
--
Salutations
JJ
"Electra" <jc.electra@laposte.net> a écrit dans le message de news:
OqAivPxPHHA.3872@TK2MSFTNGP06.phx.gbl...
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes
les lignes contenant le mot "Maison", copier ces lignes et les coller
dans un autre fichier excell nommé "MesMaisons"
Ps:Le fichier "MesMaisons.xls" enregistré au moins 1 fois -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert -- Salutations JJ
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Electra
Tu sélectionnes la totalité de la plage de cellules, Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison" Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement. Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Merci pour ta réponse, mais ce que je voudrais c'est automatiser cette
procédure, car j'ai plusieurs mots à rechercher et chaque lignes contenant ces mots est à coller dans un nouveau fichier. En plus, j'ai de nombreux fichiers à traiter de la même façon.
Tu sélectionnes la totalité de la plage de cellules,
Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison"
Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne
d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement.
Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" <jc.electra@laposte.net> a écrit dans le message de news:
OqAivPxPHHA.3872@TK2MSFTNGP06.phx.gbl...
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes
les lignes contenant le mot "Maison", copier ces lignes et les coller
dans un autre fichier excell nommé "MesMaisons"
Merci d'avance
Electra
Merci pour ta réponse, mais ce que je voudrais c'est automatiser cette
procédure, car j'ai plusieurs mots à rechercher et chaque lignes
contenant ces mots est à coller dans un nouveau fichier. En plus, j'ai
de nombreux fichiers à traiter de la même façon.
Tu sélectionnes la totalité de la plage de cellules, Tu fais un filtre automatique sur la colonne où tu retrouves l'information "Maison" Tu sélectionnes toute la plage contenant le résultat du filtre moins la ligne d'étiquette (en-tête de colonne) si tu ne veux pas la copier vers la nouvelle destination.
Barre de menus / Édition / Atteindre / Cellules / Les cellules visibles seulement. Et tu fais un copier-coller des lignes vers leur nouvelle destination
"Electra" a écrit dans le message de news:
Bonjour,
Dans la colonne("A") d'un fichier Excel, je voudrais sélectionner toutes les lignes contenant le mot "Maison", copier ces lignes et les coller dans un autre fichier excell nommé "MesMaisons"
Merci d'avance Electra
Merci pour ta réponse, mais ce que je voudrais c'est automatiser cette
procédure, car j'ai plusieurs mots à rechercher et chaque lignes contenant ces mots est à coller dans un nouveau fichier. En plus, j'ai de nombreux fichiers à traiter de la même façon.
Electra
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert Merci, je vais essayer ce soir
Bonsoir,
'-----------
Sub jj()
Application.ScreenUpdating = False
With Sheets(1)
[a1].AutoFilter Field:=1, Criteria1:="Maison"
Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy
Workbooks("MesMaisons").Sheets(1).Range("a2")
[a1].AutoFilter
End With
End Sub
Ps: le fichier "MesMaisons" est supposé ouvert
Merci, je vais essayer ce soir
Bonsoir, '----------- Sub jj() Application.ScreenUpdating = False With Sheets(1) [a1].AutoFilter Field:=1, Criteria1:="Maison" Range("a2:iv256", [a65536].End(3)).SpecialCells(xlCellTypeVisible).Copy Workbooks("MesMaisons").Sheets(1).Range("a2") [a1].AutoFilter End With End Sub
Ps: le fichier "MesMaisons" est supposé ouvert Merci, je vais essayer ce soir
