modifier le code

Version imprimable

modifier le code

bonjour j'ai ce code qui fonctionne mais qui ne demare pas a une cellule precis
il va mettre les lignes a 10000 je sais bien qu'il y a UsedRange.Row mais quand meme es que l'on peu lui atribuer une cellule de demarage voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton1_Click() For Each c In Range("plagevaleur") If c.Text = "inférieur" Then Sheets("Feuil1").Rows(c.Row).Copy Sheets("Feuil2").Activate Sheets("Feuil2").Range("A" & CStr(Sheets("Feuil2").UsedRange.Row + Sheets("Feuil2").UsedRange.Rows.Count)).Select Sheets("Feuil2").PasteSpecial End If Next End Sub
merci pour tout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim NewLig As Long
Dim c As Range
 
Application.ScreenUpdating = False
With Worksheets("Feuil2")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    For Each c In Worksheets("Feuil1").Range("plagevaleur")
        If c.Value = "inférieur" Then
            c.EntireRow.Copy
            .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            NewLig = NewLig + 1
        End If
    Next c
End With
End Sub

28/03/2012, 13h45
Philippe Tulliez

Bonjour,
Ton code manifestement commence à une cellule précise.
Dans ta ligne For Each c In Range("plagevaleur"), tu boucles à partir de la première cellule de la plage nommée plagevaleur. Si plagevaleur fait référence à $A$4:$A$20, l'objet c au début de ta boucle sera la cellule A4 donc une cellule précise.
Si tu expliquais ce que tu souhaites faire et le résultat escompté.