Discussion :

[pilounet54]

bonjour j'ai ceci je souhaitrai modifier pour ne copier cas partir de la colonne B

Code :

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

1
2
3
4
5
6
7
8
9
For Each a In Worksheets("Alcools et vins").Range("plagevaleuralcoolsetvins")
    If a.Value = "ok" Then
        a.EntireRow.Copy
        .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues   
        .Range("A" & NewLig).PasteSpecial Paste:=xlFormats
    Application.CutCopyMode = False
            NewLig = NewLig + 1
        End If
    Next a

merci encore

[Balborio]

Bonjour,

Pour résoudre ton problème je pense avoir trouvé une solution mais je ne possèdent pas la déclaration de tes variable

Code :

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

1
2
3
4
5
6
7
8
9
For Each a In Worksheets("Alcools et vins").Range("plagevaleuralcoolsetvins")
    If a.Value = "ok" Then
        a.EntireRow.Copy
        .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues   
        .Range("A" & NewLig).PasteSpecial Paste:=xlFormats
    Application.CutCopyMode = False
            NewLig = NewLig + 1
        End If
    Next a

Quelles sont tes variables "a" et "NewLig" ? et leurs valeurs ?

[pilounet54]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim C As Variant
Const feuille_liste = "liste de course"
Dim feuille As Worksheet
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_Activate()
Dim NewLig As Long
Dim C As Range
Dim D As Range
Application.ScreenUpdating = False
 
With Worksheets("Liste de course")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1Application.EnableEvents = False

voila mes variables merci si tu as trouvé une solution
mais je ne sais pas si cela peu t'aider
a n'est pas declaré et il le reconnait