Copier des cellules (Valeur et Formule)

Version imprimable

Bonjour,

J'essaye de copier des cellules d'une feuille afin de les mettre dans une autre feuille. Je copie en fonction d'une valeur dans une cellule.

Quand je copie une formule, il ne trouve pas les valeurs associés. Exemple:

Code:

1
2
A1: "TEST"
A2: =lower(A1)

Or quand je copie, j'ai le résultat suivant:
A1: "TEST"
A2: =lower(#REF!)

Comment je peux résoudre ce problème?

Voici le code créer: (très barbare)

"

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
26
Sub Bouton11_QuandClic()
 
Sheets("Open RFPs Siglum").Activate ' feuille de destination
 
  Col = 2                ' colonne données non vides à tester'
  With Sheets("Open RFPs Siglum")     ' feuille source'
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 2 To NbrLig             'n° de la 1ere ligne de données'
    If .Cells(Lig, Col).Value = "Closed Job Staffing Completed Successfully" Then
        For i = 1 To 42
            Sheets("Closed RFPs Siglum").Cells(Lig, i).Formula = Sheets("Open RFPs Siglum").Cells(Lig, i).Formula
            Sheets("Open RFPs Siglum").Cells(Lig, i).Delete shift:=xlUp
        Next
 
        For j = 43 To 50
            Sheets("Open RFPs Siglum").Cells(Lig, i).Delete shift:=xlUp
        Next
 
 
    End If
    Lig = Lig + 1
  Next
  End With
 
  MsgBox ("Opération terminée")
End Sub "

13/03/2013, 23h44
NVCfrm

Bonsoir maxoup,

Citation:

Quand je copie une formule, il ne trouve pas les valeurs associés. Exemple:
A1: "TEST"
A2: =lower(A1)

Or quand je copie, j'ai le résultat suivant:
A1: "TEST"
A2: =lower(#REF!)

le code d'erreur #REF signifie que ta formule pointe sur une référence qui n'existe pas.
utilises des références absolues.
14/03/2013, 11h36
maxoup

Je ne sais pas comment on peut récupérer la référence absolue...

Quel est la fonction qui peut le faire?

Bonsoir,

si tes formules ne référent que sur une cellule comme : "=A1"

tu peux faire ceci:
Code:

1 2 3 4 5 6 7 8 dim r as Range set r = Range("A2") r.Replace r.Precedents.Address(False, False), r.Precedents.AddressLocal dans une boucle: for each r in range("A1:A20") r.Replace r.Precedents.Address(False, False), r.Precedents.AddressLocal next
note que cela ne marche que pour les Precedents présents sur la feuille.
je ne sais même pas ce que tu veux faire exactement ! :?

15/03/2013, 08h56
le-guedin

Perso
je fais une simple copie de cellules vers une autre cellules situé sur une autre feuille comme ceci :

Code:

=SI(ESTERREUR( Tableau_owssvr_1__1[@[Problem Initiator]]);"/"; Tableau_owssvr_1__1[@[Problem Initiator]])

avec une fonction ESTERREUR

Mais au moment de l'ouverture du classeur j'ai mis ça dans le ThisWorbook

Code:

Application.Calculation = xlAutomatic

Et la j'ai toute mes feuilles qui seront toujours à jour en modifiant uniquement la feuille " Maitre "