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:
Or quand je copie, j'ai le résultat suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 A1: "TEST" A2: =lower(A1)
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 "
Partager