momo200185
XLDnaute Nouveau
bonjour, 
j'ai récupéré puis adapté ce code,
mais je rencontre un problème au niveau du copier/coller, car je voudrai qu'il me colle des VALEURS et non les FORMULES,
est ce que quelqu'un peut m'indiquer la démarche à suivre ?
d'avance merci
morgane
j = 2
l = 2
Sheets("ProformaSF1").Select
Range("N14").Select
For i = 1 To Range("N65536").End(xlUp).Row
Range("N" & j).Select
If ActiveCell.Value = "1" Then
Range("A" & j & ":" & "N" & j).Select
Selection.Copy
Sheets("attente").Select
Range("A2").Select
line1:
If ActiveCell.Value = "" Then
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
GoTo line1
End If
Else
Selection.Offset(1, 0).Select
End If
j = j + 1
Sheets("ProformaSF1").Select
Next i
End Sub
	
		
			
		
		
	
				
			j'ai récupéré puis adapté ce code,
mais je rencontre un problème au niveau du copier/coller, car je voudrai qu'il me colle des VALEURS et non les FORMULES,
est ce que quelqu'un peut m'indiquer la démarche à suivre ?
d'avance merci
morgane
j = 2
l = 2
Sheets("ProformaSF1").Select
Range("N14").Select
For i = 1 To Range("N65536").End(xlUp).Row
Range("N" & j).Select
If ActiveCell.Value = "1" Then
Range("A" & j & ":" & "N" & j).Select
Selection.Copy
Sheets("attente").Select
Range("A2").Select
line1:
If ActiveCell.Value = "" Then
ActiveSheet.Paste
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
GoTo line1
End If
Else
Selection.Offset(1, 0).Select
End If
j = j + 1
Sheets("ProformaSF1").Select
Next i
End Sub