Trouver une valeur variable

Résolu/Fermé
louis332 Messages postés 5 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 19 novembre 2013 - 18 nov. 2013 à 17:02
louis332 Messages postés 5 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 19 novembre 2013 - 19 nov. 2013 à 09:37
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

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
18 nov. 2013 à 17:21
Bonjour,

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

1
louis332 Messages postés 5 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 19 novembre 2013
18 nov. 2013 à 17:39
Merci Franck,
ca marche mais comment est-ce que je peux faire pour selectionner la cellule au lieu de retourner une msg box?
merci pour ton aide
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
18 nov. 2013 à 17:57
rngTrouve.Select
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
19 nov. 2013 à 07:58
Salut,
Grrrrr!!!!!

Pourquoi sélectionner la cellule trouvée?????
0
louis332 Messages postés 5 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 19 novembre 2013
19 nov. 2013 à 09:24
Merci Zoul67, merci Franck ca marche

il fallait que je selectionne la cellule trouvée car à partir de cette cellule, j'ai plusieurs informations à entrer automatiquement sur la ligne
Merci pour votre aide
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
19 nov. 2013 à 09:32
Comme le sous-entend Franck, pas besoin de sélectionner la cellule pour autant, par exemple :
- ligne=rngTrouve.Row
- rngTrouve.Offset(x,y).Value=...
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
18 nov. 2013 à 17:04
Bonjour,

Je ne sais pas si je suis très clair.
En tout cas, je ne comprends pas.

A+
0
louis332 Messages postés 5 Date d'inscription lundi 18 novembre 2013 Statut Membre Dernière intervention 19 novembre 2013
18 nov. 2013 à 17:10
haha pas facile de s'exprimer:
La variable "j " peut prendre des valeurs différentes. je veux une fonction qui trouve dans la feuille2 la cellule contenant la valeur de j.
La seule fonction que je connais me permet de trouver une valeur fixe mais pas de valeur variable.
0