Ligne pré rempli
Le
syleg35
Bonjour à tous ;
En règle générale, j’arrive à trouver mon besoin dans le forum, m=
ais là pas assez compétent !
Dans le fichier ci-joint j’aurais souhaité dans la feuille planning, av=
oir une macro ou un code dans module de feuille pour quand je rempli mon ta=
bleau pour une nouvelle année que sur chaque ligne dimanche soit déjà=
pré rempli « magasin fermé »
Éventuellement une macro me pré rempli cette ligne dimanche « magasin=
fermé »
Merci à vous bonne journée.
http://cjoint.com/?0Ekl1M2tADf
En règle générale, j’arrive à trouver mon besoin dans le forum, m=
ais là pas assez compétent !
Dans le fichier ci-joint j’aurais souhaité dans la feuille planning, av=
oir une macro ou un code dans module de feuille pour quand je rempli mon ta=
bleau pour une nouvelle année que sur chaque ligne dimanche soit déjà=
pré rempli « magasin fermé »
Éventuellement une macro me pré rempli cette ligne dimanche « magasin=
fermé »
Merci à vous bonne journée.
http://cjoint.com/?0Ekl1M2tADf
Sub test()
Dim Ligne As Long
With Sheets("Planning")
Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To Ligne
Var = Application.Weekday(.Cells(i, 1))
If Application.Weekday(.Cells(i, 1)) = 1 Then
Cells(i, 5).Resize(, 2).Value = "Magasin fermé"
End If
Next i
End With
End Sub
Cordialement.
Daniel
Vous pouvez :
1) soit utiliser une macro (liée éventuellement à un bouton sur la
feuille) qui va renseigner "Magasin Fermé" dans les colonnes voulues
pour les lignes des Dimanches.
2) soit utiliser une macro événementielle, sur l'événement "Change"
de la feuille (événement qui s'exécute dès que la valeur d'une
cellule change du fait de l'utilisateur)
Dans les deux cas vous devrez enregistrer votre classeur dans un format
supportant les macros (.xlsm ou .xlsb au lieu de .xlsx)
Ainsi dans l'éditeur VBA dans la feuille "Planning" :
_______________________________________
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range ' le "curseur"
On Error GoTo fin
Application.EnableEvents = False
For Each c In Range("A" & Target.Row & ":A" & Target.Row +
Target.Rows.Count)
If Weekday(c.Value, vbSunday) = vbSunday Then
c.Offset(0, 4) = "Magasin Fermé"
c.Offset(0, 5) = "Magasin Fermé"
End If
Next c
fin:
Application.EnableEvents = True
End Sub
_______________________________________________
Ainsi si vous recopiez vers le bas par exemple la formule
=L[-1]C+1 pour avoir la date du jour suivant
les "Magasin fermés" seront automatiquement renseignés en vis
à vis de la zone que vous aurez recopié.
Si vous entrez les dates à la main, il en est de même.
Cdt.
+1
Prend en compte les jours fériés et surprime la validation dans les cellules concernées
'-----------------
Sub JJ()
Dim c As Range
With Feuil1
For Each c In .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
If Weekday(c) = 1 Or IsNumeric(Application.Match(c, [Férié], 0)) Then
With .Range(Cells(c.Row, 5), Cells(c.Row, 6))
.Value = "Magasin fermé"
.Validation.Delete
End With
End If
Next
End With
End Sub
'------------------
--
Salutations
JJ
Bonjour à tous ;
En règle générale, j’arrive à trouver mon besoin dans le forum, mais là pas assez compétent !
Dans le fichier ci-joint j’aurais souhaité dans la feuille planning, avoir une macro ou un code dans module de
feuille pour quand je rempli mon tableau pour une nouvelle année que sur chaque ligne dimanche soit déjà pré
rempli « magasin fermé »
Éventuellement une macro me pré rempli cette ligne dimanche « magasin fermé »
Merci à vous bonne journée.
http://cjoint.com/?0Ekl1M2tADf
Merci pour vos réponse bonne journée
merci pour ta réponse le code fonctionne
mais saurais tu me dire pourquoi ta réponse s'affiche avec des erreurs de police et pas celle de DanielCo
aussi bien sur Chrome que sur Explorer !
voir fichier joint
http://cjoint.com/?0EkpguBOex5
Le vendredi 10 mai 2013 13:28:04 UTC+2, Jacky a écrit :
Non, pas la moindre idée
Je pense au codage du lecteur de news(j'utilise ie8 'unicode utf-8')
Si quelqu'un a une solution, je suis preneur
--
Salutations
JJ
Bonjour Jacky
merci pour ta réponse le code fonctionne
mais saurais tu me dire pourquoi ta réponse s'affiche avec des erreurs de police et pas celle de DanielCo
aussi bien sur Chrome que sur Explorer !
voir fichier joint
http://cjoint.com/?0EkpguBOex5
Le vendredi 10 mai 2013 13:28:04 UTC+2, Jacky a écrit :