Comparaison en vba

bsr
je voudrais a la place de copier tant que la ligne <>0
indiqué une ligne ex200 comme ligne de fin de controle
est ce possible car j'ai des cellules vides entre mes donné mais je ne peux les supprimer
merci

c bon tout est arrangé,ca marche
merci pour tout
ps;voila le résultat
Private Sub CommandButton1_Click()

Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1

If Plage.Cells(I).Value = 7411 Then
Do While ActiveCell.Value <> ""
Plage.Cells(I).Offset(-1, 0).Range("a1:j3").Cut
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select

Loop
End If

Sheets("feuil1").Select

Next

End Sub

si ca peut aider quelqu'un desormais !!

oui je me suis peut etre mal exprimé,je voudrais pouvoir copier les 3 lignes lorsque je trouve 7411 mais en faisant comme je fait actuellement dans mon prog c ame copie les 3 premieres ligne de la feuille 1
c'est ^pour cela que je voudrais savoir si c'est possible d'ajouter une variable
tel que range("A:J").select
ou alors dit moi si je suis a coté de la plaque lol,il ne me reste que ca a regler et mon prog et fini
cdlt

lol je ne comprends pas ça :
mais je dois maintenant ajouté une variable qui saurait se reperer pour le faire a l'endroit trouvé

a ok c'est pour ca qu'il me copier 7 lignes je ne savais pas
bon maintenant comme ca j'arrive a trouver 7411 et a copier la ligne au dessus, la ligne trouvé et celle en dessous
mais je dois maintenant ajouté une variable qui saurait se reperer pour le faire a l'endroit trouvé

Private Sub CommandButton1_Click()

Sheets("feuil1").Select
cel = ActiveCell.Address

Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1

If Plage.Cells(I).Value = 7411 Then
Do While ActiveCell.Value <> ""
Range("a1:j3").Cut "ici je copie uniquement a1:j7"

Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select

Loop
End If

Sheets("feuil1").Select

Next

End Sub

le tableau peut ressembler a cela

7459
7486
7411 12 12 15
7896
7963
7411 15 25

etc

bjr
oui en faite je veux selectionner une plage de cellule(une ligne au dessus une ligne en dessous de 7411 )pour copier coller l'ensemble sur la feuille 2 mais je n'y arrive pas comme ca.a moins de les copier coller une par une mais le programme risque d'etre lourds .
cdlt

j'ai modifié en enlevent (a1,j7)mais ca ne marche pas ,j'ai fait quelque recherche mais la je bloque
Private Sub CommandButton1_Click()

Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1

If Plage.Cells(I).Value = 7411 Then
Do While ActiveCell.Value <> ""
activecell.offset(-1,1).range("a,j").select bloque ici
apllication.cutcopymode=false
selection.copy
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select

Loop
End If

Sheets("feuil1").Select

Next

End Sub

a priori je ne verrais que le range a1,j7 comme chose étrange

voila pour conclure comment j'ai resolu le pb de boucle encore merci a toi giheller pour tes aides successives.

Private Sub CommandButton1_Click()

Sheets("feuil1").Select
Range("a1").Select
Dim cell
Dim I As Long
Dim Plage As Range
Set Plage = Range("a2:a" & Range("a2").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1

If Plage.Cells(I).Value = 7411 Then
Do While ActiveCell.Value <> ""
Plage.Cells(I).EntireRow.Cut
Sheets("feuil2").Select
cel = ActiveCell.Address
ActiveSheet.Paste
ActiveCell.Offset(3, 0).Select

Loop
End If

Sheets("feuil1").Select

Next

End Sub

a bientot sur le site car je debute et j'ai encore tout a apprendre!! lol

Il me semble que cette réaction est normale car tu "figes" la ligne en codnat A10 ou A13 alors qu'il faudrait que cette valeur évilue aussi.

bonjour,

essaies ça :

If (Range("A1").value = 7411) Then