Discussion :

[maxoup]

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 :

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

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 :

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
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 "

[NVCfrm]

Bonsoir maxoup,

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.

[maxoup]

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

Quel est la fonction qui peut le faire?

[NVCfrm]

Bonsoir,

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

tu peux faire ceci:

Code :

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

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 !

[le-guedin]

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

Code :

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

=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 :

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

Application.Calculation = xlAutomatic

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