Problème Userform

[Hulk]

Salut à tous,

J'ai un petit souci avec un Userform dans le fichier que j'ai joins.

Merci de jetter un oeil, et merci d'avance pour votre aide.

Hulk.

 

[ya_v_ka]

Re : Problème Userform

Salut

Voili...voilou

Ya'v

Edition : correction du fichier oupsssssssssss quel m.....ier sur mon ordi !!!!!!

 

[Hulk]

Re : Problème Userform

Salut ya_v_ka,

Je pense que tu as dû te tromper de post 🙂

Hulk.

 

[Staple1600]

Re : Problème Userform

Bonsoir


Pourquoi ne pas utiliser Données/Validation ?

Personnalisé

=$f$4<>$g$4

 

[ya_v_ka]

Re : Problème Userform

Salut tous

Voilà intervention précédente corrigée... le risque en ne nommant pas les fichiers !!!!

Ya'v

 

[Hulk]

Re : Problème Userform

Salut à tous, salut Staple1600, salut ya_v_ka,

Staple1600, j'suis débutant dans le domaine, qu'entends-tu par utiliser Données/Validation ?

Et toi ya_v_ka, tu dis que t'as corrigé ton précédent post, mais tu n'as pas lié le fichier 🙂

En tous les cas merci à vous pour votre aide.

Hulk.

 

[Staple1600]

Re : Problème Userform

Bonsoir


J'entends ceci (le soir aux fond des bois..)

1) Sélectionne tes deux cellules (ici F4 et G4)
2) Aller dans le menu Données/Validation
3) Dans [Autoriser], choisir [Personnalisé]
et saisir
=$F$4<>$G$4

4) Maintenant saisie 2 valeurs égales dans ces cellules
et observe ce qui se passe.

 

[JCGL]

Re : Problème Userform

Bonjour à tous,

Salut Hulk, sur ce coup là tu es loin de Doc Banner : je t'ai posté une réponse sur un autre Forum...


A + de
A+ à tous

Edition : Je viens de voir ta réponse, ma réponse ne convient pas. Désolé ;-)

 

[pierrejean]

Re : Problème Userform

bonjour à tous

En supposant que j'aie compris

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Or Target.Address = "$G$4" Then
  If [F4].Value = [G4] Then Call Pen
End If
End Sub

 

[ya_v_ka]

Re : Problème Userform

Hello

Je n'ai pas dit avoir posté une nouvelle réponse, mais bien avoir corrigé la première... donc le fichier joint dans le premier post de ce fil est le bon... qui rejoint la réponse de Pierrejean d'ailleur.

Ya'v

 

[Hulk]

Re : Problème Userform

Okey, bonsoir à tous,

Alors:

Staple1600, j'ai essayé avec Données/Validation, il me donne un message d'erreur "La valeur que vous avez tapée..." Donc ça ne joue pas. Merci quand même !

ya_v_ka, ok sorry et merci !

JCGL, donc tu as vu sur l'autre Forum que t'as soluce ne jouait pas, mais encore merci pour ton aide, et je m'empresse d'aller le signaler sur l'autre.
A bientôt.

Et enfin Pierrejean, ta solution est la bonne, impeccable ! Tu as bien compris en effet.
Merci pour tout.

Salut à tous et encore merci 😀

Problème résolu.

Hulk.

 

[Staple1600]

Re : Problème Userform

Re



Si j'ai bien compris

Quand les valeurs sont égales , tu les modifies
(dans ce cas elles ne sont plus égales, non)

Mon idée était donc (avec Données/Validation) d'empêcher que les cellules F4 et G4 soient égales lors de la saisie.

PS: le message d'erreur n'en est pas un , c'est le résultat de Données/Validation 😉

Ce qui revient au même non?

 

[Hulk]

Re : Problème Userform

Re, ok je vois ce que tu pensait, mais non c'était pas ce que je pensais pour mon souci.

Cela dit notre ami Pierrejean a trouvé (ou presque) la solution, si tu veux voir ce que je voulais précisément, sa formule est la bonne, sauf qu'il y a encore un petit problème, et là je fais appel à Pierrejean s'il nous lit.

Si F4 et G4 sont des formules, l'Userform ne s'affiche plus??

Merci à tous.

Hulk.

 

[Hulk]

Re : Problème Userform

Re-bonsoir à tous,

Ok je vois ce que tu pensait Staple, mais non c'était pas ce que je pensais pour mon souci.

Cela dit notre ami Pierrejean a trouvé (ou presque) la solution, si tu veux voir ce que je voulais précisément, sa formule est la bonne, sauf qu'il y a encore un petit problème, et là je fais appel à Pierrejean s'il nous lit.

Si F4 et G4 sont des formules, l'Userform ne s'affiche plus??

Merci à tous.

Hulk

 

[pierrejean]

Re : Problème Userform

re

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Or Target.Address = "$G$4" Then
  If Range("F4").Value = range("G4").Value Then Call Pen
End If
End Sub