Trouver une valeur variable
Résolu
Bonjour à tous,
N'étant pas encore très expérimenté en VBA, je n'arrive pas à trouver une fonction.
Je veux faire :
Sub essai()
Sheets("feuille1").select
Dim i as Integer
Dim j as Integer
Do While Not (Isempty(Cells(i,4)))
j=cells(i,4).value
sheets("feuille2").select
Ici je voudrais une fonction qui recherche la valeur de la variable j
End Sub
j'ai trouvé la fonction suivante mais je n'arrive pas à faire varier la partie entre guillemets.
(2000256268 est la valeur à un instant T de j)
Cells.Find(What:="2000256268", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Je ne sais pas si je suis très clair.
Merci d'avance pour votre aide.
Louis
N'étant pas encore très expérimenté en VBA, je n'arrive pas à trouver une fonction.
Je veux faire :
Sub essai()
Sheets("feuille1").select
Dim i as Integer
Dim j as Integer
Do While Not (Isempty(Cells(i,4)))
j=cells(i,4).value
sheets("feuille2").select
Ici je voudrais une fonction qui recherche la valeur de la variable j
End Sub
j'ai trouvé la fonction suivante mais je n'arrive pas à faire varier la partie entre guillemets.
(2000256268 est la valeur à un instant T de j)
Cells.Find(What:="2000256268", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Je ne sais pas si je suis très clair.
Merci d'avance pour votre aide.
Louis
2 réponses
-
ModérateurBonjour,
Utilises la même méthode, Find, avec ta variable j.
Exemple :
Dim rngTrouve As Range Set rngTrouve = Cells.Find(j, LookAt:=xlWhole) If Not rngTrouve Is Nothing Then MsgBox rngTrouve.Address End If
-
Bonjour,
Je ne sais pas si je suis très clair.
En tout cas, je ne comprends pas.
A+
