Bonjour,
Quelqu'un pourrait-il m'expliquer pourquoi, lorsque le code ci-dessous est exécuté, il plante systématiquement (Erreur 1004) sur la dernière ligne ? Parce que ça fait un paquet de temps que je cherche sans succès. Merci de m'aider à sortir de ce cul de sac !
Pour info, je cherche juste à copier une formule dans une cellule, sachant que la formule en question est fonction des lignes sélectionnées (au moins 2), le code est exécuté par clic sur sur un bouton.
Quelqu'un pourrait-il m'expliquer pourquoi, lorsque le code ci-dessous est exécuté, il plante systématiquement (Erreur 1004) sur la dernière ligne ? Parce que ça fait un paquet de temps que je cherche sans succès. Merci de m'aider à sortir de ce cul de sac !
Code:
[size=4]
Dim a As Integer
NBL = Selection.Rows.Areas.Count
'Si plusieurs lignes dans Sélection
If NBL > 1 Then
Dim formule As String
'entête de formule (appel à une fonction perso)
formule = '=PRECEDE(' & Cells(Selection.Areas(1).Row, 7).Address
'construction de la suite de la formule
For i = 2 To (NBL - 1)
formule = formule & ';' & Cells(Selection.Areas(i).Row, 7).Address
Next i
'fin de formule
formule = formule & ')'
'copie de la formule constituée
Worksheets('Plan').Cells(Selection.Areas(NBL).Row, 8).Formula = formule
End if
[/size]
Pour info, je cherche juste à copier une formule dans une cellule, sachant que la formule en question est fonction des lignes sélectionnées (au moins 2), le code est exécuté par clic sur sur un bouton.