Discussion :

[Charlie47]

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 :

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

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).....

[mulanzia2003]

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.

[SilkyRoad]

bonjour

tu peux tester cette adaptation

Code :

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

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

[Charlie47]

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

[SilkyRoad]

rebonjour

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

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

[Charlie47]

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.

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...)

[SilkyRoad]

as tu des instructions style

Code :

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

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

[illight]

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 ?

[Charlie47]

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....
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... )