Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant :
J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une
feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de
chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement
remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un
peut'il m'aider???
Voila la macro affecté au bouton
Sub AHS1()
'
' AHS1 Macro
' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard
'
'
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS2()
Sheets("2").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS3()
Sheets("3").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Si tu veux mettre la date du jour dans la cellule O2 : [O2] = Date Cordialement. Daniel "GéGé" a écrit dans le message de news:
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant : J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un peut'il m'aider??? Voila la macro affecté au bouton Sub AHS1() ' ' AHS1 Macro ' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard '
' Sheets("1").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS2() Sheets("2").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS3() Sheets("3").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub
MERCI DE VOTRE AIDE
Bonjour.
Si tu veux mettre la date du jour dans la cellule O2 :
[O2] = Date
Cordialement.
Daniel
"GéGé" <GG@discussions.microsoft.com> a écrit dans le message de news:
377EB767-256D-40DA-B6DF-052EF16BDB94@microsoft.com...
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant :
J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et
une
feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de
chaque page j'ai une zone date (O2) que je desire qu'elle soit
imperativement
remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un
peut'il m'aider???
Voila la macro affecté au bouton
Sub AHS1()
'
' AHS1 Macro
' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard
'
'
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS2()
Sheets("2").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS3()
Sheets("3").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Bonjour. Si tu veux mettre la date du jour dans la cellule O2 : [O2] = Date Cordialement. Daniel "GéGé" a écrit dans le message de news:
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant : J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un peut'il m'aider??? Voila la macro affecté au bouton Sub AHS1() ' ' AHS1 Macro ' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard '
' Sheets("1").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS2() Sheets("2").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS3() Sheets("3").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub
MERCI DE VOTRE AIDE
Bernard AVÉANT
Slt GéGé
Je ne suis pas sur d'avoir compris ton prob. mais si cela peut t'aider...
Cells(1, 15).FormulaR1C1 = "Salut" 'Entre Salut dans O1 Cells(2, 15).FormulaR1C1 = "=TODAY()" 'Entre le jour dans O2 Cells(3, 15).Value = Date 'Entre le jour dans O3 Cells(4, 15).FormulaR1C1 = "=NO.SEMAINE(TODAY(),2)" 'Entre le numéro de semaine dans O4 Cells(5, 15) = "=""Semaine N° "" & NO.SEMAINE(TODAY(),2)" 'Entre "N° semaine" suivi du numéro de semaine dans O5 End Sub - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Si tu veux autre chose, n'hésites pas, j'ai rien d'autre a faire ! @+ Bernard
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant : J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un peut'il m'aider??? Voila la macro affecté au bouton Sub AHS1() ' ' AHS1 Macro ' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard '
' Sheets("1").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS2() Sheets("2").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS3() Sheets("3").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub
MERCI DE VOTRE AIDE
Slt GéGé
Je ne suis pas sur d'avoir compris ton prob. mais si cela peut t'aider...
Cells(1, 15).FormulaR1C1 = "Salut" 'Entre Salut dans O1
Cells(2, 15).FormulaR1C1 = "=TODAY()" 'Entre le jour dans O2
Cells(3, 15).Value = Date 'Entre le jour dans O3
Cells(4, 15).FormulaR1C1 = "=NO.SEMAINE(TODAY(),2)" 'Entre le numéro de
semaine dans O4
Cells(5, 15) = "=""Semaine N° "" & NO.SEMAINE(TODAY(),2)" 'Entre "N°
semaine" suivi du numéro de semaine dans O5
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - -
Si tu veux autre chose, n'hésites pas, j'ai rien d'autre a faire !
@+
Bernard
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant :
J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une
feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de
chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement
remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un
peut'il m'aider???
Voila la macro affecté au bouton
Sub AHS1()
'
' AHS1 Macro
' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard
'
'
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS2()
Sheets("2").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Sub AHS3()
Sheets("3").Select
ActiveWindow.SmallScroll Down:=-15
Range("O37:P37").Select
End Sub
Cells(1, 15).FormulaR1C1 = "Salut" 'Entre Salut dans O1 Cells(2, 15).FormulaR1C1 = "=TODAY()" 'Entre le jour dans O2 Cells(3, 15).Value = Date 'Entre le jour dans O3 Cells(4, 15).FormulaR1C1 = "=NO.SEMAINE(TODAY(),2)" 'Entre le numéro de semaine dans O4 Cells(5, 15) = "=""Semaine N° "" & NO.SEMAINE(TODAY(),2)" 'Entre "N° semaine" suivi du numéro de semaine dans O5 End Sub - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Si tu veux autre chose, n'hésites pas, j'ai rien d'autre a faire ! @+ Bernard
Je suis ss doute Nul !!!!.... Je n'arrive pas à résoudre le Pb suivant : J'ai crée un classeur avec 52 Feuilles (=les 52 Semaines de l'année) et une feuille menu avec 52 boutons de cde pour accès aux semaines..En en tête de chaque page j'ai une zone date (O2) que je desire qu'elle soit imperativement remplie avant de poursuivre la saisie.... Je n'y parviens pas. Quelqu'un peut'il m'aider??? Voila la macro affecté au bouton Sub AHS1() ' ' AHS1 Macro ' Macro enregistrée le 21/11/2005 par DESRONDIERS Gérard '
' Sheets("1").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS2() Sheets("2").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub Sub AHS3() Sheets("3").Select ActiveWindow.SmallScroll Down:=-15 Range("O37:P37").Select End Sub
MERCI DE VOTRE AIDE
JB
Bonjour,
En placant ce code dans une feuille protégée, la saisie dans E1:E10 ne peut se faire que si O2 est rempli:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$O$2" Then ActiveSheet.Unprotect Password:="" If Target.Value <> "" Then Range("E1:E10").Locked = False Else Range("E1:E10").Locked = True End If ActiveSheet.Protect Password:="" End If End Sub
Cordialement JB
Bonjour,
En placant ce code dans une feuille protégée, la saisie dans E1:E10
ne peut se faire que si O2 est rempli:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$2" Then
ActiveSheet.Unprotect Password:=""
If Target.Value <> "" Then
Range("E1:E10").Locked = False
Else
Range("E1:E10").Locked = True
End If
ActiveSheet.Protect Password:=""
End If
End Sub
En placant ce code dans une feuille protégée, la saisie dans E1:E10 ne peut se faire que si O2 est rempli:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$O$2" Then ActiveSheet.Unprotect Password:="" If Target.Value <> "" Then Range("E1:E10").Locked = False Else Range("E1:E10").Locked = True End If ActiveSheet.Protect Password:="" End If End Sub
On a accés à toute la feuille si la saisie a été faite en O2
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$O$2" Then 'déverrouillée If Target.Value <> "" Then ActiveSheet.Unprotect Else ActiveSheet.Protect End If End If End Sub
On a accés à toute la feuille si la saisie a été faite en O2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$2" Then 'déverrouillée
If Target.Value <> "" Then
ActiveSheet.Unprotect
Else
ActiveSheet.Protect
End If
End If
End Sub
On a accés à toute la feuille si la saisie a été faite en O2
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$O$2" Then 'déverrouillée If Target.Value <> "" Then ActiveSheet.Unprotect Else ActiveSheet.Protect End If End If End Sub
