Discussion :

[ccedos]

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 :

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

[mercatog]

Code :

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

Worksheets("feuille2").Range(j & ":" & j).value=Worksheets("feuille1").Range(i & ":" & i).value

[ccedos]

Merci Mercatog