Discussion :

[melissa-117]

Je dois faire une fct qui supprime la ligne du numéro de projet qu'on rentre dans un inputbox. Mais la ligne ne se supprime pas. J'ai essayé un test sans le for et la ligne se supprime lorsque je rentre le numéro. Donc je présume que mon For est le problème. C'est quoi qui ne marche pas ?

Voilà mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim demande_de_suppression As Integer
Dim i As Integer
 
    demande_de_suppression = Val(InputBox("Veuillez entrer le numéro de chantier à supprimer"))
 
    ' Si le numéro de chantier se retrouve dans la liste, on supprime la ligne
    ' correspondante et on confirme sa suppression.
    For i = Worksheets("Chantiers").Cells(5, COLONNE_NUMERO_PROJET) To Worksheets("Chantiers").Cells(30, COLONNE_NUMERO_PROJET)
        If Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).Value = demande_de_suppression Then
            Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).EntireRow.Delete
        End If
    Next

[Marc-L]

C'est juste une question de logique : en observant lors d'une suppression manuelle d'une ligne, que se passe-t-il ?

L'astuce consiste à effectuer une boucle de la dernière ligne vers la première …

Et conformément aux règles du forum, merci d'utiliser l'icône dédiée au balisage du code !

[melissa-117]

Désolé pour la balise.

Oui en changeant la boucle de la fin vers le début je n'ai plus d'erreur dans mon For. Maintenant quand j'exécute la fonction je n'ai plus d'erreur, mais le numero de projet que je demande d'effacer ne s'efface pas(la ligne correspondante au numéro de projet).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim demande_de_suppression As Integer
Dim i As Integer
 
    demande_de_suppression = Val(InputBox("Veuillez entrer le numéro de chantier à supprimer"))
 
    ' Si le numéro de chantier se retrouve dans la liste, on supprime la ligne
    ' correspondante et on confirme sa suppression.
    For i = Worksheets("Chantiers").Cells(25, COLONNE_NUMERO_PROJET) To Worksheets("Chantiers").Cells(5, COLONNE_NUMERO_PROJET)
        If Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).Value = demande_de_suppression Then
           Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).EntireRow.Delete
        End If
    Next

[SfJ5Rpw8]

Bonsoir,

le pas d'une boucle FOR est +1 par défaut , pour le changer il faut le préciser.,en rajoutant step <Valeur du pas> :

Code :

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

FOR i = 10 to 0 step -1

[melissa-117]

Merci ça fonctionne maintenant. Dans mon For j'ai fais tout simplement de ligne 26 à ligne 5. Mais je comprends pas, me semble que ce que j'avais écris auparavant(dans mon For) était la même chose? Sauf écrit en terme de ligne, colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub Supprimer_Chantier()
 
Dim demande_de_suppression As Integer
Dim i As Integer
 
    demande_de_suppression = Val(InputBox("Veuillez entrer le numéro de chantier à supprimer"))
 
        For i = 26 To 5 Step -1
            If Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).Value = demande_de_suppression Then
                Worksheets("Chantiers").Cells(i, COLONNE_NUMERO_PROJET).EntireRow.Delete
            End If
        Next
 
 
End Sub

Dernière chose une explication de Range, svp. Ça permet de définir une plage genre Range(?,?). Est-ce qu'il y a moyen de se débrouiller avec Cells uniquement ou bien range facilite la vie?

[parmi]

Bonjour,

Quelquefois, Cells est plus facile d'utilisation, mais ça donne le même résultat
Si N = 5
Range("A5") ou Range("A" & N) équivaut à Cells(5, 1) ou Cells(N, 1)

[SfJ5Rpw8]

Merci ça fonctionne maintenant. Dans mon For j'ai fais tout simplement de ligne 26 à ligne 5. Mais je comprends pas, me semble que ce que j'avais écris auparavant(dans mon For) était la même chose? Sauf écrit en terme de ligne, colonne....

Tu n'avais pas à tout changer dans ton for , juste rajouter le pas : step -1