Trouver une valeur variable

Résolu

louis332 Messages postés 5 Statut Membre -
louis332 Messages postés 5 Statut Membre - 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

Afficher la suite

2 réponses

Réponse 1 / 2
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
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
1. louis332 Messages postés 5 Statut Membre
  
  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
2. Zoul67 Messages postés 2001 Statut Membre 149
  
  rngTrouve.Select
  
  0
3. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Salut,
  Grrrrr!!!!!
  
  Pourquoi sélectionner la cellule trouvée?????
  
  0
4. louis332 Messages postés 5 Statut Membre
  
  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
5. Zoul67 Messages postés 2001 Statut Membre 149
  
  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
Réponse 2 / 2
Zoul67 Messages postés 2001 Statut Membre 149

Bonjour,

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

A+
0
1. louis332 Messages postés 5 Statut Membre
  
  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

Trouver une valeur variable

2 réponses

Discussions similaires

Newsletters