Autres Aide pour un futur loto

[Dydy05]

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]

Bonjour Dydy,
Sans fichier test, un peu au pif ....

Double clic, à mettre impérativement dans la feuille concernée :

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 :

Sub RemiseZéro()
    Range("B1:G20").Interior.Color = vbYellow
End Sub

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

 

[Dydy05]

Bonjour Dydy,
Sans fichier test, un peu au pif ....

Double clic, à mettre impérativement dans la feuille concernée :

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 :

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]

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]

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]

Lisez les commentaires : ' Plage à adapter
Donc remplacez :

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

 

[Dydy05]

Lisez les commentaires : ' Plage à adapter
Donc remplacez :

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

Mille merci tout fonction super bien encore merci.