Autres Aide pour un futur loto

  • Initiateur de la discussion Initiateur de la discussion Dydy05
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.
 
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.
Bonsoir je viens juste de mettre le fichier je me suis aperçu qu'il était trop lourd pardon.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
930
Retour