Bonjour,
j'ai une erreur récurrente dans une macro, macro qui tournait bien jusque maintenant, je n'ai rien touché et paf, ça me plante à chaque fois maintenant
je vais avoir du mal à mettre un fichier d'exemple car les données sont nominatives et confidentielles mais le principe pour cette feuille est que j'applique simplement une condition SI et je la tire jusqu'en bas, et c'est au moment de la tirer que ça plante (dernière ligne)
j'ai cherché et pas trouvé ce qui coince
merci de votre aide
j'ai une erreur récurrente dans une macro, macro qui tournait bien jusque maintenant, je n'ai rien touché et paf, ça me plante à chaque fois maintenant
je vais avoir du mal à mettre un fichier d'exemple car les données sont nominatives et confidentielles mais le principe pour cette feuille est que j'applique simplement une condition SI et je la tire jusqu'en bas, et c'est au moment de la tirer que ça plante (dernière ligne)
Code:
Sheets("BO").Activate
numlign = Sheets("BO").Range("A65536").End(xlUp).Row
For Each f In Sheets(Array("BO"))
If Application.WorksheetFunction.CountA(f.Cells) = 0 Then
Rows("1:1").Insert Shift:=xlDown
Range("A1").FormulaR1C1 = "champ1"
Range("B1").FormulaR1C1 = "champ2"
Range("C1").FormulaR1C1 = "champ3"
Range("D1").FormulaR1C1 = "champ4"
Range("E1").FormulaR1C1 = "champ5"
Range("F1").FormulaR1C1 = "champ6"
Range("G1").FormulaR1C1 = "champ7"
Else
Range("E1").FormulaR1C1 = _
"=IF(RC[-1]=""présent BO"",""OK"",""NOK"")"
With Worksheets("BO")
.Range("E1").Copy
End With
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E1:E" & numlign)
merci de votre aide