Comment obtenir la dernière valeur d'un groupe de colonnes ?

Résolu/Fermé
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 - 28 août 2014 à 14:30
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 - 29 août 2014 à 17:39
Bonjour tout le monde !

Sur un groupe de colonnes, je souhaiterais extraire le dernier chiffre de chaque ligne sur une autre colonne à part. Ci joint un fichier pour plus de visibilité sur ma demande.

https://www.cjoint.com/?DHCoGgUGVgN

Avez vous une idée ou une formule pouvant m'aider sur ça ?

Merci !

Peace !
A voir également:

4 réponses

ddjidji59430
28 août 2014 à 14:37
=rechercheh(9999;B6:M6;1;1)
1
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 12
28 août 2014 à 14:40
Merci ddjidji59430 !!

Par contre comme je ne suis pas un expert en rechercheh, peux-tu m'expliquer le sens du 9999 ?

Merci encore !
0
ddjidji59430
29 août 2014 à 16:53
9999
excel recherche un nombre qu'il ne trouve pas, alors, il donne le dernier de la liste
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
28 août 2014 à 23:31
Bonjour,
Une solution sur le fichier joint : https://www.cjoint.com/?3HCxGMY17iS
Note : vous devez supprimer les [-] et les remplacer par des [0] dans le but d'éviter des erreurs lors de calcul... !

1
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 12
29 août 2014 à 10:34
Merci Le Pingou !

Elle m'a l'air balaise ta formule matricielle. Peux-tu m'expliquer en deux petites lignes ses composantes ?

Merci encore !
0
Bonjour

si ton tableau contient beaucoup de ligne
tu peux aussi faire une macro

Sub TestFin()
Deb = 6
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
For L = Deb To Nlig
DernChifre = 0
For C = 2 To 13
If Val(Cells(L, C).Value) > 0 Then
DernChifre = Cells(L, C)
End If
Next
Cells(L, 15).Value = DernChifre
Next
End Sub

A+
Maurice
0
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 12
29 août 2014 à 10:26
Merci Maurice !

Comme je ne suis qu'un novice en VBA, je préfère me fondre sur les formules :)

Merci encore !
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
29 août 2014 à 17:39
Bonjour,
Selon votre demande l'explication sommaire se trouve sur la feuille.
Le fichier : https://www.cjoint.com/?3HDrOzpSxDV
0