XL 2019 Afficher msgbox et si la valeur d'une cellule a changé sur une autre feuille

pat66 · 23 Mars 2023

Bonjour le forum,

voilà j'ai besoin de votre aide pour réaliser cette macro

J'ai 2 feuilles, feuil1 cellule D52 et feuil2 cellule M17

Je saisi une valeur sur la feuil1 D52, ensuite j'affiche la feuil2, un msgbox doit s'afficher automatiquement si la valeur de la cellule feuil1 D52 à changé
Le msgbox me demande si je veux mettre à jour la valeur dans feuil2 M17 avec oui ou non

merci de votre aide

AtTheOne · 23 Mars 2023

EDIT : Pas vu le post de @vgendron, pb de rafraichissement
Bonsoir à toutes & à tous,
bonsoir @pat66
Une solution qui ne propose qu'une fois la modification avec 2 noms définis :
OldVal (l'ancienne valeur de la cellule D52 de la feuil1)
Proposé (O ou N, selon que le changement a été proposé ou non)
Code de Feuil1 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
     Set Source = Me.[D52]
     If Intersect(Target, Source) Is Nothing Then Exit Sub
     If [OldVal] <> Source.Value Then
          With ThisWorkbook
               .Names("OldVal").RefersTo = Source.Value
               .Names("Proposé").RefersTo = "N"
          End With
     End If
End Sub

Code de Feuil2 ;

VB:

Private Sub Worksheet_Activate()
     Set...

vgendron · 23 Mars 2023

Bonjour

Sans fichier exemple, ma contribution sera juste la suivante:

il faut mettre du code dans l'évènement _change de la feuille
faire un test sur la target: if target=range("D52")

VB:

if msgbox ("Souhaitez vous mettre la nouvelle valeur " &target.value &" dans la feuille 2?",vbyesno)=vbyes then
   sheets(Feuill2").range("M17")=target.value
end if

pat66 · 23 Mars 2023

bonjour

ok merci mais je ne sais pas tester la cellule Feuil1 D52 parce pour l'instant le msgbox s'affiche qu'elle que soit la cellule modifiée
Je vais vous envoyer un classeur

merci

AtTheOne · 23 Mars 2023

EDIT : Pas vu le post de @vgendron, pb de rafraichissement
Bonsoir à toutes & à tous,
bonsoir @pat66
Une solution qui ne propose qu'une fois la modification avec 2 noms définis :
OldVal (l'ancienne valeur de la cellule D52 de la feuil1)
Proposé (O ou N, selon que le changement a été proposé ou non)
Code de Feuil1 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
     Set Source = Me.[D52]
     If Intersect(Target, Source) Is Nothing Then Exit Sub
     If [OldVal] <> Source.Value Then
          With ThisWorkbook
               .Names("OldVal").RefersTo = Source.Value
               .Names("Proposé").RefersTo = "N"
          End With
     End If
End Sub

Code de Feuil2 ;

VB:

Private Sub Worksheet_Activate()
     Set Cible = Me.[M17]
     Set Source = Feuil1.[D52]
     If Cible.Value <> Source.Value And [Proposé] = "N" Then
          rép = MsgBox("Valeur modifiée" & vbCrLf & Chr(9) & _
                        "ancienne = """ & Cible.Value & """" & vbCrLf & Chr(9) & _
                        "nouvelle = """ & Source.Value & """" & vbCrLf & _
                        "Appliquer le changement ?", vbYesNo)
          If rép = vbYes Then
               Cible.Value = Source.Value
          Else
               ThisWorkbook.Names("Proposé").RefersTo = "O"
          End If
     End If
End Sub

Voir la pièce jointe
Bon courage

pat66 · 24 Mars 2023

Bonjour à toutes & à tous,
bonjour vgendron
bonjour AtTheOne,

Quelle expertise !!!, j'ai testé votre fichier c'est exactement ce dont il me fallait, merci
Je vais l'adapter à mon classeur, je reviens vers vous
Votre générosité vous honore à tous les 2 !
un grand merci à vous

Pat66

XL 2019 Afficher msgbox et si la valeur d'une cellule a changé sur une autre feuille

pat66

XLDnaute Impliqué

AtTheOne

vgendron

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires