VBA : Supprimer ligne d'après son numero

[cheyenne63]

Bonjour
Je voudrai savoir comment, par VBA, supprimer la ligne xxx de la feuille 1 d’après le numéro indiqué dans la cellule B5 de la feuille 2
En d’autre terme, si je marque 265 en B5 de la feuille 2 la macro supprimera la ligne 265 de la feuille 1.

En option, si c'est pas trop demandé, et sans vouloir abuser : Est-ce possible de demander avant l'exécution de la macro, la confirmation dans une ...box de type "Souhaites-tu supprimer de la base .... (contenu des cellules des deux premières colonnes de la dite ligne à supprimer)
Merci d’avance et bon dimanche

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

Merci Jean-Marcel
J'ai adapté la macro à mon classeur, ça fonctionne très bien, merci.
Petit bémol : le message ne devait pas demander confirmation sur le numéro de ligne à supprimer mais sur le contenu de la ligne à supprimer (les 2 premières colonnes)
C'est pas grave, le principal c'est que la suppression fonctionne.
Bonne soirée
Flo

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

Bonsoir Jean-Marcel, cheyenne,

Une variante, évite d'écrire le numéro de ligne dans la feuille 2.

Sub supprimerLigne()
Dim reponse, plage As Range
  reponse = MsgBox("voulez-vous supprimer la ligne : " & ActiveCell, vbYesNo)
    If reponse = vbYes Then: Set plage = ActiveCell: plage.EntireRow.Delete
End Sub

A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Bonsoir à tous


Une variante radicale
(Quand on supprime on supprime !)

Sub a()
MsgBox "Supprimer la ligne N°: " & [B5].Text, vbCritical + vbOKOnly: Rows([B5].Text).EntireRow.Delete
End Sub

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

RE,

Edit: bonsoir Staple 😉


une petite modification:

Sub supprimerLigne()
Dim reponse
  reponse = MsgBox("voulez-vous supprimer la ligne : " & ActiveCell & "-" &  _
ActiveCell(, 2), vbYesNo)
    If reponse = vbYes Then  ActiveCell.EntireRow.Delete
End Sub

A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re


Lone-Wolf
Euh? 😕😱😛
Si on supprime à partir de la cellule active dans ce cas, pas besoin de macro
Clic-droit -> Supprimer -> Ligne entière

 

[Si...]

Re : VBA : Supprimer ligne d'après son numero

salut

@Staple1600 : radical pour radical, pourquoi un message 😛 ?

Si... la demande est incluse dans une macro (pour répondre la dernière interrogation)

...
  L = ActiveCell.Row 'ou tout autre n° autre que 0
  If MsgBox("suppression de la ligne ?", vbYesNo, "-->" & Cells(l, 1) & " " & Cells(l, 2)) = vbNo Then Exit Sub
  Rows(l).Delete
...

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Bonsoir Si...


Parce que le demandeur disait tout à l'heure 😉

En option, si c'est pas trop demandé, et sans vouloir abuser : Est-ce possible de demander avant l'exécution de la macro, la confirmation dans une ...box de type "Souhaites-tu supprimer de la base ....

PS: Si..j'ai un doute
Typo ou pas ?
Pourquoi L puis l ?

EDITION: C'est qu'au fond je ne dois pas être radical.

 

[Si...]

Re : VBA : Supprimer ligne d'après son numero

re


je faisais référence au #7.
Effectivement, remplacer L par l ou vice versa (mais pas de problème, Si... les variables sont bien déclarées, ce que je conseille toujours) .

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

Parce qu'ici il pleut et quand on s'ennuie, on fait parfois n'importe quoi! Désolé 😛😱
Mais c'est juste pour le fun comme on a coutume de dire ici

Sub R_a_dicalMaisPasTrop()
Rows([B5].Text).Offset(0, 1 - (MsgBox("Kill,Kill!!", vbCritical + vbOKOnly, "The Row's Erazer strike back!"))).EntireRow.Delete
End Sub

EDITION: Personnellement je connais aucun bouilleur de cru qui fasse du calva et bu VA 😉
et en 1959 Excel et VBA n'existait pas encore ...

 

[Lone-wolf]

Re : VBA : Supprimer ligne d'après son numero

Rebonsoir à tous,

bein...tant qu'à faire... 😱 😀


Edit: c'est vrai que cheyenne demandait de supprimer les données à partir de la feuille2.

Sub supprimerLigne()
    Dim reponse
    With Sheets("Feuil1")
    reponse = MsgBox("voulez-vous vraiment supprimer la ligne : " & _
    .Range("A" & Sheets("Feuil2").Range("B5")) & " - " & _
    .Range("B" & Sheets("Feuil2").Range("B5")) & " ?", vbYesNo, "Assistant suppression des données")
    If reponse = vbYes Then
    .Range("A" & Sheets("Feuil2").Range("B5")).EntireRow.Delete
    End If
    End With
End Sub

A+ 😎

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

cheyenne63
Je trouve le procédé étrange tout de même car en étant sur la feuille 2 comment savoir ce qu'il y a dans la ligne de la feuille 1 qu'on s’apprête à supprimer simplement en se basant sur un numéro de ligne renseigné dans la cellule B5 de la feuille 2 ?
Et si en feuille 1 d'autres lignes on t été supprimer manuellement par exemple, le numéro renseigné en feuille 2 ne pointera plus sur la bonne ligne en feuille 1.
Cela peut s'avérer dangeureux pour tes données, non ?

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

Re
J'étais en train d'essayer tous vos codes, j'ai adapté et je retiens ce dernier :

Sub supprimerLigne2()
Dim reponse
reponse = MsgBox("veux tu supprimer la ligne : " & Sheets("Feuil1").Range("A" & Sheets("Feuil2").Range("B5")) & " - " & Sheets("Feuil1").Range("B" & Sheets("Feuil2").Range("B5")), vbYesNo)
If reponse = vbYes Then
Sheets("Feuil1").Range("A" & Sheets("Feuil2").Range("B5")).EntireRow.Delete
End If
End Sub

Merci à vous tous et à bientôt

 

[Staple1600]

Re : VBA : Supprimer ligne d'après son numero

Re

Merci de ne pas avoir répondu à mes dernières interrogations, cheyenne63
Je vais m'endormir chafouin et mon sommeil sera agité car je ne saurai jamais le fin mot de l'histoire..
(voir mes doutes dans mon précédent message)

EDITION: Merci, cheyennne63 d'être revenu et d'avoir (presque lever) mes craintes.
Mon dodo n'en sera que plus beau 😉.

 

[cheyenne63]

Re : VBA : Supprimer ligne d'après son numero

A Lone-wolf : visiblement ton dernier code ressemble à ce que j'ai laborieusement pondu 😀
A Staple : Le n° de ligne renseignant B5, n'est pas rempli manuellement mais c'est le résultat issu d'une formule avec EQUIV (2 conditions). Le message c'est juste pour vérifier en fait le contenu de la ligne à supprimer sur la feuille 1. Ce n'est pas moi qui choisi de supprimer une ligne à l'aveugle. Donc pas trop dangereux visiblement ...
Merci encore, à tous