Suppression de clients d'une liste

Version imprimable

j'ai fait un code qui permet de supprimer les clients d'une liste. puis j'ai ajouté une message box qui demande confirmation pour la suppression. Et c'est là que les choses se gâtent: je ne peux plus supprimer de clients

Pouvez vous m'aider? ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim rep As Long
 
rep = MsgBox("Etes-vous sûr de vouloir supprimer le client?", vbYesNo)
If rep = VbOKYes Then
   ligne = 3
   While Worksheets("Listedesclients").Cells(ligne, 1).Value <> listSupprimer_client.Value
      ligne = ligne + 1
   Wend
 
'La macro fait faire une boucle à partir de la deuxième ligne, 1ère colonne jusqu'à la nième ligne, 1ère colonne
'La boucle s'arrete lorsqu'elle retrouve dans le contenu de la cellule la même valeur que la va leur sélectionnée dans la liste
   For j = 1 To 2
'Pour les colonnes allant de 1 à 2
      Worksheets("listedesclients").Cells(ligne, j).Delete xlUp
'Supprime le contenu de la cellule située la ligne qui correspond à la
'valeur cherchée plus haut et décale vers le haut
   Next
Else
   Exit Sub
End If
End Sub

04/01/2013, 20h34
SfJ5Rpw8

Bonjour,

commence par rajouter tout en haut de tes pages de codes la ligne :

Code:

Option Explicit

celle-ci devrait te permettre de trouver ton erreur ;)

Je ne comprends toujours pas, il m'indique instruction incorrect dans une procédure. Je n'arrive pas à voir l'erreur. :?

J'ai modifié en mettant un tableau variable (puisqu'il s'agit d'une liste des clients qui peut être modifiée) mais je n'arrive toujours pas à supprimer un client. l'erreur est toujours instruction incorrecte dans une procédure.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Suppr_client_Click()
Option Explicit
 
Dim rep As String
Dim i As Integer
    ReDim Tableauclient(64)
 
 
rep = MsgBox("Etes-vous sûr de vouloir supprimer le client?", vbYesNo)
If rep = VbOKYes Then
   ligne = 3
   While Worksheets("Listedesclients").Cells(ligne, 1).Value <> listSupprimer_client.Value
      ligne = ligne + 1
   Wend
 
'La macro fait faire une boucle à partir de la deuxième ligne, 1ère colonne jusqu'à la nième ligne, 1ère colonne
'La boucle s'arrete lorsqu'elle retrouve dans le contenu de la cellule la même valeur que la va leur sélectionnée dans la liste
   For j = 1 To 2
'Pour les colonnes allant de 1 à 2
      Worksheets("listedesclients").Cells(ligne, j).Delete xlUp
'Supprime le contenu de la cellule située la ligne qui correspond à la
'valeur cherchée plus haut et décale vers le haut
   Next
Else
   Exit Sub
End If
 
 
 
 
End Sub

05/01/2013, 15h39
SfJ5Rpw8

Citation:

Envoyé par bbil

Bonjour,

commence par rajouter tout en haut de tes pages de codes la ligne :

en première ligne de ta page de codes pas au milieu ;)
05/01/2013, 15h47
NVCfrm
Bonjour cette option s'écrit toujours en tête de module.
Code:

1 2 3 Option Explicit Private Sub Suppr_client_Click()
Pour t'épargner cette tâche dans chaque nouveau module, tu peux paramétrer dans la barre de commande Onglet/Outil/OPtion/Editeur: Cocher "Déclaration des variables obligatoires".
Ceci génère une alerte à chaque fois que tu tentes de compiler un programme avec des variables non déclarées.
05/01/2013, 18h08
patricktoulon

heu

bonjour
en effacant les données dans tes cellules tu te retrouve avec des lignes vides pas tres jolie a la fin
a ta place je supprimerais la ligne en entier

Code:

cells(x,y).entirerow.delete

ensuite pour trouver la ligne ou est la donnée tu a plusieurs methodes en natif dans exel

ou meme la fonction find en vba

au plaisir