Adresse de cellule variable

Version imprimable

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:

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

23/02/2016, 10h00
Philippe PONS

Salut,

il semblerait que Ligne() soit un tableau de longueur variable, mais qui n'a pas été initialisé.

D'ou une erreur!

Cordialement,
23/02/2016, 10h18
bangibess

Je m'y connais pas trop en VB, auriez vous une suggestion de comment je peux initialiser "Lignes()" pour que ça marche?

Merci d'avance
23/02/2016, 11h11
letienne
Bonjour,

Citation:

Envoyé par bangibess

Range("Lignes").Offset(1).Value

Ici tu fais référence à une plage nommée, pas à ta variable tableau.
Pour faire référence à une adresse de cellule :
Code:

1 2 3 Ligne = 3 Debug.Print Range("A" & Ligne)
Citation:
Envoyé par bangibess

Code:

1 2 3 4 5 6 7 8 9 Dim Lignes(), i As Long Flag = Find_Next(Plage, Texte, Lignes()) If Flag Then For i = LBound(Lignes) To UBound(Lignes) Debug.Print Lignes(i) Next i End if
Sans savoir ce que fait ta fonction Find_Next, ça va être dur. Cette fonction remplis le tableau Lignes ?

letienne

Merci de votre réponse. Voici ma fonction Find_Next. Elle me permet de faire une recherche dans une colonne. Je vais essayer ta proposion pour voir si ça marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Find_Next(Rng As Range, Texte As String, Tbl()) As Boolean
Dim Nbre As Integer, Lig As Long, Cptr As Long
 
    Nbre = Application.CountIf(Rng, Texte)
    If Nbre > 0 Then
        ReDim Tbl(Nbre - 1)
        Lig = 1
        For Cptr = 0 To Nbre - 1
            Lig = Rng.Find(Texte, Cells(Lig, Rng.Column), xlValues).Row
            Tbl(Cptr) = Cells(Lig, Rng.Column).Address
        Next
    Else
        GoTo Absent
    End If
    Find_Next = True
    Exit Function
Absent:
    Find_Next = False
 
End Function

23/02/2016, 12h09
letienne

ok dans ce cas Range(Lignes(i)) au lieu de Range("Lignes"), ça devrait marcher.

EDIT :

Par contre comme il y a plusieurs lignes possible il faut mettre ça dans une boucle.

letienne
23/02/2016, 12h29
bangibess

Du coup j'ai mis cette ligne : Texte1 = Range(Lignes(i)).Offset(0, 2).Value dans ma boucle et ça marche.
Merci beaucoup