Recherche ligne et colonne maxi

[marmotte18]

Bonjour,

Supposons que j'ai des données qui se mettent n'importent où sur ma feuille Excel

Le problème est de trouver le plus simplement possible :

• le N° de ligne le plus élevé qui comporte une donnée
• le N° de colonne le plus élevé qui comporte une donnée

NB : à l'intersection de cette ligne et de cette colonne, il n'y a pas obligatoirement de donnée.


Merci par avance

 

[Tibo]

Re : Recherche ligne et colonne maxi

Bonsoir,

Un essai avec formules matricielles à placer en dehors de la zone à tester :

Pour la ligne :

=MAX((A1:IV50<>"")*LIGNE(A1:IV50))

pour la colonne :

=MAX((1:15<>"")*COLONNE(1:15))

Formules matricielles à valider par CTRL + MAJ + ENTREE

Je te laisse tester

@+

 

[skoobi]

Re : Recherche ligne et colonne maxi

Bonjour marmotte18,
Tibo🙂,

si par macro ça t'intéresse:

msgbox activesheet.usedrange.specialcells(xlCellTypeLastCell).column
msgbox activesheet.usedrange.specialcells(xlCellTypeLastCell).row

 

[CB60]

Re : Recherche ligne et colonne maxi

Bonsoir
Regarde si c'est cela que tu recherche:

Sub Macro1()
    Selection.SpecialCells(xlCellTypeLastCell).Select
        With Selection
        MsgBox Selection.Address
    End With
    
End Sub

 

[job75]

Re : Recherche ligne et colonne maxi

Bonsoir marmotte,

Le plus simple ? Utiliser des fonctions macros Excel 4.0.

Définir (menu Insertion-Nom) le nom Derlig par la formule :

=LIRE.DOCUMENT(10)+INDIRECT("IV1")

puis le nom Dercol par :

=LIRE.DOCUMENT(12)+INDIRECT("IV1")

En entrant =Derlig et =Dercol dans 2 cellules, on obtient le résultat souhaité.

A noter que la fonction INDIRECT (qui est volatile) est utilisée ici pour forcer le recalcul des formules.

A+

Edit 1 : le temps de rédiger, plein de monde ! salut à tous 🙂

Edit 2 : en fait on obtient ainsi la position de la dernière cellule, qui peut être en dehors de la zone des valeurs si le fichier n'est pas d'abord enregistré. La solution de Tibo paraît la plus sûre.

 

[marmotte18]

Re : Recherche ligne et colonne maxi

Bonjour Tibo,

Désolé mais ton code ne fonctionne pas. Il produit un problème de références circulaires.

Merci malgré tout de t'être penché sur mon problème.

 

[marmotte18]

Re : Recherche ligne et colonne maxi

Bonjour skoobi,

Ta solution est parfaite ! Merci beaucoup !

 

[marmotte18]

Re : Recherche ligne et colonne maxi

Bonjour CB60,

Ta solution est très bonne également mais je souhaitais obtenir séparément le N° de ligne et le N° de colonne.

Merci pour ton aide

 

[marmotte18]

Re : Recherche ligne et colonne maxi

Bonsoir job75,

Ta solution est intéressante. Par contre, le résultat prend en compte les cellules où je mets les résultats ce qui modifie les résultats attendus.

Merci également pour ta réponse !

 

[CB60]

Re : Recherche ligne et colonne maxi

Bonsoir
Un autre exemple, tu aura le choix!!!

Sub Macro1()
    Selection.SpecialCells(xlCellTypeLastCell).Select
        With Selection
        MsgBox "colonne " & Selection.Column & Chr(13) & "ligne " & Selection.Row
    End With
    
End Sub