Probleme de cellule

Bonjour,

j'ai réussi à récupérer l'adresse d'une cellule :
c1 = .Cells.Find("RCS", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Address
Comment faire pour récuperer la valeur de la celulle situé juste en dessous ?

Merci d'avance.

Est-tu certain que tu travail en VB6 ?

Oui ! Est ce possible avec cette version ?

Rectification
quand tu met "RCS" c'est une plage de données ex:  B1:C3
donc pour avoir la cellule en dessous tu devrais mettre B2:C3
A+
louis

Non RCS, c'est un mot que je cherche. J'ai récupéré la valeur entiere de la cellule contenant le mot "RCS",  je cherche maintenant à récupérer la valeur de la case se situant juste en dessous.

Merci d'avance

Salut,
Passe plutot par Row au lieu de Address
soit:

c1 = .Cells.Find("RCS", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Row 'Donc  juste en dessous c1 = .Cells.Find("RCS", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Row + 1

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Désolé ta réponse m'est parvenue après mon dernier poste, mais si tu tavail en VB6 je ne comprend pas ta syntaxe ?
Dans VB6 travail-tu sur une feuille Excel et si oui, quel version et composant VBA
Il est préférable au départ d'informer sous quel logiciel et version tu travail
Un minimum de détails est nécessaires pour savoir qui peut t'aider
louis

salut Jrivet

Je ne connais pas cette fonction, dans quel language la trouve-t-ont?

merci

louis

 

Salut,
C'est de base en VBA sous excel.
Mais tu peux très bien te retrouver avec des syntaxe pareil en VB6 si tu ajoutes en références à ton projet : Microsoft Excel X.X Object Library
Tu pourras alors depuis VB6 piloter tes classeurs excels avec les même syntaxe qu'en VBA
ici il y a .Cells car je pense que cete ligne est à l'intérieur d'un bloc With
@+: Ju£i€n
Pensez: Réponse acceptée

Bon.. beh oui, ont ne sait pas rout connaître par coeur, toutefois, j'ai rechercher et trouver ceci

Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 de la première feuille de calcul qui contiennent la valeur 2, puis grise ces cellules.

With Worksheets(1).Range("a1:a500")     Set c = .Find(2, lookin:=xlValues)     If Not c Is Nothing Then         firstAddress = c.Address         Do             c.Interior.Pattern = xlPatternGray50             Set c = .FindNext(c)         Loop While Not c Is Nothing And c.Address <> firstAddress     End If End With
donc si tu adapte les adresse, tu pourra trouver tes données
A+
louis