Automatiser le changement d'une cellule

[TheProdigy]

Bonjour tout le monde.

Et merci pour votre première lecture de mon message. J'ai essayé de vous éclaircir au maximum mon petit problème dans le fichier.

Je souhaiterais qu'à chaque changement de la cellule B3 l'ancienne date s'enregistre automatiquement dans C7 & la nouvelle date s'enregistre automatiquement dans D7.

Prière de consulter mon fichier ci-joint!

Merci pour votre collaboration.

 

[pierrejean]

Re : Automatiser le changement d'une cellule

re

teste cette formule

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

Je ne vois pas la formule Elle est où?

 

[pierrejean]

Re : Automatiser le changement d'une cellule

re

il n'y a pas de formule

tout est traité en VBa

1) dans la feuille

2)dans le work open

as-tu testé en liant a l'autre fichier par L1 et L2

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

J'essaierai chez moi je dois quitter je vous informerai ce soir de chez moi Merci infiniement

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

Oui. ça marche Merci Pierre
Par contre pourquoi vous mettez

If Target.Address = "$B$3" Then au lieu de If Target.Address = "B3" Then

Je pose cette question car je suis débutant

 

[pierrejean]

Re : Automatiser le changement d'une cellule

re

parceque c'est ainsi qu'est notée la propriété .Address

par defaut la notation est la notation absolue

pour avoir B3 il faudrait ecrire .Adress(0,0)

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

Merci infiniment votre solution est répond parfaitment à mon problème. Merci infiniment

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

Rebonjour à tous,

Comment scinder les deux auto open suivants en un seul auto open?

Private Sub Workbook_Open()
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = xlVeryHidden
Next N
Feuil1.ScrollArea = "b3"
End Sub
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre L1 et B3
If Range("B3").Value <> Range("L1").Value Then
'si difference changement de B3 et B4
' qui entrainera les changements en D8 C8 D7 C7
Sheets("Feuil1").Range("B3") = Sheets("Feuil1").Range("L1")
Sheets("Feuil1").Range("B4") = Sheets("Feuil1").Range("L2")
End If
End Sub

Merci

 

[pierrejean]

Re : Automatiser le changement d'une cellule

bonjour adilprodigy

a premiere vue:

Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre L1 et B3
If Range("B3").Value <> Range("L1").Value Then
'si difference changement de B3 et B4
' qui entrainera les changements en D8 C8 D7 C7
Sheets("Feuil1").Range("B3") = Sheets("Feuil1").Range("L1")
Sheets("Feuil1").Range("B4") = Sheets("Feuil1").Range("L2")
End If
 
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = xlVeryHidden
Next N
Feuil1.ScrollArea = "b3"
 
 
End Sub

 

[Gorfael]

Re : Automatiser le changement d'une cellule

Rebonjour à tous,

Comment scinder les deux auto open suivants en un seul auto open?

Private Sub Workbook_Open()
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = xlVeryHidden
Next N
Feuil1.ScrollArea = "b3"
End Sub
Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre L1 et B3
If Range("B3").Value <> Range("L1").Value Then
'si difference changement de B3 et B4
' qui entrainera les changements en D8 C8 D7 C7
Sheets("Feuil1").Range("B3") = Sheets("Feuil1").Range("L1")
Sheets("Feuil1").Range("B4") = Sheets("Feuil1").Range("L2")
End If
End Sub

Merci

Salut
l'instruction :
If Range("B3").Value <> Range("L1").Value Then
ne concerne que "Feuil1" ou toutes les feuilles ?

Private Sub Workbook_Open()
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = xlVeryHidden
Next N
Sheets("Feuil1").activate
ScrollArea = "b3"
If Range("B3").Value <> Range("L1").Value Then
Range("B3") = Range("L1")
Range("B4") = Range("L2")
End If
End Sub

A+

 

[TheProdigy]

Re : Automatiser le changement d'une cellule

Meme si j'ai

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim N As Integer
For N = 2 To Sheets.Count
Sheets(N).Visible = xlVeryHidden
Next N
End Sub

Private Sub Workbook_Open()
' a l'ouverture du fichier
'comparaison entre L1 et B3
If Range("B3").Value <> Range("L1").Value Then
'si difference changement de B3 et B4
' qui entrainera les changements en D8 C8 D7 C7
Sheets("Feuil1").Range("B3") = Sheets("Feuil1").Range("L1")
Sheets("Feuil1").Range("B4") = Sheets("Feuil1").Range("L2")
End If
End Sub

Merci