Problème de delete d'une ligne Excel

Bonjour à tous,

J'ai un petit problème à vous soumettre, qui, même s'il n'est pas grave, m'empoisonne la vie.
Pour supprimer une ligne dans une feuille excel à partir d'un programme en VBA5 , j'ai cette procédure dans un module:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sheets("donnees").Select maligne = Range("a14").End(xlDown).Address maligne = Range(maligne).Row   For suppression = 14 To maligne If Range("a" & suppression) = caisselocale.Value Then Rows(suppression & ":" & suppression).Select: Selection.Delete Shift:=xlUp   Next suppression   Range("a2").Activate   Sheets("administrateurs").Select

---

la recherche de la ligne dans la boucle for next et sa suppression du tableau excel se fait normalement par comparaison avec la valeur "caisselocale", mais à la fin de l'action delete, le programme saute les instructions de fin (Range("a2").activate, Sheets("administrateurs").Select, etc pour aller vers une autre procédure, et la ligne supprimée dans mon tableau (du moins celle qui l'a remplacée en "remontant") reste sélectionnée et la suite du programme ne tient plus compte des instructions de sélection (je sais pas si je suis bien clair)..... :oops:

Pour ma part je te propose de mettre simplement "Next" à la place de "Next suppression"

Pense aussi à déclarer suppresion :
"Dim suppression as integer " par exemple.

bonjour

tu peux tester cette adaptation

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Suppression As Integer, MaLigne As Integer   MaLigne = Sheets("donnees").Range("A14").End(xlDown).Row   For Suppression = MaLigne To 14 Step -1 If Range("A" & Suppression) = caisselocale.Value Then _ Sheets("donnees").Rows(Suppression).Delete Shift:=xlUp Next Suppression   Sheets("donnees").Range("a2").Activate Sheets("administrateurs").Select

---

bonne journée
michel

Merci Michel, ça fonctionne... puisque la ligne est déselectionnée mais j'ai toujours le même problème ensuite... Les instructions suivantes ne sont plus prises en compte...

Normalement elles devraient être lues jusqu'à la fin de la procédure, non ??
Bref si pas de solution, ce n'est pas grave, mais à 60 ans suis obstiné et cherche à comprendre... ;)

rebonjour

tu as bien raison de t'obstiner ...;o)

Citation:

---

mais j'ai toujours le même problème ensuite... Les instructions suivantes ne sont plus prises en compte...

---

peux tu donner plus de precisions?
peut etre que cela vient du format de ta feuille: tu as des cellules vides ?


michel

Michel,
j'ai mis des points d'arrêt pour vérifier et les instructions suivant la boucle for
( Sheets("donnees").Range("a2").Activate
Sheets("administrateurs").Select)
sont "oubliées"... le programme saute directement à une autre procédure. 8O

la feuille "donnees" comprend effectivement pas mal de lignes vides (et d'autres données) mais ça me paraît sans importance puisque la boucle for ne concerne que les lignes occupées par cette recherche là...

Ce qui m'intrigue surtout c'est qu'ensuite les autres instructions ne sont pas suivies (feuilles non sélectionnées malgré les instructions de la procédure suivante...)

as tu des instructions style

Code:

---

On Error Resume Next

---

dans ta procedure?

Si oui , refait un essai en supprimant cette ligne : cela permettrait de déterminer quelle ligne pose problème


bon apres midi
michel

Essaye de mettre des msgbox plutot que des points d'arret, tu verra si les msgbox sont pris en compte :)

Sinon (je sais c'est bete mais bon on sait jamais..) il voit peut etre pas la fin de ton if (le truc c'est que vu qu'il est sur la meme ligne normalement il doit pas en avoir) et tu as un "end if" plus bas :?

Tu as aussi fait du pas a pas, pour essaye de voir ou ça pourrait bloquer ?

Silky : pas d'instruction de ce type non..

Illight : J'ai fait, bien sur, du pas à pas et c'est là que je vois que dès la fin du Delete, le programme change de procédure sans passer par les instructions de fin de celle-ci.... et même si la fin du if n'est pas vue, comment expliquer que les instructiosn suivantes ne le soeint pas non plus ??
J'ai même essayé avec un exit for ce qui me faisait sortir de la boucle une fois la bonne ligne trouvée et mis l'instruction de Delete juste en dessous, pour voir... Résultat = idem... Alors que j'ai la même procédure juste avant sur une autre feuille et là ça fonctionne.... 8O
J'ai également essayé de rajouter une instruction juste en fin de ligne if then juste après "xlUp"... elle n'est pas lue non plus...
Bref je vais laisser courir, c'est pas grave et pour les fois ou ce sera le cas je virerai la ligne "à la main"... (mais ça m'em... de ne pas comprendre... :mouarf: )