Une formule ave cle nom de feuille en boucle

[deni29]

Bonjour à tous,

Je reviens vers vous pour, je crois vous prendra 1 minute.

Dans le mudule3, Macro "Import" en fin de code je n'arrive pas à déclarer la ligne suivante, à cause du nom de la feuille qui doit être en boucle, Feuille dans laquelle on va rechercher l'info en B5 puis B6 ............etc

'ERREUR Dans cette ligne => ActiveCell.FormulaR1C1 = "=COUNTIF('Ref'!R7C6:R17C6,R4C18)".

Ci joint mon fichier

Merci pour l'info.
cdl
Deni29

 

[Papou-net]

Re : Une formule ave cle nom de feuille en boucle

Bonsoir deni29,

Voici ta macro modifiée (et simplifiée) :

Sub Import()
' Inscrire dans la colonne Q, de Q5 à Q.., la valeur de B5 à B..
' inscrire la formule =NB.SI('Nom 1'!$F$7:$F$17;$R$4), dans la colonne R de R5 à R..
                             'Nom de chaque feuille
Application.ScreenUpdating = False

Dim dLg As Long ' Variable pour stocker le dernière ligne "dlg"
Dim Ref As Variant
With Sheets("Effectif")
dLg = .Range("B5").End(xlDown).Row
  For Each cel In .Range("Q5:Q" & dLg)
    cel.Value = Range("B" & cel.Row).Value
  Next
  
  For Each cel In .Range("R5:R" & dLg)
    Ref = cel.Offset(0, -16).Value
    cel.FormulaR1C1 = "=COUNTIF('" & Ref & "'!RC[-12]:R[10]C[-12],R4C18)"
  Next
End With

Range("A1").Select
Application.ScreenUpdating = True
End Sub

Bonne nuit.

Cordialement.