Visuel Basic

Résolu
humsi -  
Bonsoir,
les deux lignes suivantes permettent d'écrire de haut en bas :
ligne = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1
Sheets("feuil1").Cells(ligne, 1).Value = nom

quelle ligne peut permettre d'écrire de gauche à droite ?

cordialement,

2 réponses

  1.  f894009
    Bonjour,

    'pour la premiere "colonne" libre de la ligne 1
    P_C_L = Sheets("Feuil1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Sheets("feuil1").Cells(1, P_C_L).Value = "nom"

    Bonne suite