problème sur le report d'une valeur

[gildautal]

bonjour à tous,
2 petites questions
j'aimerai que la valeur 3 en bas de mon tableau du fichier1 se reporte correctement sur le fichier2 quand je clic sur test mais ce n'est pas le cas.
quelqu'un peut il m'aider ?

D'autre part et dans le même genre si j'ai dans un fichier:
If Not x Is Nothing Then
Workbooks(Qfic).Sheets("p1").Activate
Sheets("p1").myMultipleRange.Copy .Cells(186, x.Column)
'copie du BS
Sheets("p1").Range("O5").Copy .Cells(555, x.Column)
Sheets("p1").Range("D901").Copy .Text.Cells(552, x.Column)
End if
et que O5 et D901 sont égales à des formules, comment faire pour ne copier que la valeur de la cellule et non pas la formule
J'ai essayé avec .text et .value mais ca ne fonctionne pas à moins qu'ils soient mal placés
merci d'avance

 

[kjin]

Re : problème sur le report d'une valeur

Bonsoir,

Sub Ouverture()
c = Workbooks("Fichier1.xls").Sheets("page1").Range("G5").Value
With Workbooks("Fichier2.xls").Sheets("page")
    Set x = .Range("3:3").Find(c, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        Workbooks("Fichier1.xls").Sheets("page1").Range("B4:B32").Copy
        .Cells(6, x.Column).PasteSpecial Paste:=xlValues
    Else
    '...la suite

Ca doit répondre également à ta question subsidiaire je pense
A+
kjin

 

[gildautal]

Re : problème sur le report d'une valeur

bonjour,
désolé mais ca ne fonctionne pas.
il me demande toujours une mise a jour et donc je me retrouve toujours avec mes formules recopiées dans l'autre fichier et non pas la valeur de la cellule
merci pour votre aide