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