Selectionner "A2" dans Private Sub Worksheet

Le
Christian
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5241501
On 22 fév, 11:23, Christian 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 !!!!

Christian
Le #5241031
Bonsoir François
Merci pour m'avoir lu, répondu et donné la solution.
Cela fonctionne admirablement.
--
Cordialement
Christian



On 22 fév, 11:23, Christian 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 !!!!




Publicité
Poster une réponse
Anonyme