selectionner la dernière cellule non vide dans une ligne( uniquement du texte )

[luc aubanelle]

bonjour,

je cherche une formule qui permet de selectionner en cellule A1 la dernière cellule non vide sur la ligne1

mon tableau s'étendra sur 60 colonnes et sur 300 lignes

il ny aura que du texte

merci d'avance

 

[@+Thierry]

Bonjour Luc, le Forum

Arf "une formule qui permet de selectionner en cellule A1 la dernière cellule non vide sur la ligne1" assez ambigu comme syntax, on va découper si tu veux bien.

1) "Une Formule"... Donc pas de Macro / VBA ?
2) "Permet de selectionner"... Une formule ne permet pas de "sélectionner", reporter les données oui ?


En VBA tu si veux on peut faire les deux...

Pour Sélectionner la Dernière Cellule vers la Droite sur la même Ligne que la Ligne de la Cellule Active :
Sub SelectLastCell()
Dim C As Integer, L As Integer
Dim Adresse As String

L = ActiveCell.Row
Adresse = Cells(L, 256).End(xlToLeft).Address

MsgBox "la Dernière Cellule non Vide de la Ligne " & L & " est " & Adresse
Range(Adresse).Select
End Sub


Pour Reporter les Données en Colonne "A" contenues dans la Dernière Colonne et sur la même Ligne que la Cellule Active :
Sub ReportLastCell()
Dim C As Integer, L As Integer
Dim Adresse As String

L = ActiveCell.Row
Adresse = Cells(L, 256).End(xlToLeft).Address

MsgBox "la Dernière Cellule non Vide de la Ligne " & L & " contient " & Range(Adresse).Value
Range("A" & L) = Range(Adresse)
End Sub

Faudrait juste être un peu plus détaillé...

Bonne Soirée
@+Thierry

 

[@+Thierry]

Arf le C As Integer n'est pas nécessaire ici sauf si tu as besoin du numéro de Colonne comme suit :
C = Cells(L, 256).End(xlToLeft).Column

Sorry
@+Thierry

 

[Monique]

Bonjour,

Une petite collection.
A vérifier, quand même.
Il n'y a que des formules matricielles, à valider en appuyant simultanément sur ctrl, maj et entrée.

N° de colonne de la dernière cellule non vide de la ligne 1
En A1 :
=MAX(SI(B1:IV1<>"";COLONNE(B1:IV1)))

Adresse de la dernière cellule non vide de la ligne 2
En A2 :
=ADRESSE(LIGNE();MAX(SI(B2:IV2<>"";COLONNE(B2:IV2))))

Contenu de la dernière cellule non vide de la ligne 3
En A3 :
=INDIRECT(ADRESSE(LIGNE();MAX(SI(B3:IV3<>"";COLONNE(B3:IV3)))))

N° de la dernière ligne non vide du tableau :
=MAX(SI(Tableau<>"";LIGNE(Tableau)))
Adresse de la dernière cellule non vide de cette ligne :
=ADRESSE(MAX(SI(Tableau<>"";LIGNE(Tableau)));MAX(SI((Tableau<>"")*(LIGNE(Tableau)=MAX(SI(Tableau<>"";LIGNE(Tableau))));COLONNE(Tableau)));4)

N° de la dernière colonne non vide du tableau :
=MAX(SI(Tableau<>"";COLONNE(Tableau)))
Pour jouer, sa ou ses lettres :
=GAUCHE(ADRESSE(1;MAX(SI(Tableau<>"";COLONNE(Tableau))));NBCAR(ADRESSE(1;MAX(SI(Tableau<>"";COLONNE(Tableau)))))-1)

Leur intersection (elle peut être vide !) :
=ADRESSE(MAX(SI(Tableau<>"";LIGNE(Tableau)));MAX(SI(Tableau<>"";COLONNE(Tableau))))