Discussion :

[NEC14]

Bonjour à tous,

Voilà, je souhaite mettre en place un Userform de suppression d'un adhérent.
A partir d'un Combo, l'utilisateur choisira le numéro de l'adhérent.
Les infos concernant l'adhérent apparaîtra dans différentes TextBox.

Jusque là rien de très compliqué je vous l'accorde.

Lorsque l'utilisateur cliquera sur un bouton "Supprimer" alors rechercher le n° de l'adhérent dans ces 3 feuilles (Adhé, Enf, Conj) et supprimer les lignes qui y correspondent. C'est là que cela se complique pour moi.

Auriez-vous des exemples de ce type ou bien pouvez-vous me montrer la méthode pour finaliser ce travail ?

Je vous en remercie par avance

[aalex_38]

Regardes la commande find

[NEC14]

Voilà ce que j'ai fait. Mais à chaque fois il me dit que l'adhérent n'a pas été trouvé.
Pouvez-vous m'apporter votre éclairage s'il vous plait ?

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
32
33
34
35
36
37
 
Private Sub Cmb1_Click()
Dim BDP As Worksheet
Dim T As Range
Dim AdheSup As String
 
    Set BDP = Worksheets("Adhé")
    AdheSup = Cb1.Value
 
'// on. vérifie si l'adhérent existe
 
    Set T = BDP.Rows(1).Find(What:=AdheSup)
    If T Is Nothing Then
    MsgBox "L'adhérent n'a pas pu être supprimé. " & "Vérifiez que vous avez sélectionné un adhérent, " & "sinon consultez votre fichier."
        Exit Sub
    Else
 
    MsgBox "Voulez-vous confirmer la suppression de cet adhérent ?", vbYesNo, vbQuestion
 
If vRep = vbYes Then
 
' // On supprime les lignes correspondant au titulaire dans chaque feuille
Worksheets("Adhé").Rows(1).Find(What:=TituASup).EntireRow.Delete
Worksheets("Enf").Rows(1).Find(What:=TituASup).EntireRow.Delete
Worksheets("Conj").Rows(1).Find(What:=TituASup).EntireRow.Delete
Else
Unload Me
End If
 
' // Retour à la feuille Accueil
Worksheets("Accueil").Visible = True
Worksheets("Accueil").Activate
 
' // On décharge le formulaire
Unload Me
End If
End Sub

[aalex_38]

La syntaxe a l'air bonne, essai ça :

Code :

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

Set T = BDP.Rows("1:1").Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)

[NEC14]

Bonjour à tous,

J'ai essayé selon la proposition de aalex 38 mais ça ne marche pas.
Je vous ai donc mis une partie du fichier en pièce jointe.
Merci pour votre aide

[aalex_38]

Au vue de ton fichier tu recherche dans la ligne 1 alors que tu devrais rechercher dans la colonne des numéros d'adhérents.

J'ai modifié ainsi et le range T est trouvé :

Code :

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

    Set T = BDP.Columns("A:A").Find(What:=AdheSup, LookIn:=xlValues, LookAt:=xlPart)

La suite est egalement a corriger car aussi ici on supprime la ligne 1:

Code :

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

1
2
3
Worksheets("Adhé").Rows(1).Find(What:=TituASup).EntireRow.Delete
Worksheets("Enf").Rows(1).Find(What:=TituASup).EntireRow.Delete
Worksheets("Conj").Rows(1).Find(What:=TituASup).EntireRow.Delete

Edit: en fait on ne supprime sans doute rien du tout car rien n'est trouvé.
Edit2 : et on ne passe pas dans ce code (msgbox)

Autre remarque tu testes vrep, mais il n'y a pas de vrep, jepense que tu voulais faire cela :

Code :

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

vREP = MsgBox("Voulez-vous confirmer la suppression de cet adhérent ?", vbYesNo, vbQuestion)

Et pour l'adhérent pas besoin de le chercher à nouveau dans l'onglet Adhé, puisque tu l'a déja trouvé, donc ceci fonctionne :

Code :

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

Worksheets("Adhé").Rows(T.Row).EntireRow.Delete