XL 2016 Recherche horizontale de droite vers Gauche dans des cellules non adjacentes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Mai 2020

• #2

Bonsoir Mongo,
En PJ avec une fonction perso :

VB:

Function LastValo(Lig, Col)
    Application.Volatile
    For i = Col - 1 To 1 Step -1
        If Cells(1, i) = "Valo" And Cells(Lig, i) > 0 Then
            LastValo = Cells(Lig, i)
            Exit Function
        End If
    Next i
    If LastValo = 0 Then LastValo = ""
End Function

La syntaxe à utiliser est =LastValo(LIGNE();COLONNE()) sans rien modifier.

 

Pièces jointes

• Test recherche Horizontale(V2).xlsm

  21.2 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mai 2020

• #3

re
bonsoir
la première valo ou la dernière
si c'est la première

=INDEX(A2:M2;EQUIV(1;($A$1:$M$1="Valo")*(A2:M2<>"");0))

Cliquez pour agrandir...

a valider ctrl+maj+enter

 

Vote positif 0 Vote négatif

M

Mongo

XLDnaute Junior

• 1 Mai 2020

• #4

Merci à vous deux.
Je préfère une formule pour ce fichier dans lequel les macros ne sont pas les bienvenues :-(
@patricktoulon : c'est la dernière valeur que je voudrais récupérer..

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 2 Mai 2020

• #5

Bonjour à tous,

Si tu recherches la valeur sous un mois, à essayer:

VB:

=INDEX($A$2:$L$2;GRANDE.VALEUR(SI(($B$1:$L$1="Valo")*($A$2:$K$2<>"");COLONNE($A$2:$K$2));1))

sous "Valo"

Code:

=INDEX($A$2:$L$2;GRANDE.VALEUR(SI(($A$1:$L$1="Valo")*($A$2:$L$2<>"");COLONNE($A$2:$L$2));1))

Formules matricielles

JHA

 

Pièces jointes

• Test recherche Horizontale.xlsx

  10.9 KB · Affichages: 6

Vote positif 0 Vote négatif

M

Mongo

XLDnaute Junior

• 2 Mai 2020

• #6

Merci JHA, c'est exactement le résultat que je souhaitais obtenir.

 

Vote positif 0 Vote négatif

M

Mongo

XLDnaute Junior

• 4 Mai 2020

• #7

Bonjour,

J'ai un souci pour intégrer cette formule à mon fichier, j'obtiens le résultat #Ref!.
J'ai fait une copie simplifiée de mon classeur.
En testant les colonnes R à AB, je souhaite récupérer la dernière valeur différente de "" des colonnes Valo (la plus à droite).
Je devrais obtenir un résultat de 2022 !!!

Par avance merci

 

Pièces jointes

• Classeur1.xlsx

  19.8 KB · Affichages: 3

Dernière édition: 4 Mai 2020

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Mai 2020

• #8

Bonjour à tous,

A essayer,

VB:

=INDEX($R4:$AB4;GRANDE.VALEUR(SI(($R$3:$AB$3="Valo")*($R4:$AB4<>"");COLONNE($R4:$AB4)-17);1))

la plage de données est "R4:AB4"
colonne(R4:AB4) renvoie {18.19.20.21.22.23.24.25.26.27.28}
colonne(R4) = 18
colonne(R4:AB4)-17 renvoie {1.2.3.4.5.6.7.8.9.10.11}

JHA

 

Pièces jointes

• Classeur1 (14).xlsx

  20.2 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Mongo

XLDnaute Junior

• 4 Mai 2020

• #9

Magnifique, merci beaucoup.

 

Vote positif 0 Vote négatif