XL 2016 Fonction RechercheV + Decaler sur feuil2

chris

XLDnaute Barbatruc

• 18 Septembre 2016

• #2

Bonjour

Et on fait quoi pour AAA 14*11*20g GB ?

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 18 Septembre 2016

• #3

Bonjour,

Merci pour votre retour,

Je voudrais ne pas prendre compte des partie inutile, si cela est possible avec excel.

Merci d'avance

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Septembre 2016

• #4

Re

Ma question était : dans certains cas tu as 2 nombres mais d'autres 3 : on fait quoi ?

Par ailleurs tu as tantôt * , tantôt x : ne peux-tu homogénéiser tout cela ?

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 18 Septembre 2016

• #5

Bonjour,

Merci pour votre retour,

Dans les cas ou il y aurai 3 nombres on multiplie les deux premier nombre

Exemple 14*11*20 =

F25 = 154
G25 = 20

Merci

Cordialement

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 18 Septembre 2016

• #6

Bonjour à tous,

Un début de réponse en pièce jointe.

JHA

 

Pièces jointes

• RechercheV_momo-exemple.xlsx

  14.1 KB · Affichages: 68

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 18 Septembre 2016

• #7

Bonjour,

Merci pour votre retour,

Pensez-vous qu'il serait possible de le décaler encore un tout petit peu la colonne F.

Merci d'avance

 

Pièces jointes

• RechercheV_poid_momo-exemple.xlsx

  14.1 KB · Affichages: 53

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2016

• #8

Bonjour MORISS, chris, JHA,

D'après le post #1 on ne s'occupe que des nombres (2 ou 3).

Voyez le fichier joint et cette fonction VBA (matricielle) :

Code:

Function N_2_3(t$)
Dim i%, j%, a&(1 To 2), k%
t = Replace(t, " ", "") 'suppression des espaces nécessaire ?
t = "z" & t
For i = 3 To Len(t)
  If Not IsNumeric(Mid(t, i, 1)) And Mid(t, i - 1, 3) Like "#?#" Then
    For j = i - 2 To 1 Step -1
      If Not IsNumeric(Mid(t, j, 1)) Then Exit For
    Next j
    a(1) = Mid(t, j + 1, i - j - 1)
    For j = i + 2 To Len(t)
      If Not IsNumeric(Mid(t, j, 1)) Then Exit For
    Next j
    a(2) = Mid(t, i + 1, j - i - 1)
    If IsNumeric(Mid(t, j + 1, 1)) Then 'si 3 nombres successifs
      a(1) = a(1) * a(2)
      For k = j + 2 To Len(t)
        If Not IsNumeric(Mid(t, k, 1)) Then Exit For
      Next k
      a(2) = Mid(t, j + 1, k - j - 1)
    End If
    Exit For
  End If
Next i
N_2_3 = a 'matrice (vecteur ligne)
End Function

Elle doit impérativement être placée dans un module standard.

Elle est utilisée dans la plage F25:G25 avec cette formule validée matriciellement :

Code:

=SIERREUR(N_2_3(RECHERCHEV(D25;Feuil2!B:C;2;0));"")

Bien noter que le séparateur des 2 ou 3 nombres peut être quelconque (un seul caractère).

A+

 

Pièces jointes

• RechercheV_momo-exemple(1).xlsm

  27 KB · Affichages: 68

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 19 Septembre 2016

• #9

Bonjour,

Merci pour votre retour,

J'ai installer votre macro en module3 et inscris vos formules.

Je fait ctrl+Maj+Entré excel n’active pas les matrices, le curseur tourne pendant quelque seconde puis rien.

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2016

• #10

Bonjour MORRIS, le forum,

Le fichier que j'ai joint donne bien les bons résultats en F25:G33 non ?

Sur un autre fichier faites exactement ce que j'ai écrit :

- sélectionner la plage F25:G25 et dans la barre de formules entrer la formule

Code:

=SIERREUR(N_2_3(RECHERCHEV(D25;Feuil2!B:C;2;0));"")

- valider matriciellement par Ctrl+Maj+Entrée

- copier-Collage spécial-Formules de F25:G25 vers le bas.

Bonne journée.

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 19 Septembre 2016

• #11

Bonjour,

Merci pour votre retour,

Je fait exactement comme vous seulement sur mon excel pour valider une matrice il faut faire ctrl+shift+entré.

Quand je fait cela en sélectionnant la plage des cellules F25 et G25 excel me dit : Un tableau ne peut pas contenir de formules matricielles à plusieurs cellules.

Donc je fait cela une cellule après l'autre mais il me donne aucun résultat.

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2016

• #12

Re,

Votre tableau est organisé en tableau Excel, vous ne l'aviez pas dit.

Alors entrez en F25 et validez normalement :

Code:

=SIERREUR(INDEX(N_2_3(RECHERCHEV($D25;Feuil2!$B:$C;2;0));COLONNES($D25:D25));"")

Copier-Collage spécial-Formules de F25 surs F25:G33.

Fichier (2).

A+

 

Pièces jointes

• RechercheV_momo-exemple(2).xlsm

  26.4 KB · Affichages: 58

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 19 Septembre 2016

• #13

Bonjour,

Merci pour votre retour, j'ai suivie vos instructions, malheureusement cela ne fonctionne pas chez moi la cellule est vide et je vois pas pourquoi alors que tout correspond.

Bien cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2016

• #14

Re,

Ecoutez MORISS, au lieu de tourner en rond, joignez votre fichier réel (allégé au besoin).

Le fichier que j'ai joint fonctionne, lui.

A+

 

Vote positif 0 Vote négatif

M

MORISS

XLDnaute Junior

• 19 Septembre 2016

• #15

Bonjour,

Serait-il possible e vous l'envoyer en privé ?

Cordialement

 

Vote positif 0 Vote négatif