Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Macro Execel 2002 pour loto en salle ( resolu )

 

LOGICIELS : willyplaisir, 1 utilisateur anonyme et 41 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Macro Execel 2002 pour loto en salle ( resolu )

Prévenir les modérateurs en cas d'abus 
chassyyy
chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 15/06/2008 à 09:40:02  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,  :hello: j’ai créé une grille de 90 cellules sur Excel numéroté de 1 à 90.
 J’aimerai que quand je mets le pointeur sur une cellule et je clique que le fond de celle ci se peigne en jaune.
 1° Et il possible de le faire.
 2° Quelle formule en macro il faut.
 Merci d’avance  :moque:


zebretoujours9
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 15/06/2008 à 09:46:45  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
:hello:

 Sujet en double : http://forum.telecharger.01net [...] ges-1.html

 Zèbretoujours

(Publicité)
chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 16/06/2008 à 12:42:00  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
BON merci je n’ai pas l’habitude d’écrire sur un forum, j’ai voulu faire simple et ne pas écrire un roman de 520 pages. Je vois que dans se forum il faut être déjà un pro de l’informatique.

 Pardonner moi pour vous avoir sidéré !!!!!

chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 16/06/2008 à 14:38:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour, pour un LOTO voici se que je veux faire avec un ordinateur portable et un rétroprojecteur projeté une grille de 1 à 90 sur un  écran  et quand les chiffres sortent  je mets le pointeur de la souris sur le chiffre et un clic gauche la police en rouge et le fond en jaune avec Excel 2002  


 1
  11 21 31 41 51 61 71 81
 2 12 22 32 42 52 62 72 82
 3 13 23 33 43 53 63 73 83
 4 14 24 34 44 54 64 74 84
 5 15 25 35 45 55 65 75 85
 6 16 26 36 46 56 66 76 86
 7 17 27 37 47 57 67 77 87
 8 18 28 38 48 58 68 78 88
 9 19 29 39 49 59 69 79 89
 10 20 30 40 50 60 70 80 90

 Voila j’espère que mes explications sont un peu plus claire
 Merci d’avance pour vos solutions

  1. homepage
qmike
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 16/06/2008 à 19:15:34  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour
 Un double clic sur la cellule concernée
 Couleur devient jaune
 Police devient rouge
 Clic-droit sur l'onglet concerné >>> Visualiser le code
 coller le code suivant
 Private Sub Worksheet_BeforeDoubleClick(By​Val Target As Range, Cancel As Boolean)
 Couleur = Target.Cells.Interior.Color

 If Target.Interior.Color = vbWhite Then

Target.Cells.Interior.Color = vbYellow

Target.Cells.Font.ColorIndex = 3

Else

Target.Cells.Interior.Color = Couleur

End If


 End Sub

 Extrait de http://bvrve.club.fr/Astuces_Michel/05excelvba.php
 Bonne soirée


---------------
http://michel.vergriete.perso.sfr.fr//accueil.htm cordialement
(Publicité)
gorfael
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 16/06/2008 à 20:31:05  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

chassyyy a écrit :

Bonjour, pour un LOTO voici se que je veux faire avec un ordinateur portable et un rétroprojecteur projeté une grille de 1 à 90 sur un  écran  et quand les chiffres sortent  je mets le pointeur de la souris sur le chiffre et un clic gauche la police en rouge et le fond en jaune avec Excel 2002  


 1
  11 21 31 41 51 61 71 81
 2 12 22 32 42 52 62 72 82
 3 13 23 33 43 53 63 73 83
 4 14 24 34 44 54 64 74 84
 5 15 25 35 45 55 65 75 85
 6 16 26 36 46 56 66 76 86
 7 17 27 37 47 57 67 77 87
 8 18 28 38 48 58 68 78 88
 9 19 29 39 49 59 69 79 89
 10 20 30 40 50 60 70 80 90

 Voila j’espère que mes explications sont un peu plus claire
 Merci d’avance pour vos solutions


