Discussion :

[comme de bien entendu]

Bonjour,

J'insère une formule Recherchev dans une cellule via du code où est implémentée une boucle.

Attention c'est pas très simple :

Dans mon cas cette formule n'est pas interprétée pour le texte à rechercher mais est interprétée pour les chiffres. (textes et chiffres sont dans une même matrice où j'effectue la recherche)
Précision : la formule fonctionne en extrayant le texte dans la première ligne traitée mais pas dans les suivantes. (on est alors dans la boucle .FindNext...)

voici le code (j'ai essayé avec les recherchev et vlookup avec l'adaptation
.formula ou .formulalocal qui va bien et les ";" ou ",")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub MAJ_Nom_Site()
Dim objcell As Range
Dim ligne_modif, ligne_Sites, x As Integer
Dim firstAddress As String
Dim Ligne_recherche As String
Application.ScreenUpdating = False
Sheets("Bordereau de prix").Activate
Columns("D:D").Select
With Range("D:D")
Set objcell = Selection.Find(what:="[ SITE", LookIn:=xlValues)
Application.Calculation = xlCalculationManual
ligne_Sites = 2
If Not objcell Is Nothing Then
    'num = num + 1
    ligne_modif = objcell.Row
    firstAddress = objcell.Address
    Range("E" & ligne_modif).Activate
   ' .Formula = "=VLOOKUP(ExtractConstructeur(A2),CodeConstructeur,2,FALSE)"
    Sheets("Infos Sites").Range("B" & ligne_Sites) = Cells(ligne_modif, 4)
    Sheets("Infos Sites").Range("D" & ligne_Sites) = ligne_modif
    'Ligne_recherche = "=VLOOKUP(C" & ligne_modif & ",'Infos Sites'!A2:C23,2,false)"
    Cells(ligne_modif, 4).FormulaLocal = "=RECHERCHEV(C" & ligne_modif & ";'Infos Sites'!A2:C23;2;FAUX)"
    Cells(ligne_modif, 10).Formula = "=vlookup(C" & ligne_modif & ",'Infos Sites'!A2:C23,3,false)"
    'Range("C" & objcell.Row) = "T" & num
    Set objcell = .FindNext(objcell)
    While Not objcell Is Nothing And objcell.Address <> firstAddress
            ligne_Sites = ligne_Sites + 1
            ligne_modif = objcell.Row
            Sheets("Infos Sites").Range("B" & ligne_Sites) = Cells(ligne_modif, 4)
            Sheets("Infos Sites").Range("D" & ligne_Sites) = ligne_modif 'ligne debut
            Sheets("Infos Sites").Range("E" & ligne_Sites - 1) = ligne_modif - 1 'ligne fin
            Cells(ligne_modif, 4).FormulaLocal = "=RECHERCHEV(C" & ligne_modif & ";'Infos Sites'!A2:C23;2;FAUX)"
            Cells(ligne_modif, 10).Formula = "=vlookup(C" & ligne_modif & ",'Infos Sites'!A2:C23,3,false)"
            Set objcell = .FindNext(objcell)
    Wend
    x = Range("FIN_DE_TABLEAU_BORDEREAU").End(xlUp).Row
    Sheets("Infos Sites").Range("E" & ligne_Sites) = Range("A" & x).End(xlUp).Row
End If
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Je me retrouve donc avec dans mes cellules cette formule là pas interprétée

=RECHERCHEV(C21;'Infos Sites'!A2:C23;2;FAUX)

Merci d'avance de votre aide

[sabzzz]

bonjour,

j'ai essayé ces lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cells(ligne_modif, 4).FormulaLocal = "=RECHERCHEV(C" & ligne_modif & ";'Infos Sites'!A2:C23;2;FAUX)"
Cells(ligne_modif, 10).Formula = "=vlookup(C" & ligne_modif & ",'Infos Sites'!A2:C23,3,false)"

je n'ai pas eu le problème décrit, assure toi que les cellules devant recevoir les formules n'ai pas été formaté en texte.

[comme de bien entendu]

Merci bien
C'était effectivement le cas, par contre pas moyen de savoir dans quel format on se trouve en interrogeant le format de cellule via l'interface d'Excel.
J'ai fait la modif en imposant un format nombre, et donc quelque chose à interpréter via le code mais pour Excel c'est toujours du format standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
with selection
.numberformat = "0"
end with

Quand j'aurais du temps faudra que je vois comment se débrouille Excel2007 là dessus.
Si un expert Excel passe sur ce post merci de valider mon commentaire, voir de faire un retour chez nos amis de Microsoft car c'est le genre de truc bien galère.
Encore merci et bonne journée.