OVH Cloud OVH Cloud

Commande split

1 réponse
Avatar
Claire
Bonour,
La commande Split me génère une erreur 424. Probablement la façon de créer
ma variable bb.
Un petit coup de main serait bienvenue.

Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = colonne & totaldata
MsgBox Split([bb].Address, "$")(1)
End Sub

Claire

1 réponse

Avatar
AV
Une syntaxe possible :

Sub aa()
semaine = DatePart("ww", Date)
totaldata = Range(ActiveCell.Address).Row 'cellule active a135
colonne = Left$(ActiveCell.Offset(0, semaine + 3).Address(0, 0),
(ActiveCell.Offset(0, semaine + 3).Column < 27) + 2)
bb = Cells(totaldata, colonne).Address
MsgBox Split(bb, "$")(1)
End Sub

AV