Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour.
Non testé :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < DernierJour +1 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Cordialement.
Daniel
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour.
Non testé :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < DernierJour +1 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Cordialement.
Daniel
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: ED84BC7D-8CCF-4D4F-99E3-1020279AAFF9@microsoft.com...
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour.
Non testé :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < DernierJour +1 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Cordialement.
Daniel
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
jusqu'à b34
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
jusqu'à b34
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: ED84BC7D-8CCF-4D4F-99E3-1020279AAFF9@microsoft.com...
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
jusqu'à b34
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")
jusqu'à b34
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uP%23HNVcaGHA.4060@TK2MSFTNGP02.phx.gbl...
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: ED84BC7D-8CCF-4D4F-99E3-1020279AAFF9@microsoft.com...
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours (de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message
de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:
Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")
jusqu'à b34
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uP%23HNVcaGHA.4060@TK2MSFTNGP02.phx.gbl...
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message
de
news: ED84BC7D-8CCF-4D4F-99E3-1020279AAFF9@microsoft.com...
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message
de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
Amha mais c'est très à priori
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
suggestion:
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message
de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
Amha mais c'est très à priori
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
suggestion:
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:
Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")
jusqu'à b34
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uP%23HNVcaGHA.4060@TK2MSFTNGP02.phx.gbl...
Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message
de
news: ED84BC7D-8CCF-4D4F-99E3-1020279AAFF9@microsoft.com...
Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
Amha mais c'est très à priori
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
suggestion:
Bonjour,
Le problème c'est que je dois Cacher les lignes car
je n'ai pas que 1 résultat sur 1 cellule mais 14 colonnes avec 14 formules
différentes dont ce genre là
=SI('1'!J34=7;"Di";SI('1'!J34=6;"Sa";SI('1'!J34=5;"Ve";SI('1'!J34=4;"Je";SI('1'!J34=3;"Me";SI('1'!J34=2;"Ma";SI('1'!J34=1;"Lu")))))))
=ET(SI(JOUR(AUJOURDHUI())³4;1);SI(MOIS(AUJOURDHUI())=L34;1))
etc... (ce qui fait 4*366 formules à modifier) car les formules sont
toutes
différences en fonction du jour .... oui je sais.
voilà ma macro mais now elle marche le seul problème c 'est que je
voudrais
que ce soit que si la cellule E3 qui change qu elle se lance, sinon elle
ne
fait rien
autre ptit truc elle bug, elle m affiche soit 31 jours, soit 28 jours....
mais pas 30 ou 29 ///
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet, rw
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B35").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
'For Each rw In sht.Rows
' If rw.Row > 34 Then
' Exit For
' End If
' If rw.Row > 3 Or rw.Row < DernierJour + 3 Then
' rw.Hidden = False
' End If
' If rw.Row > 31 And DernierJour + 3 < 34 Then
' For i = DernierJour + 3 To 34
' rw.Hidden = True
' Next i
' End If
'Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
"lSteph" wrote:Pardon tu partais de la date en b4 donc en b5:
=SI(B4<>"";SI(MOIS(B4+1)=MOIS(B4);B4+1;"");"")jusqu'à b34
"lSteph" a écrit dans le message de news:
uP%Bonjour,
Au cas où, tu n'es pas obligé de cacher les lignes
pour faire cela (il suffit de mettre rien si ce n'est plus le bon mois
et idem pour les formules en ligne s'il n'y a pas de date en b)
exemple premier jour date du mois en b4 la formule en b5 recopiée vers
bas
jusqu'à b33
=SI(B3<>"";SI(MOIS(B3+1)=MOIS(B3);B3+1;"");"")
Cordialement
lSteph
"Sanaell" a écrit dans le message
de
news:Bonjour, suite au conseil de Ange Ounis (merci encore)
Voici ma macro (la sienne modifiée)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernierJour, sht As Worksheet
DernierJour = Day(DateSerial(Year(Date),
Sheets("Configuration").Range("B8").Value + 1, 0))
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Visible = True
' For Each rw In sht.Rows
' If rw.Row > 3 Or rw.Row < 35 Then
' rw.Hidden = False
' End If
' Next rw
Next sht
If DernierJour <> 31 Then
For i = DernierJour + 1 To 31
Sheets(Format(i, "00")).Visible = False
Next i
End If
End Sub
Voici ce que j'aimerais
Sachant que dans les 31 onglets j'ai les 31 lignes de chaques jours
(de
la
ligne 4 à 34), je voudrais que les jours 29 à 31 soit cachés s'il ne
correspondent pas au mois
...
Février = 28 jours en 2006
donc les lignes 32 - 33 - 34 seront cachées dans chaques feuille du
document
(y compris les feuilles cachées)
Merci d'avance.
