Autres Aide pour un futur loto

Dydy05 · 15 Octobre 2023

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.

sylvanu · 15 Octobre 2023

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 · 15 Octobre 2023

sylvanu à dit:
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.

sylvanu · 15 Octobre 2023

Voir PJ.
Je trouve plus simple un simple clic avec Worksheet_SelectionChange
Vous avez le choix, si vous tenez au double clic, supprimer cette macro.

Dydy05 · 15 Octobre 2023

sylvanu à dit:
Voir PJ.
Je trouve plus simple un simple clic avec Worksheet_SelectionChange
Vous avez le choix, si vous tenez au double clic, supprimer cette macro.

Merci mais je n'arrive pas a certain nombre de les mettre en rouge et faudrait que les cellule B4 à K12 c'est possible ? merci

sylvanu · 15 Octobre 2023

Lisez les commentaires : ' Plage à adapter
Donc remplacez :

VB:

Range("B4:G90")
par
Range("B4:K90")

Dydy05 · 15 Octobre 2023

sylvanu à dit:
Lisez les commentaires : ' Plage à adapter
Donc remplacez :

VB:

Range("B4:G90") par Range("B4:K90")

Mille merci tout fonction super bien encore merci.

Autres Aide pour un futur loto

Dydy05

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Dydy05

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dydy05

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dydy05

XLDnaute Nouveau

Discussions similaires