kfjm
Messages postés6Date d'inscriptionmardi 22 novembre 2005StatutMembreDernière intervention30 juillet 2014 30 juil. 2014 à 15:27
Merci pour cette bonne idée !
fransoze
Messages postés5Date d'inscriptionvendredi 31 janvier 2003StatutMembreDernière intervention15 octobre 2011 15 oct. 2011 à 15:17
Super mais voici deux petites modifs pour eviter de tricher :
Ce code pour éviter de faire un clic droit afin de changer les couleurs :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Et celui la pour éviter de faire une selection multiple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
ligne = Target.Row
Colone = Target.Column
Cells(ligne, Colone).Select
(...)
Softmama
Messages postés14Date d'inscriptionvendredi 20 août 2010StatutMembreDernière intervention 2 septembre 2010 2 sept. 2010 à 00:10
Concernant :
For i = 2 To 13 If i 2 Then ligne 13 If i 3 Then ligne 12
(...) If i 12 Then ligne 3 If i 13 Then ligne 2
tu aurais même pu faire en une seule ligne :
ligne = 15 - i
mais sinon, intéressante comme source. Bien réalisée
OB0ne
Messages postés1Date d'inscriptionjeudi 27 mai 2010StatutMembreDernière intervention27 mai 2010 27 mai 2010 à 21:18
CHAR(64 + 1) = "A"
Ca doit permettre de rendre la fonction Colonne plus élégante...
Pour faire des trucs comme ça : If i 2 Then ligne 13 If i 3 Then ligne 12 If i 4 Then ligne 11 If i 5 Then ligne 10 If i 6 Then ligne 9 If i 7 Then ligne 8
Met les données dans une feuille et utilise la fonction RECHERCHEH ou RECHERCHEV. Tu peux le faire avec élégance en nommant la zone de correspondance.
Je fais le malin mais il y a plein de trucs que je n'ai pas encore pigé dans ton code...
C'est bien de faire perdre du temps à tes collègues... J'avais fait un jeu de serpent qui mange, mais en concurrence à plusieurs (en se partageant les touches claviers un truc de ouf !). Ca a coûté très cher au projet à l'époque ! Si ça t'amuse, dans le serpent normal tu crèves dès que tu te cognes. Ben là, non, tu rétrécis. Quand tu n'as plus qu'une case, si tu te cognes, là tu meurs ! Les autres serpents t'aident bien sur... Deadly addictive !
questml
Messages postés1Date d'inscriptionmercredi 6 septembre 2006StatutMembreDernière intervention 8 novembre 2006 8 nov. 2006 à 19:31
Génial, bonne continuation ... ;-)
nallno
Messages postés14Date d'inscriptionjeudi 22 avril 2004StatutMembreDernière intervention10 décembre 2008 21 oct. 2006 à 08:42
Bonsoir,
pourquoi ça marche pas sous openoffice ?
(j'ai activé les macros )
cuq
Messages postés345Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention21 mars 20082 13 oct. 2006 à 16:25
Par contre attention je comfirme l'addiction : 10566 et j'ai même pas triché .. ( je tiens à dispo la copie d'écran )
Devrais avoir un truc du genre tu envois tes scores sur un site pour faire le TOP 10 ...
J'adore ..
cs_Patrice99
Messages postés1221Date d'inscriptionjeudi 23 août 2001StatutMembreDernière intervention 9 septembre 2018 13 oct. 2006 à 16:00
Super !
cuq
Messages postés345Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention21 mars 20082 13 oct. 2006 à 12:19
30 juil. 2014 à 15:27
15 oct. 2011 à 15:17
Ce code pour éviter de faire un clic droit afin de changer les couleurs :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Et celui la pour éviter de faire une selection multiple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
ligne = Target.Row
Colone = Target.Column
Cells(ligne, Colone).Select
(...)
2 sept. 2010 à 00:10
For i = 2 To 13 If i 2 Then ligne 13 If i 3 Then ligne 12
(...) If i 12 Then ligne 3 If i 13 Then ligne 2
tu aurais même pu faire en une seule ligne :
ligne = 15 - i
mais sinon, intéressante comme source. Bien réalisée
27 mai 2010 à 21:18
Ca doit permettre de rendre la fonction Colonne plus élégante...
Pour faire des trucs comme ça : If i 2 Then ligne 13 If i 3 Then ligne 12 If i 4 Then ligne 11 If i 5 Then ligne 10 If i 6 Then ligne 9 If i 7 Then ligne 8
Met les données dans une feuille et utilise la fonction RECHERCHEH ou RECHERCHEV. Tu peux le faire avec élégance en nommant la zone de correspondance.
Je fais le malin mais il y a plein de trucs que je n'ai pas encore pigé dans ton code...
C'est bien de faire perdre du temps à tes collègues... J'avais fait un jeu de serpent qui mange, mais en concurrence à plusieurs (en se partageant les touches claviers un truc de ouf !). Ca a coûté très cher au projet à l'époque ! Si ça t'amuse, dans le serpent normal tu crèves dès que tu te cognes. Ben là, non, tu rétrécis. Quand tu n'as plus qu'une case, si tu te cognes, là tu meurs ! Les autres serpents t'aident bien sur... Deadly addictive !
8 nov. 2006 à 19:31
21 oct. 2006 à 08:42
pourquoi ça marche pas sous openoffice ?
(j'ai activé les macros )
13 oct. 2006 à 16:25
Devrais avoir un truc du genre tu envois tes scores sur un site pour faire le TOP 10 ...
J'adore ..
13 oct. 2006 à 16:00
13 oct. 2006 à 12:19