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 "