XL 2016 Fonction RechercheV + Decaler sur feuil2

[MORISS]

Bonjour,

Je viens vers vous car j'aimerais rechercher dans un tableau d'une autre feuil certaine infos d'une description.

J'aimerais en F25 récupérer uniquement la première partie de la description et en G25 la deuxième partie de la description.

Exemple de description : AAA 24*45g

F25 = 24
G25 = 45

Je joint un tableau ou les cellules son remplie manuellement.

Merci d'avance

 

[chris]

Bonjour

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

 

[MORISS]

Bonjour,

Merci pour votre retour,

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

Merci d'avance

 

[chris]

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 ?

 

[MORISS]

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

 

[JHA]

Bonjour à tous,

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

JHA

 

[MORISS]

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

 

[job75]

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) :

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 :

=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+

 

[MORISS]

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

 

[job75]

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

=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.

 

[MORISS]

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

 

[job75]

Re,

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

Alors entrez en F25 et validez normalement :

=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+

 

[MORISS]

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

 

[job75]

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+

 

[MORISS]

Bonjour,

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

Cordialement