Autres Effacer plusieurs cellules prédéfinis en utilisant une serie de boutons VBA macros

[LUYGYS]

Il s agit d' effacer les cellules d' un click ou il y a un 8 et aucune autre en utilisant une série de boutons dans l' ordre comme une séquence code !
Un peut DE VBA est bien venu !
Merci d' avance a tous les collaborateurs. !

PS: le 8 est juste pour indiquer quelles sont les cellules a effacer, les donnes dans ces cellules peut être divers et de formats complètement différents !!!!

LUYGYS

 

[LUYGYS]

le tableau en fait qui utiliserait ces donnes comporte beaucoup de cellules qui serait gardez avec une date ! un nouveau tableur avec les cellules vierges de donnes est utilise a nouveau et garde avec une autre date et ensuite efface avec les boutons pour utiliser a nouveau a l infini.

 

[patricktoulon]

re
@Staple1600 et cela fois le nombre de tableaux + ceux qui n'existent pas encore

 

[Staple1600]

Re

patricktoulon
Tu m'as encore zappé
(ou tu regardais pas la télé dans les seventies => message#74

NB:Je sens qu'on va vite arriver au message#100 à ce train-là)

EDITION: Ah bah, non, tu m'avais vu passé

 

[Staple1600]

Re

LUYGYS
C'est toi qui a zappé le message#74 (et le code VBA qu'il y a dedans )

 

[LUYGYS]

re
on a compris
ca reste absurde dans le sens ou il y a la multiplication par le nombre de tableaux
et de plus si le fichier évolue en terme de nombre de tableaux ça sera ingérable
bref je vois que tu comprends pas je vais te laisser mijoter la reflexion

non il y a un seul tableur mais avec beaucoup plus de cellules a utiliser que celles dans le exemple que en faite montre plusieur cas de figure a utiliser les boutons ,pas plusieurs tableaux. !

 

[patricktoulon]

re
non je ne t'ai pas zappé je réponds justement au 74 ce que tu presente c'est pour un!! tableau

pour 1 tableau il a:
key
comfirmer
annuler
reset
et un autre je sais plus quoi


c'est un truc sans fin

 

[LUYGYS]

Re

LUYGYS
C'est toi qui a zappé le message#74 (et le code VBA qu'il y a dedans )

j ai pas vu message 74 avec code je vais le chercher

 

[LUYGYS]

Re

Juste en hommage à David MacCallum (quand il était le Docteur Daniel Westin... dans les années 70)

Private Sub CommandButton1_Click()
CommandButton1.Visible = False
CommandButton2.Visible = True
CommandButton3.Visible = False
End Sub
Private Sub CommandButton2_Click()
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = True
End Sub

Private Sub CommandButton3_Click()
CommandButton1.Visible = True
CommandButton2.Visible = False
CommandButton3.Visible = False
End Sub

(Avec 3 CommandButton (ActiveX) dans le code de la feuille, donc le code ci-dessus aussi)
NB: Pour mieux voir, changer la Caption des boutons dans la fenêtre Propriétes avant de cliquer

bonjour je vais essayer ce code je reponderai apres .

 

[Staple1600]

Re

patricktoulon
Tu as zappé l'édition du message que tu n'avais pas zappé alors

LUYGYS
Les numéros des messages sont affichés à droite des messages à côté du mot Nouveau (qui est en orange)

 

[patricktoulon]

re
@Staple1600 non on c'est croisé c'est tout j'ai vu ton edition

j'adorais cette série quand j’étais gamin

 

[Staple1600]

Re

Ce serait peut-être plus économe en boutons avec un ToggleButton
Les deux lignes ci-dessus sont à mettre dans un module standard
Public t As Variant
Public rng As Range

Et sur la feuille, on a un ToggleButton
(et le code VBA ci-dessous dans le code de la feuille et pas dans le module)

Private Sub ToggleButton1_Click()
With ToggleButton1
  If .Value Then
  .Caption = "Suppression en cours"
  .BackColor = vbGreen
  Set rng = Application.InputBox("En cliquant sur OK," & Chr(13) & "les cellules ci-dessous seront effacées", _
  "Effacement Cellules", , Type:=8)
  If rng Is Nothing Then Exit Sub
  t = rng.Value
  rng.ClearContents
  Else
  .Caption = "Suppression annulée"
  .BackColor = vbRed
  rng.Value = t
  End If
End With
End Sub