Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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:
Trier par date Trier par votes

eriiic

XLDnaute Barbatruc
Bonjour à tous,

sélectionne tes cellules à effacer sur la feuille et nomme la plage plag1
Si c'est plus simple pour toi tu peux définir plusieurs noms : plag1, plag2, etc
Et :
VB: 
Sub effacePlag()
     [plag1].ClearContents
     ' à répéter si plusieurs plagx
End Sub
avec l'avantage que si ça évolue ou que tu t'es trompé, tu n'as quel le nom à modifier, pas la macro.
eric
 
Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc
Je ne le parle pas encore très bien mais je lis très couramment le Luygys

Edit : houla, je viens d'ouvrir son fichier. C'est vrai qu'il y a de quoi s'y perdre avec les flèches dans tous les sens
 
Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc
Déjà as-tu testé ??

Si tu y tiens ajoute juste un msgbox de confirmation.
Si l'utilisateur répond bêtement oui alors qu'il ne voulait pas, et bien il ferme sans sauvegarder et rouvre le fichier.
VB: 
Sub effacePlag()
    If MsgBox("Cette action va effacer les cellules, confirmez-vous ?", vbYesNo) = vbYes Then
        [plag1].ClearContents
        ' à répéter si plusieurs plagx
    End If
End Sub
eric
 
Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel
bonjour ok je vais faire ça ça sera plus facile pour tout le monde a bientot !
Par contre les boutons surtout c' est le principal demande l' effacement ce n'est que le dernier resultat volu
Cordialement.
LUYGYS
 
Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel
Bonjour voila un fichier excel avec explications detailées du fonctionnement des boutons VBA macros volus
cordialement.
merci pour l' intéret du fichier.
LUYGYS
 

Pièces jointes

  • exemple effacer plusieurs cellules et boutons interactions test.xlsm
    26.4 KB · Affichages: 4
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
tu peux m'expliquer pourquoi tu a besoin d'un bouton confirmer
sur chaque bouton key tu veux vider les cellules en "D" directement
tu prend un mauvais chemin de depart la
un exemple


c'est absurde ce fonctionnement avec 3 boutons et pour chaque tableaux en plus
tu travaillerais avec des tableaux structurés il te suffirait d'un seul bouton et de sélectionner une des cellules d'un des tableaux (n'importe la quelle)et le click se chargerait d'identifier quel tableau est sélectionné pour l'effacer
 

Pièces jointes

  • demo3.gif
    46.7 KB · Affichages: 4
Dernière édition:
Vote positif 0 Vote négatif

LUYGYS

XLDnaute Occasionnel
bonjour
les trois boutons au lieu de un seul c est comme s il s agissait d un code secret et surtout pour voir comme faire pour que trois boutons fonctionnent ensemble
LUYGYS
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
pour que ca fonctionne sur 3 bouton
il te faut des variable globale module le bouton key trans met a confirme la plage
le bouton reset si je comprends bien annule l'action sauf qu'une fois le clear effectué vba ne garde pas les valeurs dans le stack clipboard c'est ballo!! il faut donc une 2d!!!! variable globale module pour mémoriser les valeurs

1 kilometre de code pour 4 tableaux de 10 lignes de rien du tout

tu déjeuner a quoi le matin ?

dis moi chez toi les interrupteurs des lumière ont il un bouton "confirmer l'eclairage de la piece"
non ben alors pourquoi en a tu besoins
quand tu clique sur un bouton c'est que tu le veux
absurde,absurde,absurde
 
Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc
Bonjour à tous,

donc j'en conclu que tu n'as même pas pris la peine de tester ma proposition.
Si tu veux je peux multiplier les msgbox : Etes-vous sûr ?, Etes-vous certain ? Etes-vous sûr d'être certain ? Etes-vous certain d'être sûr ? Ca fera pareil.
Je m'arrête là aussi.
Amuse toi bien avec tes boutons...
eric
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
2 K
vincent32
V
M
  • Question
Insérer QUE les valeurs de plusieurs cellules (en VBA)
Réponses
10
Affichages
3 K
Marcham
M
M
  • Question
Est il possible de faire une recherche en vba utilisant des boucles et itérations ?
Réponses
2
Affichages
970
Gorfael
M
[REF] Wiki Page 10 de MichelXld
Réponses
0
Affichages
30 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
5
Affichages
59 K
Best1
B
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
34 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
46 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
68 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…