Bonjour,

J'essaye de faire une macro qui me fait une recherche dans un tableau, selon l'adresse trouvée, enregistré le contenu de la même ligne dans une autre feuille. J'aimerais utiliser ma variable "Lignes" dans la fonction : Range("Lignes").Offset(1).Value
Dans mon programme, ça m'affiche une erreur.

Merci de votre aide.

Voici une partie de mon programme

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
Dim Plage As Range
Dim Lignes(), i As Long
Dim Texte As String
Dim Texte1 As String
Dim adresse As String
Dim Flag As Boolean
Dim semaine As String
 
Set Plage = Sheets("BD").Columns(1) 
Texte = "Portes"   
Flag = Find_Next(Plage, Texte, Lignes()) 
If Flag Then  
    For i = LBound(Lignes) To UBound(Lignes)  
        Debug.Print Lignes(i)
    Next i
Else
    MsgBox "L'expression : " & Texte & " n'a pas été trouvée dans la plage : " & Plage.Address
End If
 
   Worksheets("BD").Activate
   Texte1 = Range("Lignes").Offset(0, 2).Value
   Worksheets("Equipe").Activate
   Range("B9").Value = Texte
   Range("D9").Value = Texte1