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.![Eek! :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
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=3] 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, col_index).Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
'construction de la suite de la formule
For i = 2 To (NBL - 1)
formule = formule & ';' & Cells(Selection.Areas(i).Row, col_index).Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
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.