XL 2016 Recherche à double entrée sur une colonne décalée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #2

Bonjour et bienvenu sur XLD,
En pièce jointe un essai avec une fonction perso.
Les explications sont dans le fichier.

 

Pièces jointes

• test (7).xlsm

  23.3 KB · Affichages: 4

Vote positif 0 Vote négatif

H

HelpMeplease71

XLDnaute Nouveau

• 28 Mai 2020

• #3

Bonjour et merci pour ce premier retour.
C'est quasi parfait mais ca beug sur certaines valeur dans mon cas précis.
Le nom du projet n'est pas toujours "simple" mais contiens des caractères supplémentaires dans la base de donné.
Ex : P1 dans l'onglet Projet est parfois ecris "P1dhrjrn" ou alors "oekdu P1 eud"
il me faudrait donc chercher avec le contenu P1 dans la macro
En tout cas super macro, j'ignorais que l'on pouvait créer des fonctions
Possible ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #4

Dans ce cas, il faut remplacer :

VB:

If tablo(L, 1) = X Then
par
If tablo(L, 1) Like "*X*" Then

et idem pour le second paramètre.

Like, opérateur - Visual Basic

En savoir plus sur : Opérateur Like (Visual Basic)

docs.microsoft.com

 

Pièces jointes

• test (7) (V2).xlsm

  23.3 KB · Affichages: 3

Vote positif 0 Vote négatif

H

HelpMeplease71

XLDnaute Nouveau

• 28 Mai 2020

• #5

ca ne semble pas fonctionner quand tu actualises la fonction, ca renvois à "" ou à "#VALEUR!"

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #6

Quelle horreur!
Oser confondre "*X*" et "*" & X & "*"
Mea culpa.

 

Pièces jointes

• test (7) (V3).xlsm

  23.9 KB · Affichages: 7

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 28 Mai 2020

• #7

Bonjour à tous,

A essayer par formule

VB:

=DECALER('Traitement datas Sp4'!$A$1;EQUIV(C$1;'Traitement datas Sp4'!$A$2:$A$10;0);EQUIV($B2;DECALER(INDEX('Traitement datas Sp4'!$A$2:$A$10;EQUIV(Projets!C$1;'Traitement datas Sp4'!$A$2:$A$10;0));;;;100);0))

JHA

 

Pièces jointes

• test (4).xlsm

  12.6 KB · Affichages: 4

Vote positif 0 Vote négatif

H

HelpMeplease71

XLDnaute Nouveau

• 28 Mai 2020

• #8

ça ne m'avais pas choqué
Merci beaucoup, ça semble fonctionner en tout cas !!!

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #9

Re, bonjour JHA,

En tout cas super macro, j'ignorais que l'on pouvait créer des fonctions

Cliquez pour agrandir...

Ce serait dommage de s'en passer, quelquefois c'est vraiment pratique surtout quand les formules commencent à faire plusieurs lignes.
Un petit tuto sur le sujet :

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

H

HelpMeplease71

XLDnaute Nouveau

• 28 Mai 2020

• #10

Question bonus : ya un moyen d'actualiser les calculs automatiquement ? (quand je modifie la base, j'ai la fonction qui ne prends pas en compte le changement sauf si je rentre dans la cellule et fait "entrer")

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #11

Il suffit de rajouter Application.Volatile.
Mais là c'est fonction de l'appli car la fonction est recalculer à chaque mise à jour de feuille.
Donc avec une très grosse base, ça peut ralentir.

Méthode Application.Volatile (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

Pièces jointes

• test (7) (V4).xlsm

  24 KB · Affichages: 2

Vote positif 0 Vote négatif

H

HelpMeplease71

XLDnaute Nouveau

• 28 Mai 2020

• #12

Si je peux (encore) abuser...
J'ai certaines valeurs divisé par zéro => houhouhou je sais pas bien
mais je ne voudrais pas quelles remontent du coup, mettre un 0 irait bien par exemple
J'ai essayé avec la fonction IF mais sans succès...

If tablo(L, C + 1) <> "#DIV/0!" Then
RecherchePourcent = tablo(L, C + 1) ' on remonte la valeur
End If

ca me renvois à #VALEUR! et pas un "" ou un zéro...

 

Pièces jointes

• test (7) (V4).xlsm

  19.3 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #13

La bonne syntaxe est : If IsError(tablo(L, C + 1)) Then ...
j'ai préféré mettre vide plutôt que 0 car certaines valeurs non en erreur retournent 0.
( peut être modifié ligne 15 )

 

Pièces jointes

• test (7) (V5).xlsm

  24 KB · Affichages: 2

Vote positif 0 Vote négatif