Construction Formules

[olivier]

Bonjour,

Pourriez vous m'aider à compléter cette feuille de calcul.

Merci

 

[Jean-Marie]

OUI

 

[Gérard DEZAMIS]

Bonjour Olivier et Jean-Marie


Moi aussi

Attendons le 4ème pour faire un Tarot ou une belote
A moins qu'Olivier ne nous adresse son fichier ....
@+
GD

 

[Jean-Marie]

Re

Je complete ma reponse

=Si(Olivier_a_besoin_D_aide=VRAI;"post la fromule, et soit plus explicite";"partie de tarot le samedi soir").

@+Jean-Marie

 

[Gérard DEZAMIS]

Re Jean-Marie

Ne pas oublier :

Private Sub Soirée_Open() ' "Ouverture d'une soirée privée"
' Ne pas oublier de déclarer les variables sinon @+Thierry va nous gronder
Dim Boissons as Variant ' Chacun boit selon ses envies'
Dim Tenue_de_rigueur as Sting 'soyons à l'aise
Dim Moralité as Integer 'Il faut être raisonnable
Dim Accord as Boolean ' Vous avez le choix
if whiskyverre.value=Double then
Tps_recuperation.value = Long
....
Code à préciser

End Sub

@+
GD

 

[andré]

Salut les copains,

Voilà le quatrième !

La règle du jeu est simple : si je gagne, tu perds.
Le contraire n'est pas VRAI.

Pour patienter :
Magré plusieurs essais, la première fois ça n'a pas réussi, mais la deuxième fois, ça a réussi dès la première fois.

Bonne soirée.
Ândré.

 

[Tapsoba]

Salut à tous

C'est super marrant et aussi instructif.

Merci pour l'humour, ça fait du bien !

 

[yeahou]

Bonjour à tous

La macro de Gérard enrichie mais on peut encore améliorer

Private Sub Soirée_Open() ' "Ouverture d'une soirée privée"
' Ne pas oublier de déclarer les variables sinon @+Thierry va nous gronder
Dim Boissons As Variant ' Chacun boit selon ses envies'
Dim Tenue_de_rigueur As String 'soyons à l'aise
Dim Moralité As Integer 'Il faut être raisonnable
Dim Accord_Madame As Boolean ' Vous avez le choix
Dim Etat As String, Whisky_Double As Long
Dim Jai_du_Jeu As Boolean

10 If Accord_Madame = True Then
Select Case Whisky_Double
Case 0
Etat = "coincé!"
Moralité = 32767
Tenue_de_rigueur = "strict"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 1
Case Else
Whisky_Double = 2
GoTo 10
End Select
Case 1
Etat = "ça va!"
Moralité = 30000
Tenue_de_rigueur = "décontracté"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 2
Case Else
Whisky_Double = 3
GoTo 10
End Select
Case 2
Etat = "ça commence!"
Moralité = 20000
Tenue_de_rigueur = "chemise déboutonnée"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 3
Case Else
Whisky_Double = 4
GoTo 10
End Select
Case 3
Etat = "ça continue!"
Moralité = 10000
Tenue_de_rigueur = "chemise ouverte"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 4
Case Else
Whisky_Double = 5
Etat = "m'en fous!"
GoTo 10
End Select
Case 4
Etat = "ça chauffe!"
Moralité = 0
Tenue_de_rigueur = "ou est ma chemise ?"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 5
Etat = "m'en fous!"
Case Else
Whisky_Double = 6
Etat = "m'en fous!"
GoTo 10
End Select
Case Is > 4
Etat = "grumphÅ_😵ªñ ®’ä_ †Œyÿœ¬±«"
Moralité = -32768
Tenue_de_rigueur = "chemise déchirée, traces de vomi"
Select Case Jai_du_Jeu
Case Else
GoTo Bed
End Select
End Select
Else
GoTo Bed
End If
Exit Sub
Bed:
Application.ScreenUpdating = False
Application.Quit
End Sub

 

[andré]

Salut Yeahou,

J'ai essayé ta macro, mais j'ai un "bug", elle ne fonctionne pas.

Après quelques heures de recherche (je ne suis pas un spécialiste de macro) j'ai trouvé l'erreur.

Je placé la formule suivante en A1 : =SUBSTITUE(A1;"wisky";"duvel") et tout fonctionne à merveille !

Merci encore.
Ândré.

 

[Emmanuel]

Bonjour à Tous

ARF quel POST.......
excel...lent.
Bonne journée
Emmanuel