Kania44
Messages postés7Date d'inscriptionlundi 14 décembre 2009StatutMembreDernière intervention 1 février 2010
-
1 févr. 2010 à 14:17
Bonjour,
J'ai reussis a aopier/coller des valeurs d'une feuille a une autre avec ce code
Private Sub CommandButton1_Click()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("controle").Activate ' feuille de destination
Col = "o" ' colonne données non vides à tester'
NumLig = i 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("Extr Total Plat For") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 5 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Text <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("controle").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With
End Sub
Maintenant mon probleme est que, j'aimerais copier/coller les valeurs de la feuille source par rapport a une condition qui la date de la feuille source qui est formuler comme suit: si(N6-K6<=5;"Controle";"")
Merci de votre