Microsoft 365 reinitialisation de celulles

[MICHAEL]

Bonjour,
je souhaiterais réinitialiser des celulles lorsque que je supprime ou change la valeur de l'une d'elles.
ex: A1 (un nom)
b1,b2,b3 contiennent des valeurs.
lorsque je supprime ou change la valeur A1 les celulles b1,b2,b3 se reinitialise (vide) definitivement.
si quelqu'un pouvait me donner la formule.......
merci
cordialement

 

[Santulud]

Bonjour,

cela est possible par macro
un exemple en P.J

 

[MICHAEL]

bonjour,
merci de votre réponse, cela me convient tout a fait.
cependant serait il possible, dans la macro, de sauvegarder ces données dans un dossier X sur le bureau.(les données précédentes seraient conservées)

 

[Santulud]

si tu modifie comme suit, cela te fera une copie de sauvegarde

Private Sub Vérif()
Dim chemin, fichier As String
 
chemin = "C:\Ton Chemin\"   ' Indique le CHEMIN de ton répertoire
fichier = "Nom du fichier" & Format(Date, "yyyy-mm-dd") & ".xlsm"  ' indique le NOM de ton fichier

   If VarType(Range("a1")) = VarType(ValPrec) Then _
    If ValPrec = Range("a1") Then Exit Sub
    
ActiveWorkbook.SaveCopyAs chemin & fichier
    
Range("b1:d1").ClearContents
ValPrec = Range("a1")
End Sub

 

[MICHAEL]

bonsoir,
cela fonctionne en partie.
le probleme est que lorsque je change la valeur A1 (b1,c1,d1 se réinitialisent )et le fichier et bien sauvegardé
mais avec la nouvelle valeur A1 qui ne correspond plus à b1,c1,d1.
la premiere action à effectuer est de sauvegarder A1 avant la réinit si c'est possible bien sur.

 

[patricktoulon]

re
bonsoir j'ai l'impression que tu vois l'aller mais pas le retour
tu change A1 b1 b2 b3 se vide
deja la ona un soucis pour enregistrer ce qui etait avant
d'autre part
il faut gerer aussi les changement non vide de b1 b2 b3 sinon ta question n'a aucun sens

conclusion
le chemin que tu veux prendre n'est pas le bon
tu trouvera dans ce même forum(je crois l'avoir vu ) comment mémoriser simplement dans un commentaire a chaque changement que ce soit pour A1 b1 b2 b3
tu veux revenir en arrière tu repique la dernière ligne de commentaire

c'est bon tu la vois la lumière
a méditer

 

[MICHAEL]

c'est simple:
A1: le nom d'une personne.
b1,c1,d1 des informations le concernant.
lorsque je change de nom en A1, b1:d1 se reinitialisent.
et effectivement la sauvegarde est effectuée MAIS avec un nouveau nom en A1.
je vais voir cela....
quoiqu'il en soit je te remercie de ton aide et te souhaite une agréable soirée.
cordialement.

 

[eriiic]

Bonjour à tous,

pour remettre l'ancienne valeur et restaurer la nouvelle ensuite :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sav
    If Target.Address = "$A$1" And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        sav = [A1].Value
        Application.Undo
        If [A1].Value <> "" Then
            'enregistrer fichier
        End If
        [A1].Value = sav
        Application.EnableEvents = True
    End If
End Sub