Ligne en colonne (vba)
Résolu/Fermé
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
-
1 déc. 2015 à 17:27
Maurice - 3 déc. 2015 à 12:08
Maurice - 3 déc. 2015 à 12:08
A voir également:
- Ligne en colonne (vba)
- Vente en ligne particulier - Guide
- Déplacer une colonne excel - Guide
- Partage de photos en ligne - Guide
- Hors ligne instagram - Guide
- Aller à la ligne excel - Guide
7 réponses
Bonjour
petit modife sur la macro
A+
Maurice
petit modife sur la macro
Sub Création_Calendrier()
' construit un calendrier dans une ligne
' choix de la cellule de départ par l'utilisateur
' choix des dates de début et fin de calendrier
Dim deb#, fin#, NbJours&, i As Date
Dim Cell As Range, Li&, Col%
On Error Resume Next
deb = Sheets("feuil4").Range("d2")
fin = Sheets("feuil4").Range("d4")
If Err <> 0 Then Exit Sub
Set Cell = Sheets("feuil1").Range("B5")
If Err <> 0 Then Exit Sub
' Li = Cell.Row: Col = Cell.Column
Col = 2
Li = 5
For i = deb To fin
Cells(Li, Col).Value2 = i
' pour surligner les samedis, dimanches et fériés
If TYPEJOUR(i) = 1 Or TYPEJOUR(i) = 2 Then _
Cells(Li, Col).Interior.ColorIndex = 15
Cells(Li, Col).NumberFormatLocal = "j"
' Col = Col + 1
Li = Li + 1
Next i
End Sub
A+
Maurice
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
1 déc. 2015 à 17:52
1 déc. 2015 à 17:52
Bonsoir,
dans le code création calendrier il te suffit de remplacer cette ligne
Col = Col + 1
par
Li = Li + 1
et dans le code Clear remplacer ces ligns
Sheets("Feuil1").Range("$B$5:$IV$5").ClearContents
Sheets("Feuil1").Range("$B$5:$IV$5").Interior.Color = xlColorIndexNone
par
Sheets("Feuil1").Range("$B$5:$B$500").ClearContents
Sheets("Feuil1").Range("$B$5:$B$500").Interior.Color = xlColorIndexNone
dans le code création calendrier il te suffit de remplacer cette ligne
Col = Col + 1
par
Li = Li + 1
et dans le code Clear remplacer ces ligns
Sheets("Feuil1").Range("$B$5:$IV$5").ClearContents
Sheets("Feuil1").Range("$B$5:$IV$5").Interior.Color = xlColorIndexNone
par
Sheets("Feuil1").Range("$B$5:$B$500").ClearContents
Sheets("Feuil1").Range("$B$5:$B$500").Interior.Color = xlColorIndexNone
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
2 déc. 2015 à 09:52
2 déc. 2015 à 09:52
Bonjour
Merci les gars. Toutes les solutions fonctionnent à merveille
c'est sympa.
Merci les gars. Toutes les solutions fonctionnent à merveille
c'est sympa.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
2 déc. 2015 à 18:57
2 déc. 2015 à 18:57
Bonsoir
Lorsque je mets le code dans worbook open il se déclenche sur la page active ( source de problème ) .
C'est surement du a la fonction associée.
Y aurait il un remède à ça.
C'est super code qui me sélectionne les jours fériés jusqu'en 2099. ( génial!!)
Merci à vous
Lorsque je mets le code dans worbook open il se déclenche sur la page active ( source de problème ) .
C'est surement du a la fonction associée.
Y aurait il un remède à ça.
C'est super code qui me sélectionne les jours fériés jusqu'en 2099. ( génial!!)
Merci à vous
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
2 déc. 2015 à 18:57
2 déc. 2015 à 18:57
Bonsoir
Lorsque je mets le code dans worbook open il se déclenche sur la page active ( source de problème ) .
C'est surement du a la fonction associée.
Y aurait il un remède à ça.?
C'est super code qui me sélectionne les jours fériés jusqu'en 2099. ( génial!!)
Merci à vous
Lorsque je mets le code dans worbook open il se déclenche sur la page active ( source de problème ) .
C'est surement du a la fonction associée.
Y aurait il un remède à ça.?
C'est super code qui me sélectionne les jours fériés jusqu'en 2099. ( génial!!)
Merci à vous
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
2 déc. 2015 à 19:13
2 déc. 2015 à 19:13
Sub Création_Calendrier()
' construit un calendrier dans une ligne
' choix de la cellule de départ par l'utilisateur
' choix des dates de début et fin de calendrier
Dim deb#, fin#, NbJours&, i As Date
Dim Cell As Range, Li&, Col%
On Error Resume Next
deb = Sheets("feuil4").Range("d2")
fin = Sheets("feuil4").Range("d4")
If Err <> 0 Then Exit Sub
Set Cell = Sheets("feuil1").Range("B5")
If Err <> 0 Then Exit Sub
' Li = Cell.Row: Col = Cell.Column
Col = 2
Li = 5
For i = deb To fin
Cells(Li, Col).Value2 = i
' pour surligner les samedis, dimanches et fériés
If TYPEJOUR(i) = 1 Or TYPEJOUR(i) = 2 Then _
Cells(Li, Col).Interior.ColorIndex = 15
Cells(Li, Col).NumberFormatLocal = "j"
' Col = Col + 1
Li = Li + 1
Next i
End Sub
Bonjour
Modife de la macro si j'ais bien compris
A+
Maurice
Modife de la macro si j'ais bien compris
Sub Création_Calendrier()
' construit un calendrier dans une ligne
' choix de la cellule de départ par l'utilisateur
' choix des dates de début et fin de calendrier
Dim Deb#, Fin#, NbJours&, I As Date
Dim Cell As Range, Li&, Col%
Sheets("feuil1").Select
Range("B5:B" & Rows.Count).ClearContents
Range("B5:B" & Rows.Count).Interior.ColorIndex = xlNone
On Error Resume Next
Deb = Sheets("feuil4").Range("D2")
Fin = Sheets("feuil4").Range("D4")
If Err <> 0 Then Exit Sub
Set Cell = Sheets("feuil1").Range("B5")
If Err <> 0 Then Exit Sub
' Li = Cell.Row: Col = Cell.Column
Col = 2
Li = 5
For I = Deb To Fin
Cells(Li, Col).Value2 = I
Cells(Li, Col).Interior.Color = xlColorIndexNone
Cells(Li, Col).NumberFormatLocal = "j"
' pour surligner les samedis, dimanches et fériés
If TYPEJOUR(I) = 1 Or TYPEJOUR(I) = 2 Then Cells(Li, Col).Interior.ColorIndex = 15
' Col = Col + 1
Li = Li + 1
Next I
End Sub
A+
Maurice
