Discussion :

[pilounet54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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é.