Ligne en colonne (vba)

Résolu
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   -  
 Maurice -
Bonjour à tous

Je souhaiterai afficher les résultats de cette macro sur une colonne .
je voius joins le fichier test (merci à l'auteur)

Bien à vous
http://www.cjoint.com/c/ELbqBdcHmiA


A voir également:

7 réponses

Réponse 1 / 7
Maurice
 
Bonjour
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
0
Réponse 2 / 7
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0
Réponse 3 / 7
Maurice
 
Bonjour
J'ais changer la macro
http://www.cjoint.com/c/ELbt5WClqyA

A+
Maurice
0
Réponse 4 / 7
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   33
 
Bonjour

Merci les gars. Toutes les solutions fonctionnent à merveille

c'est sympa.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   33
 
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
0
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   33
 
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
0
Réponse 6 / 7
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   33
  
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
0
Réponse 7 / 7
Maurice
 
Bonjour
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
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses