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

LUYGYS

XLDnaute Occasionnel
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
 

Pièces jointes

  • RESET COLONNES PRECHOISIES.xlsm
    86.3 KB · Affichages: 9
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re, Bonjour patricktoulon, eriiiiic

Hey les gars, je vous ai passé le relais
Vous pouvez pas déserté comme cela ;)

LUYGYS
En vrai, dans la vraie vie, et dans notre dimension temporelle, tu veux faire quoi concrètement?
Quel est le contexte réel d'utilisation de ton classeur?
 

patricktoulon

XLDnaute Barbatruc
heu....
ca n'est pas que c'est difficile c'est que c'est absurde
qu'est ce que tu comprends pas dans le mot absurde
si tu veux je t'en fait un du genre

bouton1 = key
bouton 2 = confirmez
bouton 3 etes vous sur!!?
bouton4= vraiment sur
bouton5 vraiment vraiment sur
bouton6 vraiment vraiment vraiment sur ?
bouton 7 je demande ca parce qu'on sait jamais alors ?
bouton 8 bon!!!! sur ou pas sur
bouton 9 alors t'acouche??
:D :D :D :D

ya des matins qui sont un peu durs tout ne s'alume pas en meme temps :D :D
 

LUYGYS

XLDnaute Occasionnel
mais voyons on ce en fout que c' est absurde l' important c' est que ça marche comme c' est demande la séquence est differénte plutot =
bouton1 = key = activate bouton 2
bouton 2 = confirmez = cache bouton 2 sous le bouton 3 et activate bouton 3
bouton 3 =efface les cellules volu
bouton 4= stop n'effacez pas recommencez bouton 1
bouton5 vous avez efface voila les donnes effacez a nouveau
end sub
cordialement ;)
LUYGYS
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re

oulahh!!

bouton1 = key
bouton 2 = confirmez
bouton 3 =efface
bouton 4= stop n'effacez pas recommencez bouton 1
bouton5 vous avez efface voila le s donnes effacez

a oui la!! il faut consulter mon cher amis
tu crois qui va se passer quoi quand tu clique sur 4 apres le 3 ; que les données vont revenir
t' a pas fini ta nuit toi, t' a plein de galères dans le teston :D
tu rêve quand vba vides les cellules ben ... c'est perdu UNDO ne fonctionnera pas car l'action ne figurera pas dans le stack clipboard

sauf si mémorisation des tableaux dans des variables globales et cela pour chaque tableaux tu n'aura pas ce que tu desire

et j'imagine que c'est un exemple et qu'en vrai tu aura plus de tableaux que ca
et en plus si ce fichier est sensé être évolutif alors la c'est l’apothéose de l'absurdité

fait moi plaisir
met une liste box liste tes plage et un!!!!! bouton
tu click sur la plage voulue dans ta liste et le bouton effacera la liste envoyer par la listbox
tu t'en sortira mieux
 

LUYGYS

XLDnaute Occasionnel
Re, Bonjour patricktoulon, eriiiiic

Hey les gars, je vous ai passé le relais
Vous pouvez pas déserté comme cela ;)

LUYGYS
En vrai, dans la vraie vie, et dans notre dimension temporelle, tu veux faire quoi concrètement?
Quel est le contexte réel d'utilisation de ton classeur?
oui bonjour en reel ca n a rien voir avec un classeur particulier
re

oulahh!!



a oui la!! il faut consulter mon cher amis
tu crois qui va se passer quoi quand tu clique sur 4 apres le 3 ; que les données vont revenir
t' a pas fini ta nuit toi, t' a plein de galères dans le teston :D
tu rêve quand vba vides les cellules ben ... c'est perdu UNDO ne fonctionnera pas car l'action ne figurera pas dans le stack clipboard

sauf si mémorisation des tableaux dans des variables globales et cela pour chaque tableaux tu n'aura pas ce que tu desire

et j'imagine que c'est un exemple et qu'en vrai tu aura plus de tableaux que ca
et en plus si ce fichier est sensé être évolutif alors la c'est l’apothéose de l'absurdité

fait moi plaisir
met une liste box liste tes plage et un!!!!! bouton
tu click sur la plage voulue dans ta liste et le bouton effacera la liste envoyer par la listbox
tu t'en sortira mieux
non le bouton 4 est clicke si tu arrive seulemnt a bouton 2 et tu arretes la tu click 4 sinon t as clike bouton 3 tu peut cliker bouton 5 ou rien ;)
 

patricktoulon

XLDnaute Barbatruc
Il y aurait un qui serait capable de faire ces macros ou plusieurs macros pour que ça marche si quelq' un a bien compris comment ça doit marcher le vba avec ces boutons. ;)
LUYGYS

t'inquiet on a tous compris ce que tu veux
mais personne ne s'engagera sur cette voie
c'est un system contre evolutif ingérable dans le sens ou l'action peux se reproduire x fois pour un même tableau
le pseudo UNDO on met quoi ,quelle version du tableau depuis l'ouverture du fichier


non le bouton 4 est clicke si tu arrive seulemnt a bouton 2 et tu arretes la tu click 4 sinon t as clike bouton 3 tu peut cliker bouton 5 ou rien ;)
et en plus tu met des condition sur les index de boutons

bonne chance ;)
 

LUYGYS

XLDnaute Occasionnel
t'inquiet on a tous compris ce que tu veux
mais personne ne s'engagera sur cette voie
c'est un system contre evolutif ingérable dans le sens ou l'action peux se reproduire x fois pour un même tableau
le pseudo UNDO on met quoi ,quelle version du tableau depuis l'ouverture du fichier



et en plus tu met des condition sur les index de boutons

bonne chance ;)
les boutons 4 ou 5 sont utilises que dans certaines conditions si on a clicke boutons1 +2 et on veut pas continuer on appuyer bouton 4 et pour pouvoir effacer on doit recomencez click boutons 1 +2 +3
si on a clicke boutons 1+2+3 et on veut retrouver les donnes a nouveau on clik boutons 5 sinon on a le formulaire efface et on peut le remplir a nouveau !
LUYGYS
 

Staple1600

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 366
Messages
2 087 638
Membres
103 627
dernier inscrit
nabil