Macro suppression ligne après une recherche

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion piga25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
piga25

piga25

XLDnaute Barbatruc
Bonjour le forum

Après plusieurs essais, je n'arrive pas à adapter une macro pour effacer complétement une ligne.

Dans un userform, je recherche une fiche et fait apparaitre tous les renseignements dans les champs. Ce que je souhaite réaliser, c'est lorsque je clique sur la chechbox qui me permet de faire apparaître le bouton Supprimer, que celui-ci ne soit valide que si un nom est présent dans la Textbox1 et qu'ensuite après validation sur le bouton supprimer, j'ai la ligne correspondant à la fiche affichée soit effacée du tableau.

ci joint le fichier ici : Cijoint.fr - Service gratuit de dépôt de fichiers

Ici les macros me posant problème :

Code: 
Private Sub CommandButton4_Click()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Plage
If Cell.Value = Nom Then
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    Cell.Value = ""
Feuil2.Range("A2:A" & Feuil2.[A65536].End(3).Row).Delete
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub
 
-----------------------------------------
 
Private Sub Combo()
With TextBox1
.Value = ""
.SetFocus
End With
End Sub
 
---------------------------------------
 
Private Sub Ini()
Dim L As Integer
Dim Plage As String
L = Sheets("2010").Range("A65536").End(xlUp).Row
Plage = Sheets("2010").Range("A2:A" & L).Address
Label2.RowSource = "2010" & Plage
End Sub

Merci
 
Trier par date Trier par votes
Re : Macro suppression ligne après une recherche

Bonjour piga25,

Je pense qu'en modifiant ton code comme suit, tu devrais obtenir le résultat escompé.

Par contre, la macro Ini qui se produit après l'effacement de la ligne provoque une erreur.

Code: 
Private Sub CommandButton4_Click()
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Plage
If Cell.Value = Nom Then
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    [COLOR="Blue"][B]Feuil2.Range("A" & Cell.Row).EntireRow.Delete[/B][/COLOR]
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

Bonjour Papou-net,

MERCI, Oui cette ligne fonctionne. 😀

Mais je viens de m'apercevoir que dans ma colonne A, cela me faisait un trou dans mes numeros ex: 7, 8, 10, 11...🙁
Y aurait-il un moyen pour qu'à l'éffacement d'une ligne, cela me recalcule les numéros afin de les avoir tous à la suite, sachant qu'au prochain ajout, cela me prend le dernier numéro +1.😕
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

Bonsoir Piga25, le fil,

Tes numéros d'ordre, figurant colonne A est ce qu'on appelle une "clé primaire" (*)

Donc normalement il ne faut surtout pas changer la numérotation, ni réutiliser les numéros déjà utilisé.

Mais si tu y tiens (et dans ce cas je ne répond de rien 😀)

Voici le morceau à rajouter vers la fin de ta macro :
Code: 
If L = 1 Then Exit Sub

Range("A" & L) = 1

If L > 2 Then
    For i = 3 To L
        Range("A" & L) = Range("A" & L - 1) + 1
    Next i
End If

A tester.

Bonne soirée

(*) si tu ne connais pas le terme "clé primaire", regarde ici. Si tu préfère une explication avec des mots de tous les jours, n'hésite pas à demander.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

Bonsoir Excel-lent, le fil,

Désolé mais ce n'est pas ce que je recherche à faire (Il n'enlève pas le dernier numéro en A)
Ce que je souhaite c'est numéroter par ordre croissant ma liste de manière à ce que le dernier numéro correspond au dernier nom. De plus lorsque je vais intégrer un nouveau nom, il devra se classer par ordre alphabétique.
Le numéro en colone A est plus pour effectuer une recherche rapide sur papier (très utile par moment) et en plus il me sert surtout pour récupérer les données de cette liste dans un autre application.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

piga25 à dit:
Bonjour Papou-net,

MERCI, Oui cette ligne fonctionne. 😀

Mais je viens de m'apercevoir que dans ma colonne A, cela me faisait un trou dans mes numeros ex: 7, 8, 10, 11...🙁
Y aurait-il un moyen pour qu'à l'éffacement d'une ligne, cela me recalcule les numéros afin de les avoir tous à la suite, sachant qu'au prochain ajout, cela me prend le dernier numéro +1.😕
Cliquez pour agrandir...


Rebonsoir piga25,

Pour répondre à ta demande, voici comment modifier le code pour renuméroter la liste :

Code: 
Private Sub CommandButton4_Click()
Dim L As Integer[COLOR="Red"][B], Lg As Integer[/B][/COLOR]
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Sheets("2010").Range("B2:B" & L)
If Cell.Value = Nom Then
[COLOR="Red"][B]Lg = Cell.Row[/B][/COLOR]
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    Feuil2.Range("A" & Cell.Row).EntireRow.Delete
    [COLOR="Red"][B]For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
      Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
    Next[/B][/COLOR]
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub

Toutefois, la remarque d'Excel-lent est excel-lente (bonsoir Bonsoir Excel-lent), pour ne pas dire judicieuse.

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

Bonsoir Papou-net

J'ai une erreur à la cette ligne
Code: 
Private Sub CommandButton4_Click()
Dim L As Integer[COLOR=black], Lg As Integer
[/COLOR]Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Sheets("2010").Range("B2:B" & L)
If Cell.Value = Nom Then
[COLOR=black]Lg = Cell.Row
[/COLOR]Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    Feuil2.Range("A" & Cell.Row).EntireRow.Delete
   [COLOR=black] [/COLOR][COLOR=black]For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
[/COLOR][COLOR=red]      [B]Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
[/B]    [COLOR=black]Next[/COLOR][/COLOR]
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub

Actuellement je fais mon projet sous deux formes différentes, un avec une clé primaire, et le second en numérotant sans le moindre trou numérique.

En ce qui concerne la remarque de Excel-lent

Tes numéros d'ordre, figurant colonne A est ce qu'on appelle une "clé primaire" (*)

Donc normalement il ne faut surtout pas changer la numérotation, ni réutiliser les numéros déjà utilisé.
Cliquez pour agrandir...

Je garde bien entendu cette idée, car il est vrai que c'est la plus simple .

Ma seconde idée, sans le moindre trou numérique, c'est que le dernier numéro correspond toujours avec le nombre de NOM et qu'en plus lorsque je vais intégrer un nouveau nom, je devrai pouvoir l'insérer dans l'ordre alphabétique.
Dans les deux cas je ne suis pas tenu à une liaison définitive Numéro et NOM car tous les ans la liste change en janvier.
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

piga25 à dit:
Bonsoir Papou-net

J'ai une erreur à la cette ligne
Code: 
Private Sub CommandButton4_Click()
Dim L As Integer[COLOR=black], [COLOR="Red"][B]Lg As Integer[/B][/COLOR]
[/COLOR]Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Sheets("2010").Range("B2:B" & L)
If Cell.Value = Nom Then
[COLOR=black]Lg = Cell.Row
[/COLOR]Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    Feuil2.Range("A" & Cell.Row).EntireRow.Delete
   [COLOR=black] [/COLOR][COLOR=black]For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
[/COLOR][COLOR=red]      [B]Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
[/B]    [COLOR=black]Next[/COLOR][/COLOR]
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub

Actuellement je fais mon projet sous deux formes différentes, un avec une clé primaire, et le second en numérotant sans le moindre trou numérique.

En ce qui concerne la remarque de Excel-lent



Je garde bien entendu cette idée, car il est vrai que c'est la plus simple .

Ma seconde idée, sans le moindre trou numérique, c'est que le dernier numéro correspond toujours avec le nombre de NOM et qu'en plus lorsque je vais intégrer un nouveau nom, je devrai pouvoir l'insérer dans l'ordre alphabétique.
Dans les deux cas je ne suis pas tenu à une liaison définitive Numéro et NOM car tous les ans la liste change en janvier.
Cliquez pour agrandir...

Re : Bonjour piga25,

As-tu bien déclaré Lg as string en début de procédure ?

Bon weekend.

(Bonjour Excel-lent, bon weekend à toi aussi).
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

Re bonjour à tous,

Après plusieurs essais, je m'aperçois que si j'enlève la ligne n° 01, cela me fait bien une erreur ici :
...
...
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
If Msg = 6 Then
Feuil2.Range("A" & Cell.Row).EntireRow.Delete
For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
 Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
 Next
Ini
...
...
 
Vote positif 0 Vote négatif
Re : Macro suppression ligne après une recherche

piga25 à dit:
Re bonjour à tous,

Après plusieurs essais, je m'aperçois que si j'enlève la ligne n° 01, cela me fait bien une erreur ici :
...
...
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
If Msg = 6 Then
Feuil2.Range("A" & Cell.Row).EntireRow.Delete
For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
 Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
 Next
Ini
...
...
Cliquez pour agrandir...

Re : effectivement, si tu supprimes le premier nom, tu tombes sur la ligne d'en-tête, d'où l'erreur !

Essaies en modifiant comme ceci :

Code: 
Private Sub CommandButton4_Click()
Dim L As Integer, Lg As Integer
Dim Plage As Range
Dim Cell As Range
Dim Msg As Integer
Dim Nom As String
Dim Prenom As String
With ActiveSheet
    .Unprotect
L = Sheets("2010").Range("A65536").End(xlUp).Row
Set Plage = Sheets("2010").Range("A2:AT" & L)
Nom = TextBox1.Value
Prenom = TextBox2.Value
If Nom = "" Then Exit Sub
For Each Cell In Sheets("2010").Range("B2:B" & L)
If Cell.Value = Nom Then
Lg = Cell.Row
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom & " " & Prenom, vbYesNo, "Patrick pour le SSF")
    If Msg = 6 Then
    Feuil2.Range("A" & Cell.Row).EntireRow.Delete
    For Lg = Lg To Feuil2.Range("A65536").End(xlUp)
       [COLOR="Red"][B]If Lg = 2 Then
         Feuil2.Cells(Lg, 1) = 1
         Else
         Feuil2.Cells(Lg, 1) = Feuil2.Cells(Lg - 1, 1) + 1
       End If[/B][/COLOR]
    Next
    Ini
    Combo
    Else: Exit Sub
    Combo
    End If
Else
Combo
End If
Next Cell
Combo
.Protect
End With
End Sub

Cordialement.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
481
CortoXls
C
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
149
job75
job75
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
312
thunder23
thunder23
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
316
Piment
P
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
341
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
N
  • Question Question
Listbox click
Réponses
10
Affichages
282
ChTi160
ChTi160
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
144
job75
job75
pascal21
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
194
job75
job75
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
180
dysorthographie
dysorthographie
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
461
Oneida
Oneida
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
218
Abi23
A
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
510
Simon 1234
S
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
154
lestoiles1
lestoiles1
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
647
Gestionnaire_rh
G
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
cathodique
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
224
vgendron
vgendron
L
  • Question Question
XL 2016 VBComponent
Réponses
7
Affichages
326
Loulou27
L
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
183
Dranreb
Dranreb
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
246
cathodique
cathodique
Retour