XL 2016 Vba et Compte

[NJEPENDA MOUAHA Armel]

bonjour a vous, il y'a quelques jour j'ai posté mon problème et j'ai compris qu'il fallait que je lise d'abord les cours sur la programmation en Vba. j'ai lu et j'ai pu écrire ces lignes de codes. je précise bien qu'elles fonctionne seulement je n'arrive pas a intégrer la copie de la ligne. elle copie uniquement la valeur de la cellule dans une autre feuille sans la ligne j'ai grand besoin de votre aide svp
voici mon programme:

Sub First_Step()
Dim i As Double, cell As Range
Dim Saisies As Worksheet, rapport As Worksheet, recopie As Worksheet
Dim sel As Variant

Dim plancp As String


For i = 3 To 1000


sel = Sheets("Saisies").Cells(i, 3) ' valeur de la cellule en cours
sel = Left(sel, 4)

If sel <> "" Then
If Isexist[/COLOR](sel) Then

' si cette valeur est trouvee on ecrit dans la bonne feuille sinon dans une feuille rapport

Sheets("Recopie").Cells(i, 1) = sel ' bonne feuille

Else
Sheets("Rapport").Cells(i, 1) = sel
End If
End If
Next

End Sub

Isexist() est une fonction que j'ai créer pour gérer ma recherche

 

[herve62]

bonjour
si selon la valeur d'une cellule tu veux copier toute cette ligne il faut utiliser un truc du genre :
If cell.Value >= 10 Then
cell.EntireRow.Copy Sheets(2).Cells(i, 1)
i = i + 1
le Entire row va prendre toute la ligne , ne restera plus qu'a faire le PASTE

 

[NJEPENDA MOUAHA Armel]

Sheets("Recopie").EntireRow.Cells(i, 1) = sel ' bonne feuille