Suppresion d'un boutton de commande

[JoelleN]

hello tout le monde,

j'ai un petit problème, dans un mon fichier excel j'ai un tableau de 48 ligne dans chaque ligne j'ai un boutton de commande "options". En effet en fonction de nombre de lgine que l'utilisateur a besoin de supprime des lignes en utilisant le ligne de code suivante "Me.Rows(8).Delete", le souci est que la ligne se supprime mais le button options reste, je voulais bien le faire disparaitre... Comment je pourrai faire???


Merci par avance.

 

[job75]

Re : Suppresion d'un boutton de commande

Bonjour,
Une solution peu élégante...
Dans le code de la macro, avant suppression de la ligne, couper la ligne et copier dans une feuille "dépotoir" (qui peut être masquée).
Le bouton suivra s'il est bien entièrement dans la ligne coupée et si l'option Outils/Options/Modification/Couper, copier...avec les cellules est bien cochée.
A+

 

[JoelleN]

Re : Suppresion d'un boutton de commande

Bonjour Job75,

Vu ke mon interface est pour un client j'aimerai bien ke mon boutton s'efface automtiqement en supprimant la ligne. Est qu'il ya des lignes de code qui permet de supprimer un boutton de commande ?????

Merci bien

 

[kjin]

Re : Suppresion d'un boutton de commande

Bonjour,

j'ai un petit problème, dans un mon fichier excel j'ai un tableau de 48 ligne dans chaque ligne j'ai un boutton de commande "options". En effet en fonction de nombre de lgine dont l'utilisateur a besoin de supprime des lignes en utilisant le ligne de code suivante "Me.Rows(8).Delete", ...

Pourquoi autant de boutons, un seul ne suffirait-il pas pour supprimer la ligne active par exemple ?
Par ailleurs, supprimerais-tu toujours la 8ème ligne ?
Sinon, pour supprimer les x dernières lignes, sélection des lignes et Ctrl + -, c'est aussi rapide, le bouton en moins.
Sinon, c'est que j'ai rien compris !
A+
kjin

 

[JoelleN]

Re : Suppresion d'un boutton de commande

bonjour ,

Peut etre je suis pas clair, je vous explique en gros mon tableau à 48 lignes. G une cellule D3 "nombre de ligne" dans la cellule D4 je rentre le nombre de ligne que je ve, a cote de la cellule D4 j'ai un boutton de commande 'Générer' qui verifi la valeur rentrer dans D4 et en fonction de ca je supprime des lignes dans mon tableau qui contient des boutton "options".
je vous mets un petit bout de code :


'Boutton Générer

Private Sub CommandButton17_Click()
Dim Nbposte As String

Nbposte = Me.Cells(4, "D")

Select Case Nbposte

Case "43": Me.Rows(54).Delete
Me.Rows(53).Delete
Me.Rows(52).Delete
Me.Rows(51).Delete
Me.Rows(50).Delete



Case "44": Me.Rows(54).Delete
Me.Rows(53).Delete
Me.Rows(52).Delete
Me.Rows(51).Delete



Case "45": Me.Rows(54).Delete
Me.Rows(53).Delete
Me.Rows(52).Delete



Case "46": Me.Rows(54).Delete
Me.Rows(53).Delete


Case "47": Me.Rows(54).Delete
End Select


End Sub

Ainsi de suite j'ai 47 case dans mon code, mon souci c'est que ca supprime pas les bouttons 'options' de chaque ligne.

J'spere que j'etais clair cette fois

Merci

 

[kjin]

Re : Suppresion d'un boutton de commande

Re,

ActiveSheet.Shapes("CommandButton1").Delete

Pour supprimer le bouton 1 ici, à adapter
A+
kjin

 

[kjin]

Re : Suppresion d'un boutton de commande

Re,
Peux tu nous dire la nature des boutons (ActiveX ou pas ?)
A plus
kjin

 

[Pierrot93]

Re : Suppresion d'un boutton de commande

Bonjour Joelle, Kjin, Job

peut être en modifiant la propriété de l'objet comme suit => click droit sur l'objet => onglet "propriété" => tu coches "déplacer et dimensionner avec les cellules".

bon après midi
@+

 

[job75]

Re : Suppresion d'un boutton de commande

Bravo Pierrot, une précision : Click droit --> Format de contrôle. Il faut bien sûr que VBA soit en mode création.
A+

 

[job75]

Re : Suppresion d'un boutton de commande

Pour continuer sur la même idée, je suppose que les boutons sont créés par la macro de "Générer".
Entrer dans la création le code : Selection.Placement = xlMoveAndSize
A+

 

[Pierrot93]

Re : Suppresion d'un boutton de commande

Re,

par vba, tu peux également coder comme suit :

Sheets("Feuil1").OptionButton1.Placement = 1

@+

 

[JoelleN]

Re : Suppresion d'un boutton de commande

Bonjour,

j'ai utilisé la ligne de commande de kjin ''ActiveSheet.Shapes("CommandButton1").Delete "
mais il m'affiche une erreur : Instruction incorrecte à l'exterieur d'une procédure

Quelqu'un a une idée, cela ve dire koi ???

Merci

 

[Pierrot93]

Re : Suppresion d'un boutton de commande

Re,

Joelle, as tu essayé la solution proposée dans mon post de 13h20, à noter que tu peux effectuer la manipulation pour tous tes "boutons" en même temps. Dans la barre d'outils dessin, tu click sur l'icone "selectionner les objet", click droit sur un, et les modification apportées seront valides sur tous.

bonne fin d'après midi
@+

 

[JoelleN]

Re : Suppresion d'un boutton de commande

salut Pierrot, g pas trop compri ta solution de 1H30

Peux tu m'expliquer stp??? Ta compris la logique de mon code???
Parcke je c pas si j'etais clair pr tout le monde

Merci

 

[JoelleN]

Re : Suppresion d'un boutton de commande

Re,

En effet j'ai essayé ta methode pierrot mais j'arrive po a cliquer droit sur mon button pr changer les paramètres :s

Je suis vraiment très nul en excel

Help!!!!!!!!!!!!!!!!!!!