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
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 !!!!
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 = "=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
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
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
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 !!!!
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 <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
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