[XL-2007] Recherche d'une valeur ou mot spécifique dans une feuille [Résolu]

[XceSs]

Bonjour, j'essaye de faire une macro afin de trouver une valeur dans une feuille et d'extraire les coordonnées de la cellule

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
With Feuil1
nomcherche = TextBox1.Value
On Error Resume Next
Set result = Cells.Find(What:=nomcherche, LookIn:=xlPart)
On Error GoTo 0
If result Is Nothing Then
MsgBox "Non trouvé"
Else
Unload Me
ActiveWindow.ScrollRow = result.Row
ActiveWindow.ScrollColumn = result.Column
End If
End With
End Sub

Merci de votre aide

[patricktoulon]

bonjour
cette macro c'est moi qui l'ai faite pour un autre forumeur que toi

elle consistait a trouver une valeur et metre la cellule a haut a gauche (en premier)


il ne suffit pas de copier coller!!!

essai de nous ecrire un code venant de toi et on t'aidera

tiens dans ton cas c'est beaucoup plus simple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub cherche()
nomcherche = TextBox1.Value
 
With Worksheets(1).Cells' le point cells indique que nous cherchons la valeur dans tout lea feuille 
'bien sur tu peut restreindre la recherche a une plage 
 
'exemple pour chercher dans la plage a1 a a20
'With Worksheets(1).range ("a1:a20")    
 
 
Set cellule = .Find(nomcherche, LookIn:=xlValues)
    If Not cellule Is Nothing Then MsgBox cellule.Address
 
End With
End Sub

medite la dessus

au plaisir

[XceSs]

C'est pour moi que tu l'avais faites :s

j'ai trouvé comment faire fonctionner pour un mot, j'ai mis les cellules en format texte, par contre si je protege la feuille ça marche plus :/

Cdt.

[corona]

Bonjour,
C'est normal. Si tu protèges ta feuille, les cellules protégées ne sont plus accessibles
Utilise le VBA pour protéger ta feuille et utilise l'argument nommé UserInterfaceOnly de la méthode Protect

Code :

1
2
3
Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Feuil1")
  sht.Protect UserInterfaceOnly:=True, Contents:=True

[XceSs]

OK merci pour ton aide :]

Cdt.

[patricktoulon]

bonjour corona

bonjour XceSs

si c'etatait pour toi alors il semblerai que tu n'est pas compris la methode

Le "LookIn:=xlPart" indique que l'on cherche si une partie de la la celule contien le mot recherché

le "xlvalue" comme son nom l'indique que l'on cherche le mot complet dans les cellules( la valeur de la cellule corespond a la variable dans son intégralité)

alors le principe de ce cas présent:

attribution a la variable la valeur que l'on va chercher

Code :

nomcherche = TextBox1.Value

donc avec toute les cellule de la feuille1

Code :

With Worksheets(1).Cells'

au créé dinamiquement la variable celule et cette cellule est la cellule ou setrouve la valeur du mot recherchée

Code :

Set cellule = .Find(nomcherche, LookIn:=xlValues)

si la cellule n' est pas rien (donc existe) alors afficher un message contenant l'adresse de la cellule

Code :

If Not cellule Is Nothing Then MsgBox cellule.Address

fin de avec (la feuille1 )

Code :

End With

fin de la macro

Code :

End Sub

tu vois il n'y a rien de compliqué

j'espere que maintenant tu a compris le procédé


au plaisir

[XceSs]

Merci de votre aide à tous les deux, ça fonctionne

Bonne soirée