OVH Cloud OVH Cloud

Ouvrir une boîte de dialogue

4 réponses
Avatar
Groswill
Bonjour

Je doit informer l'utilisateur par une bo=EEte de dialogue,=20
si la valeur de deux cellules distinctes est diff=E9rente.=20
Comment faire pour associer l'ouverture de ctte bo=EEte =E0 la=20
condition de comparaison ?

Merci :-)

Groswill

4 réponses

Avatar
Dédé
Salut Groswill !

Ben voici un exemple ...

Private Sub CommandButton1_Click()
If Range("a1").Value <> Range("a2").Value Then
MsgBox "Les valeurs contenue dans les cellules A1 et A2 sont différentes !",
vbInformation
Else
MsgBox "Les valeurs contenue dans les cellules A1 et A2 sont égales !",
vbInformation
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé
"Groswill" a écrit dans le message de
news:067e01c34467$e42ab430$
Bonjour

Je doit informer l'utilisateur par une boîte de dialogue,
si la valeur de deux cellules distinctes est différente.
Comment faire pour associer l'ouverture de ctte boîte à la
condition de comparaison ?

Merci :-)

Groswill
Avatar
groswill
Ou est ce que je dois placer le code, et comment ce lance
la macro. L'idéale est que le test se fasse
automatiquement à chaqe changement de valeur des cellules.

Merci :-)

Groswill

-----Message d'origine-----
Salut Groswill !

Ben voici un exemple ...

Private Sub CommandButton1_Click()
If Range("a1").Value <> Range("a2").Value Then
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont différentes !",

vbInformation
Else
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont égales !",

vbInformation
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé
"Groswill" a écrit dans le
message de

news:067e01c34467$e42ab430$
Bonjour

Je doit informer l'utilisateur par une boîte de dialogue,
si la valeur de deux cellules distinctes est différente.
Comment faire pour associer l'ouverture de ctte boîte à la
condition de comparaison ?

Merci :-)

Groswill


.



Avatar
groswill
Salut DéDé

Tout fonctionne, j'ai été obligé de supprimer les 2 lignes
de codes contenant l'expression "vbInformation", sinon
cela ne marchait pas.

Maintenant est il possible que la macro se déclenche
lorsque l'une des deux cellules est modifiée ?

Merci

Groswill :-)

-----Message d'origine-----
Salut Groswill !

Pour cela, tu va faire afficher la barre d'outils
nommée "Formule" et

ensuite, tu clique sur le bouton de cette barre et tu en
place un sur ta

feuille de calcul. Après cela, le curseur prend la forme
d'une "étoile" ou

"Crois" quand tu te met dessus alors, à ce moment ké, tu
double cliques

dessus et cela devrait t'ouvrir l'éditeur VBA pour ce qui
concerne le code

de ton bouton.

Après cela, tu fias simplement un copié-collé de mon code
et tu le colle

dans le code de ton bouton ...

Après cela, tu retourne dans ta feuille Excel, tu
désactive le mode édition

de ton bouton (bouton avec une équerre et une règle ...)
et tu test ton

bouton ...

Est-ce que je suis assez claire dans mes explications ?
est-ce que cela

fonctionne chez toi ?

Salutations
Dédé

"groswill" a écrit dans le
message de

news:090701c34480$07f141a0$
Ou est ce que je dois placer le code, et comment ce lance
la macro. L'idéale est que le test se fasse
automatiquement à chaqe changement de valeur des cellules.

Merci :-)

Groswill

-----Message d'origine-----
Salut Groswill !

Ben voici un exemple ...

Private Sub CommandButton1_Click()
If Range("a1").Value <> Range("a2").Value Then
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont différentes !",

vbInformation
Else
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont égales !",

vbInformation
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé
"Groswill" a écrit dans le
message de

news:067e01c34467$e42ab430$
Bonjour

Je doit informer l'utilisateur par une boîte de dialogue,
si la valeur de deux cellules distinctes est différente.
Comment faire pour associer l'ouverture de ctte boîte à
la


condition de comparaison ?

Merci :-)

Groswill


.




.




Avatar
Dédé
oupsss j'ai dû oublier ça ..

En fait, il n'y a pas besoin de les supprimer ! cette information
"vbInformation", doit être mise en fin de la ligne précédente qui commençait
par "MsgBox "Les valeurs ...".

Essaie de modifier ton code comme ceci et tu verra que le son et le petit
logo d'information sera peut-être plus adapté à ton type de message ...;-))

Cordialement !

Dédé

"groswill" a écrit dans le message de
news:089a01c34484$3c9d00c0$
Salut DéDé

Tout fonctionne, j'ai été obligé de supprimer les 2 lignes
de codes contenant l'expression "vbInformation", sinon
cela ne marchait pas.

Maintenant est il possible que la macro se déclenche
lorsque l'une des deux cellules est modifiée ?

Merci

Groswill :-)

-----Message d'origine-----
Salut Groswill !

Pour cela, tu va faire afficher la barre d'outils
nommée "Formule" et

ensuite, tu clique sur le bouton de cette barre et tu en
place un sur ta

feuille de calcul. Après cela, le curseur prend la forme
d'une "étoile" ou

"Crois" quand tu te met dessus alors, à ce moment ké, tu
double cliques

dessus et cela devrait t'ouvrir l'éditeur VBA pour ce qui
concerne le code

de ton bouton.

Après cela, tu fias simplement un copié-collé de mon code
et tu le colle

dans le code de ton bouton ...

Après cela, tu retourne dans ta feuille Excel, tu
désactive le mode édition

de ton bouton (bouton avec une équerre et une règle ...)
et tu test ton

bouton ...

Est-ce que je suis assez claire dans mes explications ?
est-ce que cela

fonctionne chez toi ?

Salutations
Dédé

"groswill" a écrit dans le
message de

news:090701c34480$07f141a0$
Ou est ce que je dois placer le code, et comment ce lance
la macro. L'idéale est que le test se fasse
automatiquement à chaqe changement de valeur des cellules.

Merci :-)

Groswill

-----Message d'origine-----
Salut Groswill !

Ben voici un exemple ...

Private Sub CommandButton1_Click()
If Range("a1").Value <> Range("a2").Value Then
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont différentes !",

vbInformation
Else
MsgBox "Les valeurs contenue dans les cellules A1 et A2
sont égales !",

vbInformation
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé
"Groswill" a écrit dans le
message de

news:067e01c34467$e42ab430$
Bonjour

Je doit informer l'utilisateur par une boîte de dialogue,
si la valeur de deux cellules distinctes est différente.
Comment faire pour associer l'ouverture de ctte boîte à
la


condition de comparaison ?

Merci :-)

Groswill


.




.