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
Partager