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

[bleck]

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]

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]

Je vais essayer avec la troisiemes option, merci

 

[bleck]

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]

Bonsoir

Ca marche aussi avec ceci et cela
(Faut m'excuser, mais il fait gris, alors je me distrais dans mon VBE 😉)

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