XL 2016 Trouver la dimension d'un tableau

  • Initiateur de la discussion Initiateur de la discussion dodineau
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dodineau

XLDnaute Occasionnel
Bonjour à toutes et tous,
dans ma feuille de calcul il y a 10 valeurs qui vont être posées aléatoirement dans différentes cases.
Ces valeurs peuvent être posées entre A1 et K16.
Je cherche à connaitre la ligne maxi ainsi que la colonne maxi du tableau quand les valeurs ont été posées.
Existe-t-il une fonction directe excel ou VBA pour que en Z1 j'ai le numéro de ligne maxi et en Z2 le numéro de colonne maxi des valeurs posées ?
Merci pour votre aide.
A+
 
... pour que en Z1 j'ai le numéro de ligne maxi et en Z2 le numéro de colonne maxi des valeurs posées ?
Merci pour votre aide.
A+
Bonjour,
**Modifié pour la plage [a1:k16]🙂
Une proposition par vba pour les saisies dans [a1:k16]
Code à placer dans le module de la feuille en question
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    [z1] = "Dernière ligne " & [a1:k16].Find("*", , , , xlByRows, xlPrevious).Row
    [z2] = "Dernière colonne " & [a1:k16].Find("*", , , , xlByColumns, xlPrevious).Column
    If Err <> 0 Then [z1:z2] = "Pas de saisie en a1:k16"
    Application.EnableEvents = True
End Sub
 
Dernière édition:
Bonsoir

Selon les cas, le code ci-dessous peut tomber juste 😉
VB:
Sub test()
Dim x
x = Split(Split(Cells(1).CurrentRegion.Address(4), ":")(1), "$")
col = x(1)
lig = x(2)
MsgBox "Der lig=" & vbTab & lig & vbCr & "Der col=" & vbTab & col
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour