Probleme VBA #NOM? alors que code bon [Résolu]

Signaler
-
 Mdst -
Bonjour,

J'ai un problème dans mon code, mon code permet de remplir une cellule avec une formule il le fait bien mais il met un "#NOM?" dans ma feuille quand je clique dessus il m'affiche le bon résultat

Pouvez vous m'aider ?

Voila mon code


Private Sub btn_valider_Click()

'Choix des variables
Dim i As Integer
Dim n As Integer
Dim compt As Integer

'Choix des variables texte
Dim nom_lot As String
Dim eqt_lot As String

i = 0
n = 0
compt = 1

Sheets("BDD").Visible = True

Dim reponse As String

reponse = MsgBox("Confirmez la validation du plan de contrôle ? Vous n'avez oublié aucun(s) lot(s) ? ", vbOKCancel)

If reponse = 1 Then

'Boucle Copie des lots et éléments concernés dans le PAC et dans le TbBP

'vérification qu'il y a déjà des valeurs dans le PAC

While Sheets("BDD").Cells(n + 2, 1) <> ""
For i = 0 To liste_récap.ListCount - 1
If liste_récap.List(i, 0) = Sheets("BDD").Cells(n + 2, 3) And liste_récap.List(i, 1) = Sheets("BDD").Cells(n + 2, 5) Then

'Copie numero d'ordre
Sheets("PAC").Cells(compt + 9, 1) = compt
Sheets("TbBP").Cells(compt + 10, 1) = compt

'calcul l'indication de réalisation conformes
Sheets("TbBP").Cells(i + 11, 21) = "=(SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=0)*1,Y" & i + 11 & ":ZY" & i + 11 & "))/((SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=2)*1,Y" & i + 11 & ":ZY" & i + 11 & "))+(SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=1)*1,Y" & i + 11 & ":ZY" & i + 11 & ")))"

'calcul nb contrôle restants
Sheets("TbBP").Cells(i + 11, 22) = "=SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=1)*1,Y" & i + 11 & ":ZY" & i + 11 & ")-SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=0)*1,Y" & i + 11 & ":ZY" & i + 11 & ")"

'calcul nb conformité par semaine
Sheets("TbBP").Cells(i + 11, 23) = "=SOMMEPROD((MOD(COLONNE(Y" & i + 11 & ":ZY" & i + 11 & "),3)=2)*1,Y" & i + 11 & ":ZY" & i + 11 & ")"

compt = compt + 1

End If
Next i
n = n + 1
Wend

'Aller sur la feuille active
Sheets("PAC").Activate

'Masquer les feuilles Création PAC et Base de données
Sheets("Création PAC").Visible = False
Sheets("BDD").Visible = False

End If


End Sub

Configuration: Windows / Edge 85.0.564.63

1 réponse

Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020
1 985
Bonjour

Perso je mettrai
Sheets("TbBP").Cells(i + 11, 21).FormulaLocal =

Cdlmnt
Bonjour,
Je vous remercie pour votre réponse

Ca fonctionne tres bien !