je suis assez nouveau dans vba
comment copier 3 feuilles sur une seule sans passer par copier coller
ces trois feuilles possedes bcp de doublons sur 2 ou 3 colonnes
comment supprimer tous les doublons et les mettres sur une feuilles a parts.
quand vous me donner des formules vba ou dois je les entrer
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
j
essaie ça :
Sub copie_pages() pag = Array("feuil1", "feuil2", "feuil3") 'créer une page Set result = ThisWorkbook.Sheets.Add 'balayer les pages à copier For num = 0 To 2 'copier Sheets(pag(num)).UsedRange.Copy result.Cells(result.UsedRange.Row + result.UsedRange.Rows.Count, 1).Select result.Paste Next 'éliminer les doublons For lin = result.Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1 For li = 1 To lin - 1 For col = 1 To result.UsedRange.Column + result.UsedRange.Columns.Count + 1 If result.Cells(lin, col) <> result.Cells(li, col) Then GoTo linsuiv 'MsgBox ("lin" & lin & " li" & li & " col" & col) Next result.Rows(lin).Select result.Rows(lin).EntireRow.Delete linsuiv: Next Next End Sub
http://jacxl.free.fr/
"Goldocrack" a écrit dans le message de news:
bonjour a tous
je suis assez nouveau dans vba comment copier 3 feuilles sur une seule sans passer par copier coller ces trois feuilles possedes bcp de doublons sur 2 ou 3 colonnes comment supprimer tous les doublons et les mettres sur une feuilles a parts.
quand vous me donner des formules vba ou dois je les entrer
Merci de votre aide précieuse
essaie ça :
Sub copie_pages()
pag = Array("feuil1", "feuil2", "feuil3")
'créer une page
Set result = ThisWorkbook.Sheets.Add
'balayer les pages à copier
For num = 0 To 2
'copier
Sheets(pag(num)).UsedRange.Copy
result.Cells(result.UsedRange.Row + result.UsedRange.Rows.Count, 1).Select
result.Paste
Next
'éliminer les doublons
For lin = result.Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1
For li = 1 To lin - 1
For col = 1 To result.UsedRange.Column + result.UsedRange.Columns.Count + 1
If result.Cells(lin, col) <> result.Cells(li, col) Then GoTo linsuiv
'MsgBox ("lin" & lin & " li" & li & " col" & col)
Next
result.Rows(lin).Select
result.Rows(lin).EntireRow.Delete
linsuiv:
Next
Next
End Sub
J@C
http://jacxl.free.fr/
"Goldocrack" <xxxxx@xx.com> a écrit dans le message de news:
uxaSMPYrDHA.392@TK2MSFTNGP11.phx.gbl...
bonjour a tous
je suis assez nouveau dans vba
comment copier 3 feuilles sur une seule sans passer par copier coller
ces trois feuilles possedes bcp de doublons sur 2 ou 3 colonnes
comment supprimer tous les doublons et les mettres sur une feuilles a
parts.
quand vous me donner des formules vba ou dois je les entrer
Sub copie_pages() pag = Array("feuil1", "feuil2", "feuil3") 'créer une page Set result = ThisWorkbook.Sheets.Add 'balayer les pages à copier For num = 0 To 2 'copier Sheets(pag(num)).UsedRange.Copy result.Cells(result.UsedRange.Row + result.UsedRange.Rows.Count, 1).Select result.Paste Next 'éliminer les doublons For lin = result.Cells.Find("*", , , , , xlPrevious).Row To 1 Step -1 For li = 1 To lin - 1 For col = 1 To result.UsedRange.Column + result.UsedRange.Columns.Count + 1 If result.Cells(lin, col) <> result.Cells(li, col) Then GoTo linsuiv 'MsgBox ("lin" & lin & " li" & li & " col" & col) Next result.Rows(lin).Select result.Rows(lin).EntireRow.Delete linsuiv: Next Next End Sub
http://jacxl.free.fr/
"Goldocrack" a écrit dans le message de news:
bonjour a tous
je suis assez nouveau dans vba comment copier 3 feuilles sur une seule sans passer par copier coller ces trois feuilles possedes bcp de doublons sur 2 ou 3 colonnes comment supprimer tous les doublons et les mettres sur une feuilles a parts.
quand vous me donner des formules vba ou dois je les entrer
