Recherche de l'adresse d'une cellule

Recherche de l'adresse d'une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 19-07-2006 à 15:27:20    

Bonjour tout le monde !!
 
J'ai un petit souci.
J'ai une cellule avec "tr/min" dedans et je recherche son adresse. Je débute m'en voulez pas mais j'avais pensé à ça :
 
lignD = 0
colD = 1
        Do
            Do
                lignD = lignD + 1
            Loop Until Workbooks(NomFichierMesures).Worksheets(NomFeuilleMesures).Cells(lignD, colD).Value = "tr/min"
            ligndep = lignD
            lignD = 1
            colD = colD + 1
        Loop Until CellRech = Workbooks(NomFichierMesures).Worksheets(NomFeuilleMesures).Cells(lignD, colD).Value = "tr/min"
 
Mais bien entendu, ça ne marche pas et je ne sais pas pourquoi...
 
Merci de votre aide !
 

Reply

Marsh Posté le 19-07-2006 à 15:27:20   

Reply

Marsh Posté le 19-07-2006 à 15:32:23    

salut
 
utilise plutot le fonction de reherche find, soit pour récuperer l'adresse :
 
Workbooks(NomFichierMesures).Worksheets(NomFeuilleMesures).Cells.Find(What:="tr/min" ).Address

Reply

Marsh Posté le 19-07-2006 à 15:56:57    

DamienCYS a écrit :

salut
 
utilise plutot le fonction de reherche find, soit pour récuperer l'adresse :
 
Workbooks(NomFichierMesures).Worksheets(NomFeuilleMesures).Cells.Find(What:="tr/min" ).Address


 
Merci ça marche bien mais ça me donne une adresse de type $B$3 or j'ai besoin de me reservir de cette adresse par la suite avec cells(x, y) par exemple.
 

Reply

Marsh Posté le 19-07-2006 à 15:58:27    

surikat14 a écrit :

Merci ça marche bien mais ça me donne une adresse de type $B$3 or j'ai besoin de me reservir de cette adresse par la suite avec cells(x, y) par exemple.


tu peux très bien récuperer cette adresse et lui appliquer la fonction .column et .row pour connaiter les valeurs en mode cells(x,y)

Reply

Marsh Posté le 19-07-2006 à 16:08:04    

Impeccable jpcheck !!
 
Merci les gens

Reply

Marsh Posté le 19-07-2006 à 16:10:24    

je ne sait pas ce que tu veux faire avec mais comme le dit jpcheck tu peux recuperer les ref ou faire un select et utiliser ensuite utiliser Activecell

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed