Discussion :

[Maiden002]

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

[Krovax]

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 :

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

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

[cafeine]

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

[Krovax]

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 :

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

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 :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[Maiden002]

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?

[Krovax]

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

[Maiden002]

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 ?