Discussion :

[Guizmonster]

Bonjour,

J’ai un automate qui collecte plusieurs variables. Il me fait une extraction dans un fichier excel chaque jour. Dans la première colonne, il vient mettre la date puis chaque variable dans les colonnes suivantes.

Je veux venir chercher pour une variable la dernière valeur disponible. Je pourrais chercher la dernière ligne remplie mais en plus des valeurs sur une ligne, il y a en dessous des paramètres en texte. A chaque extraction, il vient rajouter des lignes avant la ligne de texte.
Donc je suis bloqué. Peut-être une fonction qui vient chercher la dernière valeur numérique d’une colonne.

Je joins un fichier excel d’exemple pour être plus clair.

Cordialement

[Yves_VBA]

Bonjour Guizmonster,

j'avoue que, pour moi, l'énoncé de ton problème n'est pas très clair.
J'ai ouvert ton exemple, mais c'est difficile de voir ce qui varie sur cette feuille.
Pourquoi y a-t-il des colonnes de "variables" avec aucune valeur ?
Que fait la ligne de texte en bas (ligne 9) ? Est-ce que sa position peut varier ? Peut-il y en avoir plusieurs ?
Le nombre de "variables" est-il figé à 5 ou bien est-ce qu'il varie ?
Idem pour le nombre de lignes de dates ...

Yves

[Guizmonster]

Bonjour,

Je me doutais que j'avais du mal à être clair.
En fait chaque jour, je recupère une ligne qui est ajoutée avant la ligne de texte. Donc dans mon classeur exemple, la nouvelle ligne va être ajoutée en ligne 8, et le texte sera en ligne 10 du coup. Quand je rajoute une nouvelle ligne le lendemain, le texte passera en ligne 11.
Chaque nouvelle ligne ajoutée ne contient pas forcément toutes les variables. Sur chaque variable (donc chaque colonne), je veux récupérer la dernière valeur numérique connue.
Donc à chaque ligne, le nombre de variables change (des variables ne sortent qu'une fois par semaine, tous les 2 jours etc).

[Guizmonster]

Par exemple, pour la colonne D, je veux pouvoir récupérer la dernière valeur numérique qui est en D5 sans prendre en compte le texte en dessous. Une fois que je l'ai je veux l'extraire dans une autre feuille en l'associant avec sa date qui se trouve en A5.

Pour contourner le problème, je crée une plage pour enlever le texte.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
Dim maPlage As Range
Dim DernLigne As Long
'dernière ligne colonne B
DernLigne = Range("B" & Rows.Count).End(xlUp).Row
Set maPlage = Range("B2:B" & DernLigne - 1)
 
End Sub

Par contre j'arrive pas à extraire la dernière valeur de cette plage pour le coup.