XL 2021 MsgBox : Je ne sais pas faire...

[Constantin]

Bonjour à tous,

Dans ce tout petit fichier (Essai.xlsm), je D4 doit être égal à D6 (donc Différence = 0)

Je dois donc recopier la valeur de D6 en D4.

C’est ce que fait cette macro (créée avec l’enregistreur):

Sub idem()

Range("D6").Select

Selection.Copy

Range("D4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("F8").Select

End Sub
Je voudrais, mais je n’y arrive pas, à « annoncer » cette macro par un MsgBox (VbYes et VbNo) qui aurait pour titre, par exemple : « D4 et D6 sont différents » ou « D4 <> D6 »

Avec comme message de confirmation « Copier D6 en D4 » en valeur.

Si Yes : D6 écrase D4

Si No : On quitte la macro.

Merci à celui qui pourra m’aider à compenser mon insuffisance…

 

[dysorthographie]

bonjour,

Sub idem()
Range("D4").value=Range("D6").value
End Sub

 

[sylvanu]

Bonjour Constantin, dysorthographie
Un essai avec :

Sub idem()
If [D6] <> 0 Then
    réponse = MsgBox("D6<>D4" & Chr(10) & "Dois je recopier D6 dans D4 ? ", vbYesNo)
    If réponse = vbYes Then [D4] = [D6]
End If
End Sub

 

[sylvanu]

Re,
Pour un msgbox vous pouvez utiliser cet utilitaire qui permet de construire un msgbox personnalisé très facilement :

Icône de la ressource

Construction automatique d'un MsgBox

8 Novembre 2024

Construire un MsgBox rapidement.

• sylvanu
• msgbox
• Utilitaires

 

[Constantin]

Merci Sylvanu,
C'est exactement ce que je voulais mais dis moi si j'ai bien compris :
- réponse = définit le paramètre réponse qui correspond au MsgBox.
- Chr(10) : Je ne sais pas à quoi cela correspond dans la syntaxe des MsgBox. Je croyais que D6 <> D4 s'afficherait à la place "Microsoft Excel" ?
- D4 et D6 entre crochets ([D4] et [D6] c'est pour signifier qu'on ne copie que les valeurs ?
J'aurai sûrement un autre fichier à vous proposer (si je n'arrive pas, à partir de ce précieux code à faire ce que je souhaite...)
Mille mercis encore,
Pierre

 

[Constantin]

Tout en rédigeant ma réponse au post #3, j'ai vu le post #4. Je le regarde tout de suite...
Merci encore !

 

[Constantin]

bonjour,

Sub idem()
Range("D4").value=Range("D6").value
End Sub

Merci dysorthographie,
Indiscutablement, votre code est bien plus simple et plus explicite que celui que j'ai créé avec l'enregistreur...
Je note !
Merci encore

 

[sylvanu]

Re,

- réponse = définit le paramètre réponse qui correspond au MsgBox.

C'est une variable qui comportera la réponse au msgbox : vbyes ou vbno.

Chr(10)

Il s'agit simplement d'un retour à la ligne dans le message.

[D4]

Notation de fainéant, signifie simplement Range("D4")

 

[Constantin]

Tout est tellement plus clair quand on m'explique...
Mais, ma question "Je croyais que D6 <> D4 s'afficherait à la place "Microsoft Excel" ?" Comment faire pour avoir un titre (en bandeau) et un texte (au centre) séparés ?
J'ai essayé avec l'utilitaire que vous m'avez recommandé mais ça n'a pas fonctionné (il faut dire que je ne suis pas très doué).
Merci de nouveau

 

[sylvanu]

Essayez :

Réponse = MsgBox("D6<>D4",36,"Dois je recopier D6 dans D4 ? ")

Pour infos sur msgbox, une autre explication : https://www.automateexcel.com/fr/vba/boite-dialogue-oui-non/

 

[Constantin]

Yes !!! J'y suis arrivé ! Génial cet utilitaire !
Merci encore !