XL 2016 Code pour cellule adjacente à la cellule active

[Lemidi34]

Bonjour,

je souhaite créer un code VBA pour récupérer des données de la cellule active dans un textBox, la j'y suis arrivé mais je souhaite aussi la cellule juste avant

TextBox4 = ActiveCell.Value

Merci de votre aide

 

[Lemidi34]

Suffit de demander pour comprendre

TextBox3 = ActiveCell.Offset(0, -1)

 

[Phil69970]

Bonjour @Lemidi34, le forum

Un exemple pour :
TextBox4 ==> la cellule active
TextBox3 ==> la cellule juste avant

*Problème si tu es dans la colonne A la cellule juste avant n'existe pas et provoquera une erreur

Private Sub UserForm_Initialize()
On Error Resume Next
TextBox3 = ActiveCell.Offset(0, -1)
TextBox4 = ActiveCell.Value
End Sub

@Phil69970

 

[Staple1600]

Bonjour le fil,

Avec des endives

Private Sub UserForm_Initialize()
On Error Resume Next
With ActiveCell
TextBox3 = .Offset(, -1).Value
TextBox4 = .Value
End With
End Sub

Et pour le fun

Private Sub UserForm_Initialize()
Set r = ActiveCell
On Error Resume Next
TextBox3= r(1, 0): TextBox4 = r
End Sub