[XL-2010] copier a partir de la colonne B

copier a partir de la colonne B

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

Code:

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:ccool:

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
Citation:
Code:

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 ?

Variable

Code:

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:ccool:
mais je ne sais pas si cela peu t'aider
a n'est pas declaré et il le reconnait