Discussion :

[maynou24]

Bonjour,
j'ai un problème avec le code pour supprimer une ligne

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
Sub SupprimeClient()
Dim i As Integer
Dim SupprimeLigne As String
 
SupprimeLigne = InputBox("Veuillez taper le numéro du matricule à supprimer", "suppression")
With ThisWorkbook.Sheets("Source")
 
For i = .Range("A" & .Count).End(xlUp).Rows To 2 Step -1
If .Range("A" & i).Value = SupprimeLigne Then
Rows(i).Delete
End If
Next i
End With
 
End Sub

il bug en indiquant cette phrase en jaune "With ThisWorkbook.Sheets("Source")"

[Patrice740]

Bonjour maynou24

Je ne vois qu'une raison à ce bug : ton classeur n'as pas feuille nommée "Source"

[maynou24]

Je ne vois qu'une raison à ce bug : ton classeur n'as pas feuille nommée "Source"[/QUOTE]

si si la feuille est nommée source je l'ai vérifié 1000 fois

[Invité]

Bonjour,

Regardez si un point avant Rows(i).Delete règle votre problème :

Code :

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

1
2
 
.Rows(i).Delete

[maynou24]

le programme ne bug plus mais il ne fait rien.. aucune ligne n'est supprimée !!

[Invité]

le programme ne bug plus mais il ne fait rien.. aucune ligne n'est supprimée !!

Typez votre variable SupprimeLigne en Variant pour voir.

Sinon, êtes-vous sure d'avoir le même nombre de caractères pour faire votre comparaison ?

[Invité]

C'est le s à la fin de Rows qui ne va pas : For I = .Range("A" & .Rows.Count).End(xlUp).Rows To 2 Step -1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub SupprimeClient()
Dim I As Long
Dim SupprimeLigne As String
 
    SupprimeLigne = InputBox("Veuillez taper le numéro du matricule à supprimer", "Suppression")
    With ThisWorkbook.Sheets("Source")
         For I = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
             If .Range("A" & I) = SupprimeLigne Then .Rows(I).Delete
         Next I
      End With
 
End Sub