Selectionner "A2" dans Private Sub Worksheet

Bonjour à tous et toutes.
Comment devrais-je m'y prendre pour faire exécuter cette opération
uniquement lors du changement de la date en cellule [date].
Actuellement, a chaque fois que j'exécute un doubleclick, où que je me
trouve sur la feuille, le code s'exécute et m'efface mon database.
Voici mon code actuel.
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As
Boolean)
    [Date].Select
    [database].ClearContents
End Sub

Private Sub Worksheet_change(ByVal Target As Range)
Static I As Integer
I = I + 1
If I = 1 Then

    Application.ScreenUpdating = False
        [mois].ClearContents
        [Date].Copy
        [jour1].PasteSpecial Paste:=xlPasteValues
        [jour2].FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1] )+1,0)"
        nb = [jour2].Value - [jour1].Value + 1
        [jour2].FormulaR1C1 = "=RC[-1]+1"
        [jour2].Copy Range([jour2], [jour2].Offset(0, nb - 2))
        Application.CutCopyMode = False
        [mois].Copy
        [mois].PasteSpecial Paste:=xlPasteValues
        Columns("b:Af").EntireColumn.AutoFit
        I = 0
        End If
    Range("b4").Select

End Sub
--
Merci d'avance pour toute aide
Christian

On 22 fév, 11:23, Christian <Christ...@discussions.microsoft.com>
wrote:

Bonjour à tous et toutes.
Comment devrais-je m'y prendre pour faire exécuter cette opération
uniquement lors du changement de la date en cellule [date].
Actuellement, a chaque fois que j'exécute un doubleclick, où que je me
trouve sur la feuille, le code s'exécute et m'efface mon database.
Voici mon code actuel.
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As
Boolean)
[Date].Select
[database].ClearContents
End Sub

Private Sub Worksheet_change(ByVal Target As Range)
Static I As Integer
I = I + 1
If I = 1 Then

Application.ScreenUpdating = False
[mois].ClearContents
[Date].Copy
[jour1].PasteSpecial Paste:=xlPasteValues
[jour2].FormulaR1C1 = "ÚTE(YEAR(RC[-1]),MONTH(RC[-1])+1,0)"
nb = [jour2].Value - [jour1].Value + 1
[jour2].FormulaR1C1 = "=RC[-1]+1"
[jour2].Copy Range([jour2], [jour2].Offset(0, nb - 2))
Application.CutCopyMode = False
[mois].Copy
[mois].PasteSpecial Paste:=xlPasteValues
Columns("b:Af").EntireColumn.AutoFit
I = 0
End If
Range("b4").Select

End Sub
--
Merci d'avance pour toute aide
Christian

Salut Christian

Je ne sais pas quelle est cette cellule
Mais pour la cellule A1 tu pourrais mettre en début et fin de code
ceci :

If Target.Address = Range("A1").Addresse
Ton code
End If

A adapter en fonction de ta cellule

Celà devrait convenir

Dis moi !!!!