Trouver une valeur variable
Résolu
louis332
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
louis332 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
louis332 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Trouver une valeur variable
- Trouver adresse mac - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Ou trouver l'adresse ip - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Trouver une adresse - Guide
2 réponses
Bonjour,
Utilises la même méthode, Find, avec ta variable j.
Exemple :
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+
Je ne sais pas si je suis très clair.
En tout cas, je ne comprends pas.
A+
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
Grrrrr!!!!!
Pourquoi sélectionner la cellule trouvée?????
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
- ligne=rngTrouve.Row
- rngTrouve.Offset(x,y).Value=...