Bonjour a tous,
(desole pour les accents, je travaille sur clavier QWERTY)
Cela fait plusieurs jours que je cherche une solution pour inserer une formule dans une plage variable grace a une macro.
Pour exemple, j'ai choisi cette formule :
J'ai essaye de la retranscrire dans une macro, mais le code ci-dessous ne fonctionne pas :
J'ai joint un petit fichier exemple pour plus de precision ^^
Si vous possedez la solution, je suis preneur
Merci beaucoup
Cordialement,
Delux
(desole pour les accents, je travaille sur clavier QWERTY)
Cela fait plusieurs jours que je cherche une solution pour inserer une formule dans une plage variable grace a une macro.
Pour exemple, j'ai choisi cette formule :
Code:
=CONCATENATE(LEFT($A5, 1), $B5, $C5, MID($D5, 2, 1))
J'ai essaye de la retranscrire dans une macro, mais le code ci-dessous ne fonctionne pas :
Code:
Sub Conca()
'
Dim Cell As Range
Dim Lg As Integer
Lg = 5
For Each Cell In Sheet1.Range("A5:D" & [A65489].End(xlUp).Row)
If Cell.Value <> "" Then
Sheet1.Range("F" & Cell.Row).Formula = Application.WorksheetFunction.Left(Cells(Lg, 1) & Cells(Lg, 2) & Cells(Lg, 3) & Application.WorksheetFunction.Mid(Cells(Lg, 4), 2, 1))
Lg = Lg + 1
End If
Next
End Sub
J'ai joint un petit fichier exemple pour plus de precision ^^
Si vous possedez la solution, je suis preneur
Merci beaucoup
Cordialement,
Delux