zebanx
XLDnaute Accro
Bonjour,
Il y a un problème de code (erreur 1004) dans deux macros qui servent à dupliquer une formule sur un rows.count avec un démarrage à une ligne i non figée.
En cherchant sur le site, il y aurait deux formules de codes qui pourraient convenir :
- autofill avec le code suivant
Sub DWL_autofill()
' Utilisation .AUTOFILL
Dim lignedeb As Long
Dim i As Integer
If IsEmpty(Range("B1")) = True Then
i = lignedeb
Else
i = 1
End If
Do While Cells(i, 2) <> ""
'erreur 1004
Range("C" & i).Select
Selection.AutoFill Destination:=Range("C" & i & "C" & Range("B" & Rows.Count).End(xlUp).Row)
i = i + 1
Loop
Range("A1").Select
End Sub
- .formula, qui parait plus rapide, avec le code suivant
Sub DWL_formula()
' Utilisation .FORMULA
Dim lignedeb As Long
Dim i As Integer
If IsEmpty(Range("B1")) = True Then
i = lignedeb
Else
i = 1
End If
Range("C" & i & "C" & Cells(Rows.Count, 4).End(xlUp).Row).Formula1 = "=+RC[-1]+100"
'erreur 1004
Selection.Columns.AutoFit
Cells("C1").Select
End Sub
Pourriez-vous s'il vous plait corriger ces deux codes qui me permettraient aussi de continuer à apprendre sur les boucles simples ?
Ci-joint le fichier, toutes les macros sont dans le module 1.
Vous en remerciant par avance, bonne journée
thierry
Il y a un problème de code (erreur 1004) dans deux macros qui servent à dupliquer une formule sur un rows.count avec un démarrage à une ligne i non figée.
En cherchant sur le site, il y aurait deux formules de codes qui pourraient convenir :
- autofill avec le code suivant
Sub DWL_autofill()
' Utilisation .AUTOFILL
Dim lignedeb As Long
Dim i As Integer
If IsEmpty(Range("B1")) = True Then
i = lignedeb
Else
i = 1
End If
Do While Cells(i, 2) <> ""
'erreur 1004
Range("C" & i).Select
Selection.AutoFill Destination:=Range("C" & i & "C" & Range("B" & Rows.Count).End(xlUp).Row)
i = i + 1
Loop
Range("A1").Select
End Sub
- .formula, qui parait plus rapide, avec le code suivant
Sub DWL_formula()
' Utilisation .FORMULA
Dim lignedeb As Long
Dim i As Integer
If IsEmpty(Range("B1")) = True Then
i = lignedeb
Else
i = 1
End If
Range("C" & i & "C" & Cells(Rows.Count, 4).End(xlUp).Row).Formula1 = "=+RC[-1]+100"
'erreur 1004
Selection.Columns.AutoFit
Cells("C1").Select
End Sub
Pourriez-vous s'il vous plait corriger ces deux codes qui me permettraient aussi de continuer à apprendre sur les boucles simples ?
Ci-joint le fichier, toutes les macros sont dans le module 1.
Vous en remerciant par avance, bonne journée
thierry