Discussion :

[alexc88]

Bonjour le fofo,

Le problème est un peu plus complexe que le titre mais voilà le sujet.
J'ai créé un fichier dans lequel une acheteuse viendra saisir des données définies préalablement.
On y retrouve notamment une colonne E concernant le nom du produit que l'acheteuse renseignera.
Je leur ai créé un bouton d'ajout de ligne afin de verrouiller les formats et la reprise de données, et j'aimerai de ce fait leur permettre de supprimer une ligne et cela soit à partir d'un numéro de ligne ou alors du nom du produit situé en colonne E.

J'aimerai donc que :

1. l'acheteuse clique sur un bouton que j'ai créé appelé "Supprimer une ligne"
2.Une box s'ouvre lui demandant "Quelle est la ligne a supprimé ?" 2 champs superposés nécessitant d'en remplir au moins un sur les 2 et qui seront soit Numéro de la ligne, soit Nom du produit. Un bouton Annuler sera ausi présent pour sortir de l'écran.
3. elle rentre à la fois un nom et une ligne = ERREUR er retour à la feuille
4. elle rentre un nom. Cela recherche le nom (unique) dans la colonne E de sa feuille et sélectionne la ligne contenant le nom. Une box s'ouvre lui demande de confirmer ou Annuler. Si elle confirme la ligne est définitivement supprimé et retour à la feuille, si elle annule retour à la saisie de la box.
5. elle rentre un numéro de ligne. Cela selectionne le numéro de la ligne en question (interdiction de supprimer la ligne 1 et 2 de la feuille - message d'erreur). Une box s'ouvre afin de confirmer via OK et dans ce cas retour à la feuille, ou possibilité d'annuler et retour à la box de saisie.

J'espère avoir donné toutes les infos nécessaire à la réalisation d'un petit morceau de code qui me rendrait un sacré service

Merci par avance de votre aide et au plaisir un jour de vous aider sur un autre sujet.
A+

[Pierre Fauconnier]

Salut.

Ne pourrais-tu simplifier avec un simple bouton qui permette de supprimer la ligne de la cellule active après confirmation et vérification que cette ligne se trouve bien dans la zone des lignes supprimables?

[Transitoire]

Bonsoir,
En fait j'imagine, ouverture d'un UserForm, qui charge les lignes du fichier dans une listbox. Vu la longueur de la liste, j'ai placé dessus un TextBox, qui démarre avec le focus. j'entre par exemple un D et aussitôt, la liste du ListBox, ne conserve plus que les lignes commençant par D. Si c'est encore trop long, je continue, Da etc . Je clique ensuite sur la ligne concernée et voila. moi je récupère les données de la fiche, et vous, dans votre cas, vous n'avez plus qu'a la détruire. Il y a bien entendu un bouton Annuler et un OK.
Y a plus qu'a!!! suffisait d'y penser
Cordialement

[alexc88]

Après un long et bon weekend me revoilà !

Merci pour vos retours

Pierre, cela pourrait simplement répondre au besoin en effet, simple et efficace. Quel serait le code associé ?

Transitoire, c'est exactement ce dont j'ai besoin, selon le besoin exprimé. Comment cela fonctionne ? une procédure ? un code associé ?

Encore merci à vous 2 pour vos réponses c'est cool d'avoir pris le temps
A bientôt

[Pierre Fauconnier]

Salut.

Par exemple, le code suivant:

Code :

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

1
2
3
4
5
Sub DeleteActiveRow()
  If Not Intersect(ActiveCell, Range("MaPlage")) Is Nothing Then
    If MsgBox("Voulez-vous supprimer la ligne active?", vbYesNo) = vbYes Then ActiveCell.EntireRow.Delete
  End If
End Sub

Attention, il supprime toute la ligne de la cellule active. A adapter si on ne souhaite supprimer la ligne que dans la plage ou le tableau actif.

[alexc88]

Merci Pierre, j'essaye cela et te confirme le bon fonctionnement

[alexc88]

@PierreFauconnier, MERCI !