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 (avant le end if) ? Parce que ça fait un paquet de temps que je cherche sans succès. Merci de m'aider à sortir de ce cul de sac !
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
& nbsp;'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.Area s(NBL).Row, 8).Formula = formule
End if
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.