Pourquoi ma macro ne s'execute pas en entier?

[800vfr76]

Bonjour à tous,

J'ai la macro suivante qui s'execute jusqu'a la ligne: GoTo ligne1
mais ne fait fait pas le reste de la macro, comment cela se fait-il?

Private Sub CommandButton5_Click() 'Supprimer un prélèvement
If [Feuil2].Range("B3") = "" Then
MsgBox ("Il n'y a aucun prélèvement a supprimer"), vbCritical, "Attention !"
Exit Sub
End If
[Feuil2].Activate
X = TextBox6.Value
Range("A1").Select
ligne1:
While ActiveCell <> X
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
End
End If
Wend
Selection.EntireRow.Delete
GoTo ligne1
[Feuil11].Activate
        Range("E2:E252").Select
    Selection.Copy
    [Feuil2].Activate
Columns("A:A").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Merci à ceux qui pouront éclairer ma lanterne.

 

[Pierrot93]

Re : Pourquoi ma macro ne s'execute pas en entier?

Bonjour 800vfr76

comme l'instruction l'indique "GoTo ligne1" elle repart à la ligne "ligne1:
" et de ce fait boucle.

bonne journée
@+

 

[800vfr76]

Re : Pourquoi ma macro ne s'execute pas en entier?

Re,

Ok merci pour la réponse, mais comment faire pour que cela marche, j'ai essayé de suprimer cette ligne et de la mettre à la fin mais dans les deux cas cela ne marche pas.

 

[PascalXLD]

Re : Pourquoi ma macro ne s'execute pas en entier?

Bonjour

il sert à quoi ce goto ??

 

[Pierrot93]

Re : Pourquoi ma macro ne s'execute pas en entier?

Re

je dirais qu'à priori ces 2 lignes de codes ne servent à rien, par contre quand tu dis ca ne marche pas, c'est quoi qui ne marche pas ? tu as un message d'erreur ?

@ +

 

[Pierrot93]

Re : Pourquoi ma macro ne s'execute pas en entier?

oups Pascal, t'avais pas vu . bonne journée

 

[800vfr76]

Re : Pourquoi ma macro ne s'execute pas en entier?

Re,

A quoi sert ce GO to, aucune idée, je suis nul en macro, c'est une macro que j'ai récupéré sur le site.

La macro me sert a supprimer une ligne sur une feuille a partir d'un userform.

Je vous met un exemple, quand je supprime une ligne les N° de la colonne A ne se suivent plus, donc je souhaite copier les N° de la feuille1 dans la colonne A de la feuille2

Regarde la pièce jointe Classeur1.zip

 

[800vfr76]

Re : Pourquoi ma macro ne s'execute pas en entier?

Re,

J'ai peut-être trouvé, j'ai supprimer la ligne Go to ligne1 et à la place de sélectionner de E2:E252 je sélectionne E1:E252 et ca a l'air de marcher.

Comment cela se fait-il que je n'avais pas trouver avant, je suis vraiment nul.

Merci à vous de vous êtes penché sur le problème.

 

[PascalXLD]

Re : Pourquoi ma macro ne s'execute pas en entier?

Comment cela se fait-il que je n'avais pas trouver avant, je suis vraiment nul.

Des fois on a tellement le nez dans nos trucs qu'on ne voit en fait plus rien et des choses qui paraissent évidentes vues de l'extérieur sont invisibles pour nous. Ou alors il faut faire une petite coupure et revenir après

Bonne journée sous le soleil de Grand-Quevilly

 

[800vfr76]

Re : Pourquoi ma macro ne s'execute pas en entier?

Re,

Exact !

Et oui il fait beau en ce moment en normandie, qui a dit qu'il pleuvait souvent, c'est pas la bretagne quand de même. 😀

Amis bretons je plaisante. 😉