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

Autres Aide pour un futur loto

Dydy05

XLDnaute Nouveau
Bonjour, j'aurai un service voilà mon souci je vais avec des ami e s faire un loto je mie connais pas trop en VBA mais j'ai réussi a trouvé une solution pour mettre mon programme en plein écran mais le souci c'est que je trouve pas la solution pour quand je double clic sur un nombre la case devient rouge et une fois la partie fini je clic sur le bouton remise a zéro tout les nombres ce remette en jaune comme au début.
Merci de votre aide amicalement.
 

Pièces jointes

  • Loto SPA Amicale.xlsm
    15.7 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Dydy,
Sans fichier test, un peu au pif ....

Double clic, à mettre impérativement dans la feuille concernée :
VB:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("B1:G20")) Is Nothing Then ' Plage à adapter
          Range(Target.Address).Interior.Color = vbRed
    End If
End Sub
Remise à zéro :
Code:
Sub RemiseZéro()
    Range("B1:G20").Interior.Color = vbYellow
End Sub

Bien sur adapter la plage B1:G20 prise en exemple.
 

Dydy05

XLDnaute Nouveau
Bonsoir je viens juste de mettre le fichier je me suis aperçu qu'il était trop lourd pardon.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…