Discussion :

[Romque]

Bonjour
nouveau sur le forum et en programmation VBA je voudrais savoir comment il est possible de trouver l'adresse d'une cellule avec des critères et les utiliser pour sélectionner une plage de lignes

ci-dessous un bout du code

i = Application.WorksheetFunction.CountIf(Range("E6:E1000"), "Texte à trouver")
localise = Range("E6:E1000").Find("Texte à trouver", , xlValues).Select

c'est cette dernière cellule trouvée que je voudrais utiliser pour sélectionner les lignes de cette cellule -i

en espérant être clair

Merci d'avance

Romque

[bboy-eazy]

Bonjour,

Code :

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

localise.row

donnera la ligne trouvée si l'objet range n'est pas vide (donc si find est trouvé)

[Patrice740]

Bonjour,

Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub test()
Dim localise As Range
 
  Set localise = Range("E6:E1000").Find("Texte à trouver", , xlValues, xlWhole)
  If Not localise Is Nothing Then
    'Afficher la valeur de la même ligne en colonne A :
    MsgBox localise.EntireRow.Cells(1, "A").Value
  End If
 
End Sub

[Romque]

super merci pour le coup de pouce je le note dans ma doc