comment ne copier que la valeur sans la formule
Bonsoir,
j'ai le code suivant qui sous condition efface le contenu d'une ligne de la feuille2. Je souhaite alors remplacer la ligne effacée par une autre se trouvant sur la feuille1. Le problème est que mon code me copie aussi les formules.
Je ne sais pas comment procéder pour qu'il ne copie que les valeurs.
Si quelqu'un peut m'aider.
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
27
28
| Sub efface_ligne_sous_condition()
Dim i As Integer
Dim j As Long, nl As Long
Dim A As String, B As String, col As String
Dim plage As Range
Dim compare As Boolean
col = "a"
Set plage = Sheets("feuille2").Range("A1:F" & Sheets("feuille2").Range("A65536").End(xlUp).Row)
nl = plage.Rows.Count
For i = 51 To 58
A = Worksheets("feuille1").Cells(i, 1).Value
For j = 2 To nl
B = Worksheets("feuille2").Cells(j, 1).Value
compare = StrComp(A, B)
If compare = 0 Then
Worksheets("feuille2").Range(j & ":" & j).ClearContents
Worksheets("feuille1").Range(i & ":" & i).Copy Worksheets("feuille2").Range(j & ":" & j)
End If
Next j
Next i
End Sub |
