Discussion :

[Edge38]

Bonjour je suis nouveau et m'inspire beaucoup de vos discussions, Je n'arrive pas à me sortir de la situation suivante ...

Aujourdhui je souhaite copier ligne apres ligne une base de données nommée data sur un autre onglet (onglet actif quand j'execute ma macro).

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
16
17
18
19
20
21
22
Dim ASh As String
 
 ASh = ActiveSheet.Name
 
 
Sheets("Datas").Select
 
Dim NumD As Integer
Dim NumP As Integer
Dim Numero As Integer
NumD = Range("A" & Rows.Count).End(xlUp).Row
 
Numero = 13
While Numero <= NumD
Sheets(ASh).Select
NumP = Range("A" & Rows.Count).End(xlUp).Row
Sheets("datas").Select
 
Worksheets("datas").Rows("Numero").Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)
 
 
Wend

Et le message suivant s'affiche...

"Erreur définie par l'application ou par l'objet"

En vous remerciant par avance

Bon we a tous

[Philippe Tulliez]

Bonjour,
La première chose à faire, placer ton code VBA entre les balises prévues à cet effet (tu sélectionnes le code VBA et ensuite tu cliques sur le bouton #)
Ensuite tu indiques le numéro de la ligne où a lieu l'erreur.
A la première lecture de ton code, je vois déjà un problème en début de boucle. A mon avis et sans l'avoir testé le programme ne peut pas quitter la boucle ou ne peut pas y entrer

[Edge38]

Merci Philippe,

Le programme semble s’exécuter jusqu'à l'avant dernière ligne

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
16
17
18
19
20
21
22
Dim ASh As String
 
ASh = ActiveSheet.Name
 
 
Sheets("Datas").Select
 
Dim NumD As Integer
Dim NumP As Integer
Dim Numero As Integer
NumD = Range("A" & Rows.Count).End(xlUp).Row
 
Numero = 13
While Numero <= NumD
Sheets(ASh).Select
NumP = Range("A" & Rows.Count).End(xlUp).Row
Sheets("datas").Select
 
Worksheets("datas").Rows("Numero").Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)
 
 
Wend

L'erreur apparaît à la ligne 19.

[Philippe Tulliez]

Bonjour,
Tu n'indiques pas le numéro de ligne où a lieu le message d'erreur. (quand une ligne est en erreur, elle est mise en surbrillance jaune)
A mon avis le programme ne s'arrête qu'au moment où il n'y a pas plus de mémoire car à aucune moment la variable nommée Numero n'est incrémentée donc la condition ne sera jamais remplie pour quitter la boucle.
En plus cette ligne est curieuse

Code :

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

Worksheets("datas").Rows("Numero").Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)

As-tu une ligne qui se nomme Numéro ?
La ligne devrait être

Code :

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

Worksheets("datas").Rows(Numero).Copy Destination:=Worksheets(ASh).Range("A" & NumP)

(Attention écrit de mémoire sans avoir testé)
En plus encore
Pourquoi autant de lignes sélectionnant la feuille nommée [Datas] alors qu'elle est toujours sélectionnées ?

[Edge38]

Merci Philippe j'avais effectivement effacé l'indentation. Merci pour tes correctifs

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
16
17
18
19
20
21
22
23
24
Dim ASh As String
 
 ASh = ActiveSheet.Name
 
 
Sheets("Datas").Select
 
Dim NumD As Integer
Dim NumP As Integer
Dim Numero As Integer
NumD = Range("A" & Rows.Count).End(xlUp).Row
 
Numero = 13
While Numero <= NumD
Sheets(ASh).Select
NumP = Range("A" & Rows.Count).End(xlUp).Row
Sheets("datas").Select
 
Numero = Numero + 1
 
Worksheets("datas").Rows(Numero).Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)
 
 
Wend

Ligne 19

Le code m'indique Objet Requis

je tourne en rond avec cette boucle

[unparia]

Bonjour

Ligne 19

Le code m'indique Objet Requis

cette ligne de code, à savoir :

Code :

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

19  Numero = Numero + 1

ne saurait en aucun cas générer l'erreur concernée ( "Objet Requis")

Ton erreur est ailleurs et très visible. J'attends personnellement de toi que tu fasses au moins l'effort de nous dire (c'est quand même simple) la ligne surlignée en debug.

[Edge38]

Bonjour,

Je débute en VBA et ai souhaité m'inscrire sur ce forum pour éspérer un peu d'aide. Je suis très actif sur d'autres forums dans des domaines complètement différents.

Je te remercie de m'aider surtout que tu sembles avoir identifié l'erreur, elle te parait évidente elle ne l'est pas forcément pour tout le monde.
Je répondais à Philippe qui sur son post demandait le numéro de ligne (19) depuis en rajoutant l'indentation, la ligne qui ne fonctionne pas est la 21. En m'excusant

Merci et bonne journée

[Menhir]

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
16
17
18
19
20
21
22
23
24
Dim ASh As String
 
 ASh = ActiveSheet.Name
 
 
Sheets("Datas").Select
 
Dim NumD As Integer
Dim NumP As Integer
Dim Numero As Integer
NumD = Range("A" & Rows.Count).End(xlUp).Row
 
Numero = 13
While Numero <= NumD
Sheets(ASh).Select
NumP = Range("A" & Rows.Count).End(xlUp).Row
Sheets("datas").Select
 
Numero = Numero + 1
 
Worksheets("datas").Rows(Numero).Select.Copy Destination:=Worksheets(ASh).Range("A" & NumP)
 
 
Wend

Ligne 19

Le code m'indique Objet Requis

je tourne en rond avec cette boucle

Regarde mieux le post #4.
Compare le code que t'a fourni Philippe et ton propre code.

PS : Ma fille de 9 ans qui ne connait rien au VBA a trouvé la différence.

[Edge38]

Il est vrai que n'importe quelle personne sachant lire pouvait trouver l'erreur.

Merci