Bonjour a tous

Tout d'abord, merci pour les informations et les conseils qui figurent sur ce site. Je les ai beaucoup parcourus depuis 1 mois. Je suis en train d'essayer d'élaborer des macros Excel, non sans mal!!

Alors, j'ai retourné mon problème de différentes façons, au fur et à mesure de mes découvertes et j'ai abouti à une macro qui ne fonctionne pas pour l'instant.

Avant de vous exposer mon problème, je précise que je viens chercher ici un soutien et des explications me permettant de comprendre mes erreurs. Le but étant de continuer à progresser.

Voilà mon problème :
je souhaite copier les lignes de l'ensemble des feuilles d'un classeur (sauf la première feuille nommer «*en cours*») et les insérer dans celle-ci.
La copie de ces lignes se fait si une date indiquée dans colonne «*G*» est comprise entre deux valeurs stockées dans les cellules E2(j-8) et E3(j+30).
Le collage se fait dans la première ligne vide dans la feuille «*en cours*» .
De plus, je souhaite réaliser cela à l'aide de variables. C'est ce qui semble être le plus indiqué pour progresser en programmation et aussi pour ne pas surcharger le presse papier du PC.

Merci de vos commentaires et remarques

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub oct_28()
 
Dim commande_client_2013 As Workbook
Dim limite_inf As Date
Dim limite_sup As Date
Dim EN_COURS As Worksheet
Dim lN_SOURCE As Range
Dim LN_CIBLE As Range
 
Dim sht As Worksheet
 
  limite_inf = Range("E3").Value
  limite_sup = Range("E2").Value
 
    Nblignes = 25000
    For i = 1 To Nblignes
 
 For Each sht In Worksheets
 
  If sht.Name <> "EN_COURS" And Cells(i, 7).Value > limite_inf And Cells(i, 7).Value < limite_sup Then
 
 Cells(i, 7).EntireRow = lN_SOURCE
 
 
Set LN_CIBLE = Worksheets("en cours").Cells(1, 1).CurrentRegion.SpecialCells(xlCellTypeLastCell).Offset(1).EntireRow
 
LN_CIBLE.Value = lN_SOURCE.Value
 
  End If
 
 Next sht
 
   Next i
 
End Sub


De nouveau merci