Bonjour,
Je viens tout juste de commencer à coder en VBA sur Excel donc je suis loin d'être efficace dans mon code/ma syntaxe.
Le bout de code qui me pose problème est une simple attribution de valeur à une case de ma 1ère feuille, la valeur étant un String d'une formule Excel mais que je veux attribué en tant que Texte (String) d'abord comme un test pour moi puis ensuite en tant que Formule dans une autre cellule:
Dim rcell As Integer Dim nrcell As Integer Dim i As Integer Dim plg As Range Dim rplg As Integer Dim speccell As Range Dim n As Integer
Dim mfonc As String
Set wsa = ActiveWorkbook.Sheets(1)
Set wsb = ActiveWorkbook.Sheets(2)
ActiveCell.Select
rcell = Selection.Row
nrcell = Selection.Rows.Count
wsa.Activate
wsa.Select
Set plg = Application.InputBox _
("Sélectionner la Cellule/Ligne qui sera juste au-dessus de votre nouvelle Ligne", , , , , , , 8)
rplg = plg.Row + 1
'Ensuite on a un If Then [...] Else mon problème étant dans le Else dans un 1er temps
Else
wsa.Activa
wsa.Select
ActiveSheet.Rows(rplg).Insert Shift:=xlShiftDown
ActiveSheet.Rows(22).Select
Selection.Copy
ActiveSheet.Rows(rplg).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Rows(rplg).ClearContents
mfonc = "=HLOOKUP($AK$1;'Versions-Projets'!$D$1:$S$105;" & rcell & ";FALSE)"
wsa.Range("$K$60").Value = mfonc
'ERREUR 1004 LIGNE DU DESSUS
wsa.Cells(rplg, 4).Formula = mfonc
wsa.Cells(rplg, 2).Value = Sheets(2).Cells(rcell, 3).Value
wsa.Cells(rplg, 1).Value = Sheets(2).Cells(rcell, 2).Value
End If
Donc J'obtiens l'erreur 1004 : erreur définie par l'application ou par l'objet.
J'ai TOUT ESSAYE, les syntaxes les plus fantaisistes, je suis un peu perdu ...
Merci d'avance