Bonjour,
Novice dans l'utilisation de VBA, je bloque sur une erreur2023 en voulant affecter la valeur d'une formule à une vaiable:
Voici le code:
"Sub test3()
Worksheets("Data Brutes").Select
startaddress = Evaluate("ADDRESS(4, 51, 2, 1)")
endAddress = Evaluate("ADDRESS(INDIRECT(ADDRESS(2, 50, 2, 1)), 70, 3, 1)")
Range(startaddress, endAddress).Select
Selection.Copy
Worksheets("Planning").Range("B" & Rows.Count).End(xlUp).Offset(2, 0).PasteSpecial xlPasteFormats
Selection.Copy
Worksheets("Planning").Range("B" & Rows.Count).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues
End Sub"
L'erreur se trouve sur le endAddress dans la fonction range où il me met "erreur2023".
De manière plus précise, si je remplace dans la formule de la vaiable endAdress la partie "INDIRECT(ADDRESS(2, 50, 2, 1))" par sa valeur, cela fonctionne.
Dans Excel, la formule complète fonctionne (avec les ";" plutôt que les ",").
J'ai vraiment besoin d'utiliser l'indirect car celle-ci se réfère à une cellule dont le contenu varie régulièrement.
Merci pour votre aide,
Stéphane
PS: la version excel utilisée est: Microsoft® Excel® for Microsoft 365 MSO (Version 2212 Build 16.0.15928.20196) 64-bit
Partager