VBA - Création bouton Supprimer

Bonjour,


j'aurai besoin d'aide s'il vous plait. Pour certains qui m'ont déja vous connaissez un peu ce que je veux faire avec mon fichier.

dans mon Fichier Excel j'ai créer un bouton "Add" pour créer une ligne dans un tableau.


Mon probléme là, j'aurai voulu savoir si c'est possible de en meme temps de créer la ligne créer un petit bouton ou un croix rouge a la fin de la ligne (c'est a dire dans la case suivant , la fin de mon tableau est la collone H donc mettre un bouton ou une croix rouge dans la collone I).

Ce bouton me servirai pour supprimer la ligne directement.

si quelqu'un peu m'aider sa serai super :)

Merci a tous

Bonjour générer dynamiquement des boutons est assez galère

je te conseil d'utiliser l'évènement selection change (avec une vérifiaction par box peut être

exemple
Tu met a la création de la ligne un X rouge et un fond de cellule de couleur différente
puis le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ldeb As Long Dim lfin As Long ldeb = 2 'première ligne du tableau pouvant etre dupprimé lfin = 15 'dernièreligne du tableau pouvant être supprimé 'peut être 'lfin= Range("H65536").End(xlUp).Row   If Not Intersect(Target, Range("H" & ldeb & ":H" & lfin)) Is Nothing And Target.Count = 1 Then Select Case MsgBox("Voulez vous supprimer la ligne " & Target.Row & " ?", vbOKCancel + vbQuestion) Case vbOK Rows(Target.Row).Delete End Select End If End Sub

---

Hello,
@Krovax : bien vu, pour ma part j'avais implémenté la même idée que toi, mais avec l'événement double clic :)

oui je suis d'accord que le double clique serait plus adapté, pas de risque de selection par erreur mais ca fait un peu moins bouton du coup on m'a demandé d'opter pour la simple selection. Personnelement j'aurais opté pour le double clique

Code:

---

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

---

avec un cancel=true au tout début du code par exemple
Au lieu

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

---

Si je comprends bien des que je cliquerai sur le "X" que j'aurai créer , sa me demandera si je veux supprimer la lignes?

Le meilleur moyen pour savoir c'est d'essayer ;)
Prend un fichier vierge écrit n'importe quoi dedans
colle la macro dans le module de ta feuille et clique sur la colonne H en tre les lignes ldeb et lfin
Tu peu même mettre une pause en début du code et avancer en mode pas a pas pour voir ce qui se passe :ccool:

Re,

Je n'y arrive pas, je comprends pas, j'ai créer mon module, mi ma Macro dedans, mais quand je clic que une case compris entre ligne début et ligne fin, rien ne ce passe.

Ai je loupé un truc ?

oui tu as raté un truc :mouarf:
mais rien de méchant

Citation:

---

Envoyé par Moi même

colle la macro dans le module de ta feuille

---

Un lien pour comprendre
http://silkyroad.developpez.com/VBA/EvenementsFeuille/

C'est bon sa marche je suis trop béta xD

j'avais oublie de choisir Worksheet donc j'étais encore dans général... et j'ai fais un gros copier coller malsain ^^


merci encore :lol: t'es un chef Krovax:ccool: