Avec VLOOKUP (recherchev), les formats sont oubliés !!!

[jjjjjanis]

Bonjour !
J'ai désespérement besoin de votre aide !!!! 🙁

J'ai créé un fichier avec liste déroulante et renvoi sur un tableau avec vlookup (recherchev). (oui mon excel au boulot est en anglais... 😛)

Dans cette feuille de calcul, les données vont être cherchées dans un tableau qui contient des tarifs avec différentes devises de toute l'europe. Lorsque j'ai entré les données, je changeais le format des cellules en fonction de la devise à appliquer (format cellule, monétaire etc.)

Et... Dans mon nouveau tableau, lorsqu'Excel va chercher les données avec vlookup, il ne m'inscrit que les chiffres, sans les devises. 😕
Et sans ça, ce tableau n'a aucun sens !!!!

J'ai essayé de faire un collage spécial de mes données avec "copier valeur et format" et ca ne change rien dans mon tableau final...

Avez vous des solutions ???

Merci beaucoup pour votre aide.

 

[jjjjjanis]

Re : Avec VLOOKUP (recherchev), les formats sont oubliés !!!

@Modeste,
je te remercie pour ta considération à l'égard d'une néophyte comme moi.

@Job75 et BG

Il est vrai que ces tariffs changent tous les mois, et que cela doit être pris en compte.
Disons que je souhaite utiliser une de vos macros (c'est ça ?), comment dois je procéder ? Faire tout simplement un copier coller de cette formule ? Mais à quel endroit ? Est ce que ça s'active tout seul à l'ouverture du fichier ? Dois je le copier dans une feuille en particulier ?Comment protéger ce fichier pour que personne ne puisse recopier ma macro ?

😱 Voilà... ce sera tout pour aujourd'hui... 🙄

Merci et bonne nuit !!

PS : à la maison, j'ai un mac (oui je suis une mac-intégriste, et j'ai même eu de la peine quand SJ nous a quittés...), quelqu'un sait-il si VBA et les macros existent sur Mac ?

 

[Fo_rum]

Re : Avec VLOOKUP (recherchev), les formats sont oubliés !!!

Bonsoir,


est-ce que Mac et MFC (Mise en forme conditionnelle) font bon ménage ?
Si oui peut-être ainsi ?

 

[job75]

Re : Avec VLOOKUP (recherchev), les formats sont oubliés !!!

Bonjour jjjjjanis, le fil,

Dans la macro de mon post #15 j'utilisais sans précaution On Error Resume Next 😡

Et cela cachait les erreurs du programme...

Dans cette version (2), la macro est paramétrée et la feuille contenant les formules est toujours activée.

Donc dans Module1 :

Sub FormatVLookUp(W As Worksheet)
Dim FeuilleActive As Object, plage As Range
Dim cel As Range, F$, s, rech, col%, p As Boolean, lig
Application.ScreenUpdating = False
Set FeuilleActive = ActiveSheet
W.Activate 'activation de la feuille contenant les formules
On Error Resume Next 's'il n'y a pas de formules
Set plage = Cells.SpecialCells(xlCellTypeFormulas)
If Err Then Exit Sub
On Error GoTo 0
For Each cel In plage
  F = cel.Formula
  If F Like "=VLOOKUP*" Then
    s = Split(F, ",")
    rech = Evaluate(Mid(s(0), 10, 99))
    Set plage = Evaluate(s(1))
    col = Replace(s(2), ")", "")
    If UBound(s) = 3 Then p = Replace(s(3), ")", "") Else p = True
    lig = Application.Match(rech, plage.Columns(1), p)
    If IsNumeric(lig) Then _
      cel.NumberFormat = plage.Cells(lig, col).NumberFormat
  End If
Next
FeuilleActive.Activate 'retour à la 1ère feuille
End Sub

Dans la feuille Europe :

Private Sub Worksheet_Calculate()
FormatVLookUp Me
End Sub

Encore merci JB pour ton aide.

A+

 

[job75]

Re : Avec VLOOKUP (recherchev), les formats sont oubliés !!!

Bonjour le fil, le forum,

J'ai trouvé ce problème de recherche des arguments d'une fonction très intéressant.

Alors j'ai créé la fonction ARG, voyez ce fil :

https://www.excel-downloads.com/threads/recherche-des-arguments-dune-fonction-excel-par-vba.171595/

Voyez ce nouveau fichier où j'utilise la fonction ARG sur VLOOKUP.

A+