Discussion :

[Léponge85]

Boujour encore moi lol

je suis sur la réalisation d'une macro et j'ai une erreur d'execution : objet requit
Je débute dans le VBA et j'oré besoin de vous pour m'aider a coriger ce probleme.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim Nfeuille As Integer
 
 
Sheets.Add after:=Worksheets(Worksheets.Count)
Nfeuille = activesheets.Name
 
    For i = 1 To Sheets.Count - 1
 
        Sheets(i).Columns("D:D").Select.Copy Destination:=Sheets(Nfeuille).Range("E1")
    Next i
 
 
End Sub

Merci d'avance

[ouskel'n'or]

Il n'y a rien qui te choque ?

Dim Nfeuille As Integer
'...
Nfeuille = activesheets.Name

[Léponge85]

a oui OUPS
merci encore

[Léponge85]

Je viens de corriger mon erreur et ca me fait la même erreur : Objet requis
Peut tu m'aider stp
Merci

[Jean-Pierre49]

Plusieurs erreur

Test (pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim Nfeuille As String
Dim i As Integer
 
Sheets.Add After:=Worksheets(Worksheets.Count)
Nfeuille = ActiveSheet.Name
 
    For i = 1 To Sheets.Count - 1
 
        Sheets(i).Columns("D:D").Copy Destination:=Sheets(Nfeuille).Range("E1")
    Next i
 
 
End Sub

Tu dis

[Léponge85]

Merci de ton aide Jean Pierre je n'est plus d'erreur. Cependand cette macro doit normallement extraire une colonne d'une feuille vers une autre feuille et ca ne marche pas.
Peut tu m'aider stp.
Merci