Format cellule et rechercheV

Version imprimable

26/01/2015, 09h56
Alex86

Format cellule et rechercheV

Bonjour à tous,
J'ai crée une liste de valeur qui renvoi une recherche v d'une autre feuille à l'aide de vba. Dans cette autre feuille qu'on va appeler 2 pour faire plus simple, certaines valeurs ont un format personnalisé avec "< "devant la valeur. J'aimerai que dans la feuille 1 dans la colonne à juste a coté de la recherche v, le caractère"<" s'affiche si le format de la cellule de la feuille 2 est personnalisé.
Cela en VBA biensur. J'imagine qu'il faut une fonction If mais comment renvoyer le format de la cellule en fonction de la recherchev ?

J'espère me faire comprendre.:lol:
26/01/2015, 10h41
Igloobel

Tu peux montrer ce que tu as fait ? (le code biensur;))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sheets("Resultats").Select
      Range("B9:B100").Select
    ActiveWorkbook.Names.Add Name:="liste", RefersToR1C1:="=Resultats!R9C2:R100C2" 'selection appelée liste
 
    Sheets("Feuil2").Select
 Range("E2,H2").Select
 
    With Selection.Validation 'création menu déroulant
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=liste"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
Range("G2").Select     'recherche v sur la colonne G
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R2C6,Resultats!R9C2:R100C113,Feuil2!R[1]C[-6],FALSE)"
    Selection.AutoFill Destination:=Range("G2:G100")

J'aimerai donc mettre dans la colonne F "<" si le format de la cellule dans la feuille résultats est personnalisé (il faut biensur que la cellule dans la cellule de la colonne F corresponde à la cellule de la colonne G ou un recherche v est lancée.

Pour être plus précis j'aimerai faire une recherchev ou alors si il existe une autre fonction qui me permettrait de me renvoyer le format d'un tableau.