Recuperer la valeur de la cellule voisine a la premiere cellule vide

bleck

XLDnaute Nouveau
Bonjour,

Localiser la première cellule vide d'une colonne avec Range.end, j'ai compris le fonctionnement. Mais peut on afficher la valeur de la cellule voisine?
Plus de détails, Colonne B : B1=1, B2=2 et successivement ex: 1,2,4,6,9,11..... Colonne C: C1=x, et successivement ex: x,x,x,x,
La première cellule vide dans la colonne C est la C5, Je souhaite qu'en A1 s'affiche 9,(valeur voisine en B5). Est-ce possible?
Merci d'avance pour vos commentaires

Cdt
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Pas très clair tout ceci mais un Range (ci-dessous ActiveCell) et ses voisins peuvent être référencés comme ceci:
ActiveCell.offset(ligne,colonne)
ActiveCell.offset(0,1) = cellule de droite
ActiveCell.offset(1,-1) = cellule d' une ligne au-dessous, et une colonne à gauche

etc...

Bon après-midi
 

bleck

XLDnaute Nouveau
Je vais essayer avec la troisiemes option, merci
Bonjour,

Pas très clair tout ceci mais un Range (ci-dessous ActiveCell) et ses voisins peuvent être référencés comme ceci:
ActiveCell.offset(ligne,colonne)
ActiveCell.offset(0,1) = cellule de droite
ActiveCell.offset(1,-1) = cellule d' une ligne au-dessous, et une colonne à gauche

etc...

Bon après-midi

Merci .Ca marche avec ça: ActiveSheet.Range("c1").End(xlDown).Offset(1, -1).Select
Bonne soirée.
 

Staple1600

XLDnaute Barbatruc
Bonsoir

Ca marche aussi avec ceci et cela
(Faut m'excuser, mais il fait gris, alors je me distrais dans mon VBE ;))
VB:
Sub Test()
PourLeFun
MsgBox ActiveCell.Address(0, 0), vbExclamation
PourDeVrai
MsgBox ActiveCell.Address(0, 0), vbInformation
End Sub
Private Sub PourLeFun()
Dim Trois
Trois = 3
Cells(Rows.Count, Trois).End(Trois)(Trois - 1, 0).Select
End Sub
Private Sub PourDeVrai()
Cells(Rows.Count, 3).End(3)(2, 0).Select
End Sub
 

Discussions similaires