Recherche et sélection d'une cellule par un texte
t
Bonjour a toutes et tous, voici mon problème,
je voudrais que mon bouton qui se trouve dans SOMMAIRE me sélectionne la cellule de la feuille CRUAS dont le nom d'équipement correspond au repère d'équipement de la feuille SOMMAIRE. cordialement.
A
Bonjour,
si j'ai compris, à tester et adapter :
Sub macro()
Dim Equip As String, DL As Long, Result As Range
Equip = Worksheets("SOMMAIRE").Range("B4").Value
With Worksheets("CRUAS")
.Activate
DL = .Range("D" & Rows.Count).End(xlUp).Row
Set Result = .Range("D2:D" & DL).Find(Equip)
If Not Result Is Nothing Then
Result.EntireRow.Select
Else
MsgBox Equip & " n'existe pas"
End If
End With
End SubA+
t
Merci de votre réponse AlgoPlus le code marche très bien, j'ai un autre problème, je ne trouve pas la syntaxe pour faire le même procéder dans la même macro mais avec une autre cellule (B6) dans SOMMAIRE, avez vous une idée ?
A
Le résultat devra être la sélection des 2 lignes trouvées ?
Est ce que les noms d'équipement en B5 et B6 existent toujours?
si oui c'est slmple, sinon il faut tester ce qui existe ou non pour construite la plage de sélection...