code pour supprimer une ligne

Version imprimable

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

Code:

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

04/08/2018, 14h33
Patrice740

Bonjour maynou24

Je ne vois qu'une raison à ce bug : ton classeur n'as pas feuille nommée "Source"
04/08/2018, 14h51
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 :(
04/08/2018, 14h54
Invité
Citation:

Envoyé par maynou24

Bonjour,

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

1 2 .Rows(i).Delete
04/08/2018, 14h58
maynou24

le programme ne bug plus mais il ne fait rien.. aucune ligne n'est supprimée !!
04/08/2018, 15h41
Invité

Citation:

Envoyé par maynou24

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 ?
04/08/2018, 15h47
maynou24

Citation:

Envoyé par Eric KERGRESSE

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 ?

même avec Variant ça n'a rien changer.. oui je suis sur :(
je n'ai pas pu saisir le problème :calim2:
04/08/2018, 15h49
Invité

Citation:

Envoyé par maynou24

Mettez un fichier en ligne pour voir.
04/08/2018, 15h52
maynou24

1 pièce(s) jointe(s)

le voilà
merci

Citation:

Envoyé par maynou24

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:

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

04/08/2018, 17h09
maynou24

merci infiniment ça marche :D
04/08/2018, 20h49
Invité

Citation:

Envoyé par maynou24

Comment faites-vous pour lancer cette macro ?
05/08/2018, 01h20
Qwazerty

1 pièce(s) jointe(s)

Salut

Des propositions de modifications.

Le champs "Matricule" contenait un espace à la fin ("Matricule "), il a été supprimé pour une meilleur lisibilité.

++
Qwaz