explication code vba Résolu

Question

Bonjour,
Je ne comprend pas très bien le code   & chr(10) &
Voila mon code: 
Range("A1").Value = "ETAT DES DECISIONS" & Chr(10) & "DU __/__/2008 AU __/__/2008"
Je c'est que cela a pour fonction le retour à la ligne automatique, mais quand je change le numéro 10 qui est entre parenthése j'ai l'impression que cela fait une autre manipulation, quelqu'un pourrai me donner la liste des chiffres à mettre entre les parenthéses et ce que cela fait.
Et pourquoi le code est nommé Chr (est-ce l'abréviation de quelque chose ou est ce que sa ve dire quelque chose en anglais)
Merci d'avance pour votre aide et je suis débutant donc j'éspére que vous serez tolérant car la question à l'air un peu bête

Frappe Misere · Answer

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...

lilourose · Answer

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

Polux31 · Answer

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

Polux31 · Answer

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

lilourose · Answer

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

lilourose · Answer

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

Polux31 · Answer

jamais entendu parlé :-s

bobtipitt · Answer

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


Merci a bientot

Polux31 · Answer

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

bobtipitt · Answer

Voila
https://www.cjoint.com/?hcoaGWSRE1

Polux31 · Answer

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


Bonne continuation

;o)

Explication code vba

11 réponses

Discussions similaires

Newsletters