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

LUYGYS · 10 Novembre 2019

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 · 11 Novembre 2019

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 · 11 Novembre 2019

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

Staple1600 · 11 Novembre 2019

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 · 11 Novembre 2019

Re

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

LUYGYS · 11 Novembre 2019

patricktoulon à dit:
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 · 11 Novembre 2019

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 · 11 Novembre 2019

Staple1600 à dit:
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 · 11 Novembre 2019

Staple1600 à dit:
Re

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

VB:

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 · 11 Novembre 2019

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 · 11 Novembre 2019

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 · 11 Novembre 2019

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)

VB:

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

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

LUYGYS

XLDnaute Occasionnel

Pièces jointes

LUYGYS

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

LUYGYS

XLDnaute Occasionnel

LUYGYS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires