I
IenchGaleu
Guest
Bonjour à tous!
Voila, je souhaite comprendre comment parcourir des lignes de façon un peu plus optimisé qu'aujourd'hui.
Par exemple voici ce code:
Comme vous pouvez voir, je parcoure la ligne en incrémentant la valeur de la lettre (A/B/C...). Le problème est que si je devais arrivé à "AA", cela ne fonctionnerai plus, et la gestion de ces cas est un poile trop compliqué.
Ma question est donc, comment faites vous pour parcourir une ligne exactement comme dans le code que je vous est montré mais de façon plus professionnelle.
Merci d'avance pour votre aide!
Voila, je souhaite comprendre comment parcourir des lignes de façon un peu plus optimisé qu'aujourd'hui.
Par exemple voici ce code:
Code:
Function WriteLigne(ByVal Name As String, ByVal Ligne As Integer, ByRef Place As Integer) As Integer
Dim Plage1 As String
Dim Plage2 As String
Dim Size As Integer
Size = Application.CountA(Range("1:1"))
For x = 1 To Size
Plage1 = Chr(65 + (x - 1)) & Place
Plage2 = Chr(65 + (x - 1)) & Ligne
Workbooks("Repertoire.xlsm").Worksheets("Feuil1").Range(Plage1) = Range(Plage2)
Next x
End FunctionComme vous pouvez voir, je parcoure la ligne en incrémentant la valeur de la lettre (A/B/C...). Le problème est que si je devais arrivé à "AA", cela ne fonctionnerai plus, et la gestion de ces cas est un poile trop compliqué.
Ma question est donc, comment faites vous pour parcourir une ligne exactement comme dans le code que je vous est montré mais de façon plus professionnelle.
Merci d'avance pour votre aide!