Transfert de formule

[guy72]

Bonjour,
J'ai cette formule simple sur ma feuille "Essai" :
=SI(B5="";"";SI(B5=Liste!M1;"Oui";SI(B5<>Liste!M1;"Non";""))), cette formule se trouve dans B7.

Quelle est la formule en VBA qui me permettrait d'obtenir la même chose sachant que B5 devient TextBox1 et que B7 devient Label4 ?

Merci de votre aide.
Cordialement
Guy

 

[tototiti2008]

Re : Transfert de formule

Bonjour guy

Label4.Caption = iif(Textbox1.Text = "","",iif(Textbox1.text = Sheets("Liste").range("M1").value,"Oui","Non"))

 

[guy72]

Re : Transfert de formule

Bonjour,
Merci de ton aide.
Je vais sans doute revenir avec une autre question du meême genre.
A+
Cordialement
Guy

 

[guy72]

Re : Transfert de formule

Bonjour,
1) Le premier code est le code d'origine (qui fonctionne).
2) Le deuxième code est le code que j'ai modifié.
3) Peut-tu me dire , si c'est possible ?
Bien sur, j'ai essayé, mais ça na pas fonctionné car je suppose, que je ne l'ai pas fais comme il faut.
Notament : [B14:B19] par [B14:B19] ????

1er code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
If [B7] = "Oui" Then
[C10] = [C10] + 1
ElseIf [B7] = "Non" Then
[C15] = [C15] + 1
End If
End If

If Target.Address <> "$C$15" Or Target.Count > 1 Then Exit Sub
If Target = "" Or Target <> 3 Then Exit Sub
Select Case Application.CountIf([B14:B19], "n")
Case 6
[B19] = ""
Case 5
[B18] = ""
Case 4
[B17] = ""
Case 3
[B16] = ""
Case 2
[B15] = ""
Case 1
[B14] = ""
End Select

End Sub


Changements
B5 = TextBox1
B7 = Label4
C10 = Label17
C15 = Label15
B14 à B19 = Label9 à Label14


2ème code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "TextBox1.Text" Then
If Label4.Caption = "Oui" Then
[Label17.Caption] = [Label17.Caption] + 1
ElseIf [Label4] = "Non" Then
[Label15.Caption] = [Label15.Caption] + 1
End If
End If

If Target.Address <> "Label15.Caption" Or Target.Count > 1 Then Exit Sub
If Target = "" Or Target <> 3 Then Exit Sub
Select Case Application.CountIf([Label5.Caption : Lavel14.Caption], "n")
Case 6
[Label14.Caption] = ""
Case 5
[Label13.Caption] = ""
Case 4
[Label12.Caption] = ""
Case 3
[Label11.Caption] = ""
Case 2
[Label10.Caption] = ""
Case 1
[Label9.Caption] = ""
End Select

End Sub

Merci de ton aide
Cordialement
Guy

 

[tototiti2008]

Re : Transfert de formule

Re,

Bon, c'est bien de se lancer et d'essayer d'adapter mais peut-être faudrait il commencer par comprendre un peu ce qu'on fait

S'il y a des plages de cellules dans la feuille, il n'existe pas de "plages de Label" dans un userform, désolé...

d'autre part Worksheet_change se déclenche quand on change la valeur d'une cellule de la feuille... ce qui ne t'intéresse plus parce que maintenant tu aimerais savoir quand on modifie un textbox...

J'ai bien peur qu'il manque quelques bases 🙄

 

[guy72]

Re : Transfert de formule

Bonjour,
C'était juste pour savoir, si c'était possible.
Si on ne peut pas faire de plage avec de labels; le problème est réglé.
Merci

 

[tototiti2008]

Re : Transfert de formule

Re,

Je ne cherche pas à te décourager, mais plutôt que de te fournir un "code tout fait" (encore faudrait-il que je comprenne le but de ton code), je crois qu'il faudrait y aller pas à pas

En affichant ton Userform, quelles doivent être les valeurs de tes textbox ? de tes labels ?

Peux-tu nous expliquer ensuite de manière globale le fonctionnement attendu ?

 

[guy72]

Re : Transfert de formule

Bonjour,
En bref, je souhaitais transformer mon petit jeu (que j'avais fait avec des formules) dans un USF et ne rien laisser sur la feuille.
J'ai réussi quelques modifes, mais bon, c'est maigre.

Je t'envoiye mon fichier, par curiosité.
C'est pas grave si ce n'est pas possible.😉
Cordialement
Guy