Boucle VBA entre deux onglets

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:

---

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...:roll:

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

En vous remerciant par avance

Bon we a tous

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

Merci Philippe,

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

Code:

---

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.

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:

---

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:

---

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 ?

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

Code:

---

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 :lol:

Bonjour

Citation:

---

Ligne 19

Le code m'indique Objet Requis

---

cette ligne de code, à savoir :

Code:

---

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.

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

Citation:

---

Envoyé par Edge38

Code:

---

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 :lol:

---

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.

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

Merci