Extraire dans un nouvel onglet les éléments précisés
7 réponses
magic-dd
bonjour
je recherche mais n'y arrive pas a extraire les =E9l=E9ments d'un classeur
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient s=E9lectionn=E9es puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
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
michel ou sam
Bonjour, le nouvel onglet doit il se remplir automatiquement ou est il à créer manuellement à la demande ?
Dans le 1er cas on s'oriente vers une macro. Dans le 2eme cas, données/filtrer/filtre automatique puis copier et coller dans le nouvel onglet.
Michel
"magic-dd" a écrit dans le message de news:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Bonjour,
le nouvel onglet doit il se remplir automatiquement ou est il à créer
manuellement à la demande ?
Dans le 1er cas on s'oriente vers une macro.
Dans le 2eme cas, données/filtrer/filtre automatique
puis copier et coller dans le nouvel onglet.
Michel
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
6aa39683-479f-44ff-af92-5c3244e947e9@g2g2000vbl.googlegroups.com...
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Bonjour, le nouvel onglet doit il se remplir automatiquement ou est il à créer manuellement à la demande ?
Dans le 1er cas on s'oriente vers une macro. Dans le 2eme cas, données/filtrer/filtre automatique puis copier et coller dans le nouvel onglet.
Michel
"magic-dd" a écrit dans le message de news:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
"magic-dd" a écrit dans le message de news: bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Les Gourous semblent être en vacances, je t'ai donc mis un fichier :
http://www.cijoint.fr/cjlink.php?file=cj201107/cij3GDQoIt.xls
Michel
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:6aa39683-479f-44ff-af92-5c3244e947e9@g2g2000vbl.googlegroups.com...
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
"magic-dd" a écrit dans le message de news: bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Solution VBA , dans le code de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Address = "$F$2" Then Dim mtab As Range, i As Long Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address) Application.DisplayAlerts = False On Error Resume Next Worksheets(Feuil1.[f2].Value).Delete On Error GoTo 0 Application.DisplayAlerts = True Sheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = Feuil1.[f2] Feuil1.[a1:d1].Copy .[a1:d1] For i = 1 To mtab.Rows.Count If mtab.Cells(i, 4) = Feuil1.[f2] Then mtab.Rows(i).Copy .[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues End If Next i End With
End If
'LSteph
On 24 juil, 15:04, magic-dd wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Solution VBA , dans le code de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$2" Then
Dim mtab As Range, i As Long
Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address)
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Feuil1.[f2].Value).Delete
On Error GoTo 0
Application.DisplayAlerts = True
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Feuil1.[f2]
Feuil1.[a1:d1].Copy .[a1:d1]
For i = 1 To mtab.Rows.Count
If mtab.Cells(i, 4) = Feuil1.[f2] Then
mtab.Rows(i).Copy
.[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
End If
Next i
End With
End If
'LSteph
On 24 juil, 15:04, magic-dd <ciolan...@gmail.com> wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Solution VBA , dans le code de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Address = "$F$2" Then Dim mtab As Range, i As Long Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address) Application.DisplayAlerts = False On Error Resume Next Worksheets(Feuil1.[f2].Value).Delete On Error GoTo 0 Application.DisplayAlerts = True Sheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = Feuil1.[f2] Feuil1.[a1:d1].Copy .[a1:d1] For i = 1 To mtab.Rows.Count If mtab.Cells(i, 4) = Feuil1.[f2] Then mtab.Rows(i).Copy .[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues End If Next i End With
End If
'LSteph
On 24 juil, 15:04, magic-dd wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
C'est aussi bien de savior faire sans VBA, avec un filtre, élaboré par exemple, mais je suppose que tu veux fare ca direct en vba:
'dans le codemodule de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Address = "$F$2" Then Dim mtab As Range, i As Long Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address) Application.DisplayAlerts = False On Error Resume Next Worksheets(Feuil1.[f2].Value).Delete On Error GoTo 0 Application.DisplayAlerts = True Sheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = Feuil1.[f2] Feuil1.[a1:d1].Copy .[a1:d1] For i = 1 To mtab.Rows.Count If mtab.Cells(i, 4) = Feuil1.[f2] Then mtab.Rows(i).Copy .[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues End If Next i End With
End If
'LSteph
On 24 juil, 15:04, magic-dd wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
C'est aussi bien de savior faire sans VBA, avec un filtre, élaboré par
exemple, mais je suppose que tu veux fare ca direct en vba:
'dans le codemodule de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$2" Then
Dim mtab As Range, i As Long
Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address)
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Feuil1.[f2].Value).Delete
On Error GoTo 0
Application.DisplayAlerts = True
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Feuil1.[f2]
Feuil1.[a1:d1].Copy .[a1:d1]
For i = 1 To mtab.Rows.Count
If mtab.Cells(i, 4) = Feuil1.[f2] Then
mtab.Rows(i).Copy
.[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
End If
Next i
End With
End If
'LSteph
On 24 juil, 15:04, magic-dd <ciolan...@gmail.com> wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
C'est aussi bien de savior faire sans VBA, avec un filtre, élaboré par exemple, mais je suppose que tu veux fare ca direct en vba:
'dans le codemodule de la feuille Feuil1(Base)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Address = "$F$2" Then Dim mtab As Range, i As Long Set mtab = Range("$A$1:" & [D65536].End(xlUp).Address) Application.DisplayAlerts = False On Error Resume Next Worksheets(Feuil1.[f2].Value).Delete On Error GoTo 0 Application.DisplayAlerts = True Sheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = Feuil1.[f2] Feuil1.[a1:d1].Copy .[a1:d1] For i = 1 To mtab.Rows.Count If mtab.Cells(i, 4) = Feuil1.[f2] Then mtab.Rows(i).Copy .[a65536].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues End If Next i End With
End If
'LSteph
On 24 juil, 15:04, magic-dd wrote:
bonjour
je recherche mais n'y arrive pas a extraire les éléments d'un classeu r dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient sélectionnées puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
"LSteph" a écrit dans le message de groupe de discussion :
Bonjour,
je remets ......
C'était peut-être trop copieux ? -)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
celine57
Le dimanche 24 Juillet 2011 à 15:04 par magic-dd :
bonjour
je recherche mais n'y arrive pas a extraire les lments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient slectionnes puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
Bonsoir, j'ai un petit souci en vba, quelqu'un pourrai m'aider ?
Le dimanche 24 Juillet 2011 à 15:04 par magic-dd :
bonjour
je recherche mais n'y arrive pas a extraire les =E9l=E9ments d'un classeur
dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au "
1er SEMESTRE 2012" soient s=E9lectionn=E9es puis copier dans un nouvel
onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne
merci
http://cjoint.com/?AGypef6WALw
Bonsoir, j'ai un petit souci en vba, quelqu'un pourrai m'aider ?
Le dimanche 24 Juillet 2011 à 15:04 par magic-dd :
bonjour
je recherche mais n'y arrive pas a extraire les lments d'un classeur dans un nouvel onglet
par exemple, toutes les lignes ayant la date de fin de contrat au " 1er SEMESTRE 2012" soient slectionnes puis copier dans un nouvel onglet qui portera le nom de 1er SEMESTRE 2012
pas facile a expliquer donc je vous met un exemple en ligne