Afficher l'adresse derrnière cellule de la ligne

Relth -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je suis novice en programmation VBA et je sollicite votre aide pour une petite question:

J'ai un tableau avec énormément de ligne de longueur hétérogène.
Au début de chaque ligne, j'aimerai le numéro de colonne de la dernière cellule cette ligne.

J'ai pensé utiliser la fonction ci-dessous en y intégrant la commande de sélection de la dernière cellule sur la droite.

ActiveCell.FormulaR1C1 = "=CELL(""colonne"", )"
Selection.End(xlToRight).Select

Mais je ne sais pas comment fusionner ces deux morceaux de code..

D'avance merci.

3 réponses

  1. Relth
     
    Merci beaucoup pour la piste.

    J'ai donc essayé, ceci:

    Pour trouve la dernière valeur de la ligne 14

    Validation matricielle Ctrl + Maj + Enter
    =INDEX(14:14;MAX(COLONNE(15:15)*(14:14<>"")))

    Cependant ça reste un peu long, car il faut valider cellule par cellule.
    0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Si ta colonne B est remplie jusqu'en bas et la colonne A libre pour le résultat :
    Dim lig As Long
    For lig = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        Cells(lig, "A") = Cells(lig, Columns.Count).End(xlToLeft).Column
    Next lig

    eric
    0