Chr(10) est effectivement le retour mais pas le retour à la ligne suivante.
c'est le retour au debut de la ligne en cours.
il faut l'associer au caractere chr(13) qui est le saut de ligne, pour passer à la ligne suivante.
c'est décomposé, comme sur les vielles machines à écrire, retour chariot, saut de ligne... nostalgie... Knowledge is power.

Bonjour tout le monde,
svp je suis en stage actuellement et mon boss m'a demandée de faire un programme assez élaboré :s:s en vba alors que je ne m'y connais pas du tout....comment devrais-je commencer pr un démarrage efficace sachant que je n'ai pas bcp de temps...
Au secours pleaaaaaaaaaase

Bonjour,

la valeur entre parenthèse de chr() est le code ascii des caractères. Tu peux trouver la liste des codes ascii sur le net en tapant dans un moteur de recherche : code ascii.
Tu peux aussi utiliser en VBA les codes suivants:
vbCrLf Chr(13) + Chr(10) Combinaison des caractères de retour chariot et de saut de ligne
vbCr Chr(13) Caractère de saut de paragraphe
vbLf Chr(10) Caractère de saut de ligne

;o)

polux

Si tu as trouvé alors il serait bon de mettre le problème en résolu ... merci

En fait, j'ai des notions de programmation, j'ai déjà programmé en pascal (oui je sais c'est dépassé :p) mais aussi une fois en vb mais c'était un petit programme...mnt on m'a dit qu'il fallait juste s'y mettre et c'est pas difficile mais le problème c'est que je suis perdue dans tout ce qu'il y a sur le net...j'ai deux semaines devant moi avant de rendre le projet...
merci de bien vouloir me filer un tuyau pour y arriver

Merci de vouloir m'aider
alors le projet: pricing d'options en vba et simulations monte carlo
c'est classique apparemment, NN?

Jamais entendu parlé :-s

Jai un probleme avec mon calendrier il y a deux fois le meme nombre qui revien a la 4 et 5 ieme ligne voila la code

Private Sub Workbook_Open()
Range("I1").Value = Range("H1").Value
Range("A7:G7").Select
Selection.ClearContents
Range("A11:G12").Select
Selection.ClearContents
'
Jour = Range("K26").Value
Cells(7, Jour).Value = 1
Temporaire = 2
For Journee = (Jour + 1) To 7
    Cells(7, Journee).Value = Temporaire
    Temporaire = Temporaire + 1
Next Journee
'
JourDebut = Range("G10").Value
JourFinMois = Range("M17").Value
Do While True
    For Boucle1 = 1 To 7
        If JourDebut > JourFinMois Then
            Exit Do
        Else
            Cells(11, Boucle1).Value = JourDebut ' appartire d'ici sa bogue
            JourDebut = JourDebut + 1
        End If
    Next Boucle1
    For Boucle2 = 1 To 3
        If JourDebut > JourFinMois Then
            Exit Do
        Else
            Cells(12, Boucle2).Value = JourDebut
            JourDebut = JourDebut + 1
        End If
    Next Boucle2
Loop
End Sub

Bonjour,

Peux tu mettre ton fichier ici avec cjoint.com et coller le lien pour que je puisse y jeter un oeil stp.

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

Voila
http://cjoint.com/?hcoaGWSRE1

Salut,

Pas mal ton truc ... mais il existe le DTPicker :D

Range("I1").Value = Range("H1").Value
Range("A7:G7").Select
Selection.ClearContents
Range("A11:G12").Select
Selection.ClearContents
'
jour = Range("K26").Value
Cells(7, jour).Value = 1
Temporaire = 2
For Journee = (jour + 1) To 7
    Cells(7, Journee).Value = Temporaire
    Temporaire = Temporaire + 1
Next Journee
'
JourDebut = Range("G10").Value + 1  '<----- j'ai ajouté 1 à la valeur de la date de début ;o)
JourFinMois = Range("M17").Value
Do While True
    For Boucle1 = 1 To 7
        If JourDebut > JourFinMois Then
            Exit Do
        Else
            Cells(11, Boucle1).Value = JourDebut
            JourDebut = JourDebut + 1
        End If
    Next Boucle1
    For Boucle2 = 1 To 3
        If JourDebut > JourFinMois Then
            Exit Do
        Else
            Cells(12, Boucle2).Value = JourDebut
            JourDebut = JourDebut + 1
        End If
    Next Boucle2
Loop