Discussion :

[Karatégirl77]

Bonjour à tous,

Je voudrais demander à mon programme de récupérer certaines valeurs dans un tableau, sur une sélection de lignes.
Je cherche à sélectionner des lignes, à partir du moment où il rencontre un certain contenu de la première colonne (ça je sais le trouver), et jusqu'à un nombre donné de lignes (que je sais déterminer). Pour ça, j'envisageais un For/Next.
Le problème, c'est que je ne sais pas passer du contenu de la cellule au numero de ligne correspondant.

Quelqu'un a des pistes? Merci d'avance

[aalex_38]

Bonjour,

rencontre un certain contenu de la première colonne (ça je sais le trouver)

Il est difficile de répondre car sans code il est difficile de voir ce qui te pose problème

Quand tu as trouvé le contenu, tu devrais avoir une cellule selectionnée ?

Si tu as un RAnge pour trouver la ligne utilise ROW

Un exemple avec le find :

Code :

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

1
2
3
4
5
6
7
Dim cell as Range
MaRecherche = MaCellule.Value   
 With Columns("D:D")
       Set cell = .Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)
  End With
 
Msgbox Cell.Row

[Karatégirl77]

Euh, je sais pas utiliser le range. En plus, je ne voulais pas sélectionner de cellule dans le tableau qui contient mes données, pour ne pas changer la feuille active.
J'ai fini par bidouiller un code qui fait ce que je cherche, en créant une variable supplémentaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim NumLigne As Integer 'numero de ligne dans tableau Seuil
Dim LignesActivité As Integer 'Num lignes correspondant aux aspects d'une activité
 
For NumLigne = 1 To Worksheets("Seuils").Range("A65535").End(xlUp).Row 'initialisation du numero de ligne
 
If Worksheets("Seuils").Cells(NumLigne, 1) = ActiveSheet.Name Then
LignesActivité = Worksheets("Seuils").Cells(NumLigne, 1).Row
MsgBox LignesActivité
End If
 
Next

Merci pour ton aide, aalex_38

[aalex_38]

Ok, tu fais une boucle pour recuperer test numéros de ligne.
ça marche


Il y avait aussi des solutions avec Find et peut être autofilter

[Karatégirl77]

Oui, j'ai vu pas mal de discussions autour de find mais j'ai pas trop compris comment les utiliser dans mon cas.

Autofilter, je connais pas. Je regarderai quand j'aurai un peu de temps.