Discussion :

[rzXbrain]

Bonjour,

J'essaie tant bien que mal de trouver une formule (autre que VBA) me permettant d'obtenir la dernière cellule remplie sur une ligne EXCEL.
J'ai bien trouvé plusieurs réponse, mais aucune ne semble fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
=INDEX(A:A,MAX((A:A<>"")*(ROW(A:A))))
=LOOKUP(2,1/(A:A<>""),A:A)
=LOOKUP(2,1/(A1:A65535<>""),A1:A65535)
=ADDRESS(MATCH(INDEX(C:C,MAX(IF(C:C<>"",ROW(C:C)-ROW(C1)+1)),1),C:C,0),COLUMN(C:C))

Mes colonnes vont de A à G et mes lignes de 1 à 15955.
J'aimerai pouvoir rajouter dans la colonne H la dernière cellule remplie trouver sur la ligne de la colonne A à G.

Auriez-vous une solution?

[Menhir]

En VBA c'est très simple mais en macro Excel pur, il n'y a plus grand monde qui pratique.

Ce n'est certainement pas ce que tu veux entendre mais je te garantis que se mettre au VBA est un investissement très rentable.

[excfl]

Bonsoir le forum,

Quelques formules dont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIGNE(INDEX(A1:A20000;SOMMEPROD(MAX((A1:A20000<>"")*(LIGNE(A1:A20000))))))

A tirer vers la droite.

Les cellules ne sont pas matricielles et peuvent contenir des données alphanumériques.

excfl

[Renyeu]

Bonsoir à tous,
Un essai en pièce jointe à tester.
Cdlt
Renyeu

[rzXbrain]

Bonsoir,

@excfl :
Cette formule permet de trouver la dernière cellule remplie dans une colonne et non pas dans une ligne.

@Renyeu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(AG;1;NBVAL(AG))

Marche impec, sauf si l''une des case sur la ligne est vide, à ce moment là le résultat est faussé et malheureusement dans mon cas, une cellule vide est une possibilité.
Mais au pire s'agira simplement de remplir les cases vides et ça passera.
Reste à voir si je n'ai pas a trouver d'équivalent pour un excel anglais. Mais ça je testerais demain au boulot.

Du coup j'ai testé le VBA, j'ai fait un test concluant, néanmoins je ne trouve pas cela hyper pratique comparé aux macro excel pur.
D'ailleurs y a t'il moyen de créée une macro que l'on rentre directement dans la cellule pour faire appel à sa formule VBA?
Je n'ai pas trouvé de réponse par rapport à cela mais je n'ai peut être pas chercher avec les bon mot clé aussi.

Je mettrais demain ma formule VBA si cela peut être utile pour quelqu'un.

P.S. Merci pour votre aide^^

[Renyeu]

Re Bonsoir,
En pj un nouveau test qui semble fonctionner...
Cdlt
Renyeu

[Menhir]

Du coup j'ai testé le VBA, j'ai fait un test concluant, néanmoins je ne trouve pas cela hyper pratique comparé aux macro excel pur.

C'est une question d'habitude. Moi aussi j'ai fait cette migration il y a ... longtemps. Et je ne le regrette pas.

D'ailleurs y a t'il moyen de créée une macro que l'on rentre directement dans la cellule pour faire appel à sa formule VBA?

Ca dépend ce que tu veux faire.
Il y a de nombreuses façon de faire appelle à une macro VBA.

Tu peux la décrire comme une fonction et, dans ce cas, tu pourras l'utiliser comme une autre fonction Excel (ou presque).

Tu peux l'associée à un bouton (ou même à un simple objet graphique qui servira de bouton) que tu peux placer dans ta feuille.

Tu peux l'associer à une icone dans ta barre d'outils à accès rapide (voir même dans un ruban si tu sais manipuler le XML).

Tu peux l'associer à un évènement, par exemple la validation d'une cellule, le recalcul de la feuille ou son ouverture.

Bref, ça dépend de ce que tu souhaites en faire et de quelle façon tu souhaites qu'elle agisse.

