Discussion :

[marcelstan]

Bonjour j'ai un souci avec une boule que j'ai faite
j'ai deux feuilles temp et evo et je souhaite copier des lignes particulieres de temp vers evo

Code Vba :

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
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub cmdok_Click()
    Dim F As Worksheet,  i, j, k  As Integer, N1 As Date, N2 As Date, N3 As Date
    Dim date1 As Double, date2 As Double, date3 As Double
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Evo"
    Sheets("Evo").Activate
    N1 = TextBox1.Text
    N2 = TextBox2.Value
    date1 = Day(N1) + Month(N1) * 100 + (Year(N1) Mod 2000) * 10000
    date2 = Day(N2) + Month(N2) * 100 + (Year(N2) Mod 2000) * 10000
    Set F = ThisWorkbook.Sheets("Temp")
    i = 1
    j = 1
 While F.Cells(i, 7).Value <> ""
      N3 = F.Cells(i, 7).Value
       date3 = Day(N3) + Month(N3) * 100 + (Year(N3) Mod 2000) * 10000
      If (date1 <= date3 <= date2) Then
           k = i
           Sheets("Temp").Select
           Range(Cells(k, 1), Cells(k, 7)).Select  'Je souhaite copier juste les champ de ma feuille temps qui verifient le while et le if
           Selection.Copy
           Sheets("Evo").Select
           Range(Cells(j, 1), Cells(j, 7)).Select
           ActiveSheet.Paste
           j = j + 1
      End If
      i = i + 1  
 Wend
End Sub

Le truc est que cela me copie toute ma feuille j'ai l'impression que ma condition If est mal dite

[Marc-L]

Bonjour, bonjour !

j'ai un souci avec une boule que j'ai faite

La faire rouler pour voir si elle est bien faîte !

Une relecture et une explication claire & exhaustive éclaircirait le besoin.

Sinon la consultation de l'aide VBA de l'opérateur And et son exemple doit suffire …

[marcelstan]

Merci je l'avais déjà trouvé merci meme comme tu me tailles