XL 2019 Effacer des cellules avec un bouton RAZ puis une boite de dialogue pour demander confirmation

Mimi1952 · 23 Avril 2021

Bonsoir à tous,

Je désirerais obtenir l'effacement de certaines cellules ( celles avec les nombres en rouge dans le fichier joint) a l'aide d'un bouton RAZ puis avec une boite de dialogue demandant confirmation pour l'effacement .

Je vous remercie de vos réponses
mimi 1952

soan · 2 Mai 2021

@Phil69970, @Mimi1952,

mon code VBA ne s'occupe pas des 5 premières colonnes car Michel met en rouge uniquement les Scores, et la 1ère colonne de Scores est à partir de la colonne F ; si Michel ajoute des colonnes à droite de la colonne AN (pour d'autres Poules, en horizontal), elles seront prises en compte grâce à cette instruction VBA :

dcol = Cells(5, Columns.Count).End(1).Column : dernière colonne, selon la ligne 5

mon code VBA ne s'occupe pas des 5 premières lignes, car la 1ère ligne ayant une donnée Score est la ligne 6 : 1er Score en F6 : 50 ; si Michel ajoute d'autres lignes (pour d'autres Poules, en vertical), elles seront prises en compte grâce à cette instruction VBA :

dlig = Cells(Rows.Count, 7).End(3).Row - 8 : dernière ligne, selon colonne G ; moins 8.

attention : le moins 8 n'est pas une erreur ! c'est plus subtil ! effectivement, avec moins 8, ça va jusqu'à la ligne 47 ; car y'a pas d'nombres en rouge dans les p'tits tableaux "Equipes" en bas de feuille (lignes 58 à 62), ni dans les tableaux "PODIUM" ; mais cette astuce n'empêche pas que s'il y a d'autres lignes supplémentaires, elles seront quand même prises en compte !

bonne soirée à vous deux.

Regarde la pièce jointe 1104362

soan

Mimi1952 · 3 Mai 2021

Mimi1952 à dit:
Merci Phil,
Effectivement j'ai essayer et ca fonctionne vraiment bien , demain je vais l'inclure dans mon classeur je te tiendrais au courant .
Bonne soirée et merci encore
mimi52

Bnojour Phil,

Ta version est parfaite ,ce matin je l'ai incluse dans mon classeur puis j'ai verrouiller toutes les cellules sauf les colonnes rouges et ensuite bloqué ma feuille .
le problème c'est que lorsque je clic sur RAZ le débogueur se réveille en surlignant " Worksheets ("Tableaux de Poules").Unprotect
je joint une capture d'écran du code

Phil69970 · 3 Mai 2021

@Mimi1952

Euh comment dire tu le fais exprès....
Tu as remis un espace ici

Tu le supprimes et tout va bien

*Précision si TOUTES les cellules en rouge ne sont pas verrouillées tu n'as pas besoin des 2 lignes que tu peux désactiver

VB:

'Worksheets("Tableaux Poules").Unprotect
'Worksheets("Tableaux Poules").Protect

@Phil69970

soan · 3 Mai 2021

Bonjour Phil,

Mimi1952 à dit:
le problème c'est que lorsque je clic sur RAZ le débogueur se réveille en surlignant " Worksheets ("Tableaux de Poules").Unprotect

Phil69970 à dit:
Euh comment dire tu le fais exprès....
Tu as remis un espace ici

je crois que c'est Michel qui n'était pas réveillé. ça explique pourquoi il a zappé tous mes posts.

@Mimi1952 : après les 2 espaces au milieu puis un espace en trop à droite, ce sera quoi, la prochaine fois ? un espace en trop au début ? tu t'amuses à réveiller le débogueur ?

soan

Phil69970 · 3 Mai 2021

Bonjour @soan

@Mimi1952 : Je rajouterais laisse dormir le débogueur et enlèves par anticipation l'espace au début....
Autrement je te propose une variante "T a b l e a u x d e P o u l e s"

Un peu d'humour dans ce monde de brut.....

@Phil69970

soan · 3 Mai 2021

Re,

je crois qu'le débogueur est pas prêt d's'endormir :

ou alors, juste une petite sieste ! en plus, on voit pas la fin du nom de Feuil10 ; c'est p't'être 3 espaces ?

soan

Phil69970 · 3 Mai 2021

Bonjour @soan

J'en conclus que @Mimi1952 aime les grands espaces....

@Phil69970

Mimi1952 · 6 Mai 2021

Phil69970 à dit:
Bonjour @soan

J'en conclus que @Mimi1952 aime les grands espaces....

@Phil69970

Bonjour, Phil et Soan
Je m'excuse pour le retard mais je vous remercie sincèrement car maintenant tout est nickel ca fonctionne parfaitement et le débogueur c'est enfin endormi
Mais franchement , je ne pensais pas que les espaces dans les onglets de feuille avait une importance comme ca.
Merci encore et à une prochaine
Cordialement mimi1952

XL 2019 Effacer des cellules avec un bouton RAZ puis une boite de dialogue pour demander confirmation

Mimi1952

XLDnaute Occasionnel

Pièces jointes

soan

XLDnaute Barbatruc

Mimi1952

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Mimi1952

XLDnaute Occasionnel

Discussions similaires