Programmation Excel VBA, bouton lié à une ligne

Résolu
PANTPUFLE -  
Bonjour,

Je cherche une solution à mon problème sur différent forums mais en vain. J'ai créée un document Excel afin de programmer différentes commande et les dates de livraisons. A cela j'ai ajouter devant chaque ligne un bouton programmer afin d'effacer la ligne sur laquelle il se situe. Mais le bouton est programmer avec le numéro de cellule, ce qui signifie que si je rajoute une ligne entre temps le bouton ne sera pas en face de la bonne ligne.

J'espere être clair mais en gros, il me faudrais supprimer les colonne C à G mais uniquement sur la ligne du bouton. Je ne sais pas si cela est possible.

Par avance, merci de votre réponse.

Configuration: Windows / Firefox 80.0

3 réponses

  1.  yg_be Contributeur
    bonjour, je ne comprends pas le lien entre ton premier et ton second paragraphe.
    je me demande si c'est une bonne idée d'avoir un bouton par ligne.
    peux-tu partager ton fichier?
    0
    1. PANTPUFLE
      Bonjour, j'ai repondue à votre message ci-dessous :)
      0
  2. PANTPUFLE
    Bonjour, j'ai conscience de ne pas être très clair dans mes propos alors je vais essayer d'apporter des précisions.

    Tout d'abord je vous mets a disposition le lien du excel car je n'ai pas reussis a l'intégrer d'une autre façon:
    https://www.cjoint.com/c/JIxinC7lWYa

    Sur ma feuille de commande, on peut voir au client SNCF (qui est un exemple) qu'il y a différentes commandes, différentes dates ect... Devant chaque ligne il y a un bouton affilié à la ligne. Lorsque ma commande est livré, il serais plus confortable pour moi d'effacer mes données du tableau dans les cellules allant de C à G. Mon problème est le suivant. Si un jour j'ai une commande supplémentaire, il me faudrais rajouter une ligne dans ce tableau et donc changer le numéro des cellules. Le bouton ne restant pas dans sa cellule attribué, le code VBA ne serais alors plus bon car il m'effacerais les données d'une autre cellule.

    J'aurais donc aimé, soit pouvoir lié mon bouton à une cellule, peut importe le rajout de ligne ou de suppression, les boutons restent sur le bon numéro de cellule qui leur à été attribué. Ou alors savoir si il était possible de programmer le bouton afin qu'il efface les données de sa cellule mais sans avoir à mettre les numéro dans Range("C32:G32").

    Merci beaucoup de votre réponse.
    0
    1. yg_be Contributeur
      un exemple: 
      Private Sub CommandButton1_Click()
Dim ligne As Long
ligne = Me.CommandButton1.TopLeftCell.Row
Cells(ligne, "C").Resize(1, 5).ClearContents
End Sub
      0
    2. yg_be Contributeur
      @yg_beou bien, tenant compte que le bouton est dans la colonne A: 
      Private Sub CommandButton10_Click()
Me.CommandButton10.TopLeftCell.Offset(0, 2).Resize(1, 5).ClearContents
End Sub
      0
    3. PANTPUFLE
      @yg_beMerci beaucoup mais après essai cela efface la première ligne de mon premier tableau mais pas la ligne où se trouve le bouton.
      Je vais essayer de voir si avec votre programme je ne peux pas trouver une alternative mais si vous aviez une solution à mon problème cela m'aiderais grandement.
      Merci pour votre aide.
      0
    4. yg_be Contributeur
      @PANTPUFLEpeux-tu montrer ton code modifié? chez moi, tout se passe bien.
      0
  3. yg_be Contributeur
    une autre méthode serait d'utiliser une seule macro, et d'associer tous les boutons à cette macro. 
    Sub bouton()
ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(0, 2).Resize(1, 5).ClearContents
End Sub

    tu peux même copier le bouton sur toutes les lignes.
    0
    1. PANTPUFLE


      J'ai essayer avec la derniere méthode, il me dis ne pas connaître "Buttons".
      "Impossible de lire la propriété Buttons de la classe Worsheet"
      0
    3. PANTPUFLE
      @yg_beD'accord, je vais regarder ça. Merci beaucoup pour toute votre aide en tout cas :)
      0
    4. PANTPUFLE
      @yg_beCa fonctionne trés bien, merci beaucoup !
      0

Discussions similaires

Bouton ON/OFF : O ou I, quel côté est allumé
Stargirlfr

12 réponses
Excel : afficher toutes les lignes et colonnes masquées
livlarsen

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon

4 réponses
Où est la touche SHIFT sur mon clavier d'ordi ?
joe!

18 réponses