[rzXbrain]

Avec un peu de retard, voila le code, si cela peut servir à quelqu'un.

là en l’occurrence il concatène dernière et premier colonnes a chaque ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
    Dim LastCol As Integer
    Dim NB_ROW As Integer
    Dim i As Integer
    i = ActiveCell.Row
    NB_ROW = Range("A" & Rows.Count).End(xlUp).Row
    While i <= NB_ROW
        With ActiveSheet
            LastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
        End With
        ActiveSheet.Cells(i, ActiveCell.Column) = Cells(i, LastCol) & "||" & Cells(i, 1)
        i = i + 1
    Wend
End Sub

Bon maintenant faut que je trouve comment le passer en tant que fonction à excel.

@renyeu :
Merci beaucoup pour ton aide, bien que cela marche dans le fichier envoyer, je n'arrive pas à le faire marcher au boulot.
Je ne maîtrise pas encore toutes les subtilités de excel je dois l'avouer.

[Menhir]

Petite amélioration de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub LastColumnInOneRow()
    'Find the last used column in a Row: row 1 in this example
    Dim LastCol As Integer
    Dim i As Integer
 
    For i = Row to Cells(Rows.Count,1).End(xlUp).Row
        LastCol = Cells(i, Columns.Count).End(xlToLeft).Column
        Cells(i,Column) = Cells(i, LastCol) & "||" & Cells(i, 1)
    Next i
 
End Sub

Petit détail : ton With est inutile car le ActiveSheet est implicite, donc on peut s'en passer.
Idem pour ActiveCell, comme le montre son absence (dans ton code) devant le Row du calcul de NB_ROW

Bon maintenant faut que je trouve comment le passer en tant que fonction à excel.

Ca dépend où est stock ta macro : dans le fichier que tu traites ? Dans un fichier qui se charge automatiquement à l'ouverture d'Excel ?

[rzXbrain]

Merci pour l'amélioration ^^

Actuellement la macro est chargé pour chaque nouveau fichier.

[Menhir]

Tu veux dire que tu la copies systématiquement d'un ancien fichier vers le nouveau fichier que tu veux traiter ?

Dans le gestionnaire de projet de ton éditeur VBA, tu dois avoir un fichier xlam (en standard, je crois que c'est PERSO.XLAM).
Tu cliques-droit dessus et tu sélectionnes Insertion > Module.
Dans le nouveau module créé, tu copie ta macro et tu sauvegarde.
Comme ce fichier XLAM s'ouvre automatiquement avec Excel, ta macro sera toujours disponible, quel que soit le classeur que tu ouvres.

Pour la rendre facilement accessible, tu fais un clic droit sur la barre d'outils à accès rapide et tu sélectionnes Personnaliser.
Dans la fenêtre qui s'ouvre, dans l'entête de la colonne de gauche, tu sélectionnes la catégorie "Macros".
Normalement, ta macro devrait apparaitre dans la liste du dessous.
Tu la sélectionnes et tu appuies sur le bouton Ajouter pour la faire passer dans ta barre d'outils.
Quand elle est dans la liste de droite, tu la sélectionnes et tu appuies sur Modifier pour lui mettre une belle icone qui la représentera et éventuellement un nom qui apparaitra en info-bulle.

Terminé. Ta macro sera disponible à tout moment par un simple clic sur cette icone de la barre d'outils.

[edelweisseric]

Bonsoir à Tous
Bonsoir rzXbrain

Si tu cherches l'adresse de la dernière cellule, essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CELLULE("adresse";INDEX(7:7;EQUIV(RECHERCHEH(INDEX(7:7;NBVAL(7:7));7:7;1);7:7;0) ))

Le 7 représente la ligne dans laquelle tu cherches. Si une cellule est vide, tu saisies un "espace" dedans.

Si la dernière cellule a une valeur (même avec des cellules vides), essaies ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ADRESSE(7;EQUIV(9^9;7:7))

Eric