Discussion :

[lerico]

Bonjour à tous,

Je voudrais pouvoir à partir de deux variables, saisies sur une feuille, sélectionner un groupe de lignes qui se trouvent sur une autre feuille Excel.

J'ai essayé de créer la macro mais sans succés :

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
Sub Macro3()
 
Dim BDT, FIN
 
Worksheets("Gestion").Activate
Range("B1:B1000").Select
 
DBT = Worksheets("Recap_CP_2").Range("E6").Value
FIN = Worksheets("Recap_CP_2").Range("E7").Value
 
    For Each DBT In ThisWorkbook.Worksheets("Gestion").Range
            MsgBox DBT.RowCount
            Exit For
    Next
 
End Sub

Les deux variables sont DBT (Date début) et FIN (Date fin) que je saisis dans la feuille "Recap_CP_2" et je veux rechercher dans la feuille "Gestion", colonne B, les variables correspondantes puis sélectionner la fourchette des lignes.
Le petit programme ci-dessus devait me permettre dans un premier temps de trouver le numéro de la ligne de la première variable (DBT).
Ca ne marche pas et j'ai beaucoup de mal avec les boucles .
J'espère avoir été clair.
Merci et joyeuses fêtes.
Elrico.

[SfJ5Rpw8]

tiens voila un exemble de solution ...

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
Sub Macro3()
 
Dim BDT, FIN
Dim r As Range
Dim rDeb As Range
Dim rFin As Range
Worksheets("Gestion").Activate
Set r = Worksheets("Gestion").Range("B1:B1000")
 
DBT = Worksheets("Recap_CP_2").Range("E6").Value
FIN = Worksheets("Recap_CP_2").Range("E7").Value
Set rDeb = r.Find(DBT)
 If rDeb Is Nothing Then
   MsgBox "Date de début " & DBT & " Introuvable ", vbExclamation
   Exit Sub
 End If
Set rFin = r.Find(FIN)
 If rFin Is Nothing Then
   MsgBox "Date de Fin " & FIN & " Introuvable ", vbExclamation
   Exit Sub
 End If
 r.Rows(rDeb.Row & ":" & rFin.Row).EntireRow.Select
End Sub

[lerico]

Merci pour ta réponse qui m'a permi d'avancer rapidement.

A+

LeRico