Ouverture de fenêtre

[UJAP]

Bonjour,

Joyeuses fêtes à ts les membres du forum,

Ma question : Est-il possible d’avoir une fenêtre qui s’ouvre avec un message si le montant de la cellule A1 n’est pas égal à celui de la cellule A2 ?

Merci,

 

[kjin]

Re : Ouverture de fenêtre

Bonjour,
Cela manque de précision !

If Cells(1,1) <> Cells(1,2) then MsgBox "Joyeux Noel"

Dito Msgbox
kjin

 

[JCGL]

Re : Ouverture de fenêtre

Bonjour à tous,

Peux-tu essayer dans le code la feuille :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> Range("A2") Then MsgBox "A1 différent de A2..."
End Sub

A+

 

[UJAP]

Re : Ouverture de fenêtre

Merci Kjin et JCGL,

 

[UJAP]

Re : Ouverture de fenêtre

Est-il possible que cette fenêtre ne s’ouvre qu’une seule fois pour nous avertir que les cellules sont identiques ou pas.

Ensuite elle s’ouvrerait simplement pour nous signaler que lors d’une modification les cellules sont identiques ou pas.

Merci,

 

[kjin]

Re : Ouverture de fenêtre

Re

Cela manque de précision !

On avance pas vraiment

Est-il possible que cette fenêtre ne s’ouvre qu’une seule fois pour nous avertir que les cellules sont identiques ou pas.

Oui mais quand ? à l'activation de la feuille, à l'ouverture du classeur... ?

Ensuite elles ne s’ouvriraient simplement que pour nous signaler lors d’une modification que les cellules sont identiques ou pas.

Comment les cellules sont-elles modifiées ? manuellement, automatiquement ? Est ce que ça concerne les 2 cellules ?
A+
kjin

 

[UJAP]

Re : Ouverture de fenêtre

Ok, je vais essayé d’être plus claire,

J’ai deux cellules A1 et A2. Ces deux cellules comprennent des montants logiquement identiques. Ces deux montants sont obtenus par des formules (sommeprod) issus d’une feuille existante dans le classeur. Cette feuille est régulièrement mise à jour afin d’alimenter mon tableau de vérification.

Donc je voudrai avoir un message qui apparait pour nous avertir si les deux montants sont identiques ou pas. Ce message devrait apparaitre lors de l’activation de la feuille sans m’empêcher de faire des modifications dans d’autres cellules de la feuille..

Je ne sais pas si c’est plus clair,

Merci,

 

[skoobi]

Re : Ouverture de fenêtre

Bonjour kjin, ujap, JC 😉,

Si c'est à l'activation de la feuille alors voici une proposition:

Private Sub Worksheet_Activate()
Mess = IIf(Range("A1") <> Range("A2"), "A1 différent de A2", "A1 et A2 sont identiques")
MsgBox Mess
End Sub

 

[kjin]

Re : Ouverture de fenêtre

Re,
Bonjour JCGL
Alors il suffit de mettre le code dans l'événement approprié de la feuille en question

Private Sub Worksheet_Activate()
If Range("A1") <> Range("A2") Then MsgBox "A1 différent de A2..." 'dito JCGL
'ou
'If Cells(1,1) <> Cells(1,2) then MsgBox "A1 différent de A2..." 
End Sub

Edit : Oups bonjour skoobi
A+
kjin

 

[UJAP]

Re : Ouverture de fenêtre

Génial,

Merci,