VBA Matrice nombre de lignes

Bonjour,

Merci d'avance pour votre aide.

J'ai une matrice de taille (1 to 270 , 1 to 15). Elle est composée de données mais chaque colonne ne détient pas forcément le même nombre de données. Exemple colonne 1 j'ai 270 données, colonne 2 145, colonne 3 240 ainsi de suite. Quand il n'y a pas de donnée, c'est considéré comme vide.

Je souhaite déterminer pour chaque colonne le nombre de ligne qui contient des données.

Pouvez-vous me donner une ou plusieurs pistes de réflexion. J'ai pensé à Xldown ou à faire une boucle à l'aide de IsEmpty mais je ne vois pas comment l'appliquer à une matrice.

Salut,

sous quelle forme souhaiterais tu avoir ton resultat ?

un tableau d'entier ? une chaine de caracteres (concatenation) ?

Je souhaite avoir cette info pour chaque colonne à un instant t et pas forcément stocké.

Mon but étant d'appliquer à chaque colonne un calcul mais j'ai besoin de déterminer à quel moment je n'ai pas les données pour dire à ma macro de stopper et ne pas avoir "l'indice n'appartient pas à la sélection"

Exemple :

une matrice de taille (1 to 270 , 1 to 15).

J'ai une bloucle, i = 1 to 15 correspondant au nombres de colonne et x = 1 to 270 au nombre de lignes de ma matrice qui exécute un calcul

Sauf que dans ma première colonne, je dispose uniquement de 240 données et dans ce cas précis j'aimerais dire que SI on arrive à la dernière ligne de la colonne 1 la macro passe à la prochaine colonne ainsi de suite.

Merci Jean-Philippe André

Tu n'as pas exactement repondu a ma question, mais je me contenterai pour l'instant de cela.

Code:

---

1 2 3 4 5

Dim i As Integer For i=1 To 15 msgbox "Colonne " & i & " " & Cells(270,i).End(xlup).Row Next i

---

Désolé, je ne souhaite pas afficher le résultat trouvé mais juste avoir cette info à un instant T.

Un exemple de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim PriceRange(1 to 270, 1 to 15), x As integrer, i As integrer, DlyRet (1 to 270, 1 to 15), N as integrer, V as integrer   'PriceRange() des données sont récupérées à partir d'un fichier ou autre source   N = UBound(PriceRange, 1) 'Nombre de lignes ici 270 V = UBound(PriceRange, 2) 'Nombre de colonne ici 15   For i = 2 To V For x = 2 To N DlyRet(x, i) = Log(PriceRange(x, i) / PriceRange(x + 1, i)) Next x Next i

---

Dans la boucle, je souhaite déterminer à quel moment j'arrive à la dernière ligne en fonction de la colonne présente dans la matrice. Afin de ne pas avoir "l'indice n'appartient pas à la sélection" étant donné que pour chaque colonne je ne dispose pas du même nombre de données.

J'espère avoir été assez clair. Merci encore pour ton aide.

Bonjour,

il s'agit aussi de savoir comment sont remplies tes deux tableaux

car si ça provient d'une plage, même des cellules vides génèrent un indice dans le tableau
si ça provient d'une saisie réalisée par une procédure, c'est dans celle-ci qu'il est préférable de collecter les bornes de chaque colonnes, en passer par une variable tableau publique ou en transmettant ceci au titre d'argument d'un nouveau paramètre à créer

Les données seront récupérées à partir d'une plage pour le premier tableau ici dans mon exemple PriceRange(1 to 270, 1 to 15) et le second DlyRet (1 to 270, 1 to 15) sera rempli par une procédure.

C'est sur le premier que je souhaite déterminer la dernière ligne "non vide" pour chaque colonne.

Bonjour,

as-tu essaye ce que je t'ai propose ?

Car soit tu ne l'as pas fait, soit tu l'as fait et tu consideres le resultat comme non correspondant a ton probleme, auquel cas on revient a un enonce non clair :aie:

Bonjour,

Le résultat correspond à ce que je cherche. Mais je souhaite travailler sur le tableau/matrice et non sur la feuille excel.

Comment puis-je appliquer ta solution à une matrice/tableau ?

J'ai testé ceci

Code:

---

PriceRange(270, 7).End(xlUp).Row

---

Mais j'ai un message "Objet Requis"

Ok,

du coup un peu de lecture sur les tableaux =]
http://didier-gonard.developpez.com/...s-tableau-vba/

Bonjour,

tu as juste à tester PriceRange(x + 1, i) et faire Exit For si vide au lieu du calcul non ?
eric

@Eriic c'est que je souhaite tester mais je rencontre le message "objet requis"

@Jean-Philippe André Merci, je vais lire ça.

J'ai trouvé une solution :

Code:

---

1 2 3 4 5

Dim PriceRange As Range   Set PriceRange = Feuil1.Range(Feuil1.Cells(1, 1), Feuil1.Cells(270, 15))   T = PriceRange(270, 7).End(xlUp).Row

---

Mais je n'arrive toujours pas à expliquer dans mon code précédent pourquoi j'ai l'erreur "objet requis" même après lecture du cours que tu m'as proposé. Quelque chose doit m'échapper

Tu ne disais pas ce qu'était PriceRange...
Si c'est un range comme le montre ton dernier post, c'est un objet qui doit s'initialiser avec Set comme tous les objets.
D'où l'importance de mettre TOUTES les lignes de code concernées, y compris les initialisations.
eric

Merci à vous deux !