Discussion :

[tocnic]

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 :

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

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

[SfJ5Rpw8]

Bonjour,

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

Code :

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

Option Explicit

celle-ci devrait te permettre de trouver ton erreur

[tocnic]

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 :

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

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

[NVCfrm]

Bonjour cette option s'écrit toujours en tête de module.

Code :

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

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.

[patricktoulon]

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 :

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

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

[SfJ5Rpw8]

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