Discussion :

[froggystar69]

Bonjour a toutes et a tous,

je reviens vers vous de nouveau pour savoir si on pouvait m'aider sur un point concernant mon code?

Je vous explique :

Voila j'ai déclaré 10 plages.

Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Set plagett = Range("A1").CurrentRegion
 
'********************** CP1 *************************
 
CPE1 = 1
Do While Cells(1, CPE1) <> "PORT_CPE_1"
    CPE1 = CPE1 + 1
Loop
 
Set CP1 = plagett.Columns(CPE1)

J'ai cela 10 fois a défaut de l'indice qui change a chaque fois.

Et pour ces 10 plages je dois rechercher une valeur qui est stocké dans une variable "g2r".

D'ou mon code :

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

Do While Cells(ptsuivi, colg2r) <> ""
    
    g2r = Cells(ptsuivi, colg2r).Value
    
    wbtopo.Activate
    For j = 1 To 10
        Set Trouve = Range(CP & j).Cells.Find(what:=g2r, LookAt:=xlPart) <= Erreur sur CP & j 
        If Trouve Is Nothing Then
            j = j + 1
            Else
                lg2r = Trouve.Row
                wbsuivi.shsuivi.Cells(ptsuivi, statutopo) = wbtopo.shtopo.Cells(lg2r, etopo)
                wbsuivi.shsuivi.Cells(ptsuivi, nomtopo) = wbtopo.shtopo.Cells(lg2r, ntopo)
                countcht = countcht + 1
        End If
    Next j
        
    ptsuivi = ptsuivi + 1

Loop

Auriez vous un petit TIPS pour ce petit probleme ?

En vous remerciant d'avance.

Froggy

[Jean-Philippe André]

Salut,

de ce que je vois, ton CP c'est une collection de colonnes...

Aussi si tu nous expliques ce que tu as essayé de faire on pourra te dire comment l'écrire correctement, parce que là je ne sais pas si tu espères récupérer les valeurs de tes CP1/2/3... avec une concaténation, ou bien s'il s'agit d'autres choses...

[froggystar69]

Salut j-p en fait je fais une recherche dans chèque plage cp1 cp2 cp3 etc... qui me retournera la ligne et ensuite je récolterai des infos selon la ligne.

[Menhir]

Salut j-p en fait je fais une recherche dans chèque plage cp1 cp2 cp3 etc... qui me retournera la ligne et ensuite je récolterai des infos selon la ligne.

Il suffit d'indicer la variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim CP(10) As Long, I As Long
 
For I = 1 To 10
    CP(I) = 1

[froggystar69]

Merciiiiii resolu