Salut
 Comme tu le vois, j'ai supprimé mon poste ironique, qui n'a plus raison d'être, vu ta réaction : le titre doit permettre de connaître le sujet et le sujet être suffisament clair pour permettre de t'aider.

 Pour ton problème, une solution, inspirée de celle de qmike
 Ta grille est sur la plage A1:I10
 Clic-droit sur le nom de l'onglet=>Menu contextuel>>Visualiser le code
 Tu colles les 2 macros suivantes



Private Sub Worksheet_BeforeRightClick(ByV​al Target As Range, Cancel As Boolean)
 If Intersect(Target, [A1:I10]) Is Nothing Then Exit Sub
 If [K1] <> "" Then

Cancel = True

Target.Interior.ColorIndex = xlNone

Target.Font.ColorIndex = 1
 End If
 End Sub

 Private Sub Worksheet_SelectionChange(ByVa​l Target As Range)
 Dim Cel As Range
 If Intersect(Target, [A1:I10]) Is Nothing Then Exit Sub
 Set Cel = Intersect(Target, [A1:I10])
 If [K1] <> "" Then

Cel.Interior.ColorIndex = 6

Cel.Font.ColorIndex = 3
 End If
 End Sub


La cellule K1 permet, si elle n'est pas vide aux macros de fonctionner, si elle est vide, les macro n'agissent pas
 K1 =1 sur la plage A1:I10
 Clic-gauche met le fond en jaune et la police en rouge
 Clic-droit remet le fond en blanc et la police en noir.
 Dans ce cas, le clic-droit n'ouvre plus le menu contextuel cellules.

 si K1 est vide, le fonctionnement des clic-G et Clic-D est celui habituel

 A+

chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 17/06/2008 à 08:38:31  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Gorfael et qmike je vous remercie cela fonction très bien, connaissez vous  un éditeur de livre  pour apprendre a faire des macros  débutant
 Cordialement
 A+

chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 17/06/2008 à 08:38:32  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Gorfael et qmike je vous remercie cela fonction très bien, connaissez vous  un éditeur de livre  pour apprendre a faire des macros  débutant
 Cordialement
 A+

(Publicité)
chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 17/06/2008 à 08:39:32  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Jai encore fait un double clic !!!!!!!!

gorfael
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 17/06/2008 à 15:02:44  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

chassyyy a écrit :

Jai encore fait un double clic !!!!!!!!


Salut
 Tu édites tes postes supplémentaires et juste en-dessous du bouton poster, il y a une coche supprimer.
 Pour les bouquins, je n'en conseille aucun : il sont chers et tu ne trouves jamais l'instruction dont tu as besoin.
 ce que tu peux faire, c'est passer par les macros apprentissage :
 Menu Outils>>Macro>>Nouvelle macro
 tu effectues les opérations que tu veux coder, tu arrêtes l'enregistrement et tu vas voir le code. Comme c'est toi qui a fait les manips, tu sais ce que tu as fait.
 Après, les forums peuvent t'aider. Il en existe des spécialisés dans Excel qui permettent de transmettre des fichiers d'essais.

 A+

chassyyy
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 03/07/2008 à 15:37:33  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci A+

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
excel : classer les feuilles/résolu amelioration macro loto (Nono)
salle discussion yahoo messenger Graphique avec Execel 2003
Aide sur excel macro ? Macro excel
Macro sur internet imposible de faire un nouveau fichier dans office 2002 et dans windev
Plus de sujets relatifs à : Macro Execel 2002 pour loto en salle ( resolu )

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Excel 2002 une macro pour grille de Loto ( RESOLU) 3
Envoie de FAX avec un PC. 7
classement alphab. automat. par 3è nom (résolu par abandon) 5
le gestionnaire des tâches a disparu ! 20
Word - lenteur ouverture 2