VBA erreur fin d'instruction formule SI
Marg12
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Dans mon fichier excel j'aimerais que dans mon code il rajoute cette formule a chaque nouvelle ligne tout fonctionne correctement sauf sur cette ligne.
Sheets("AE").Cells(i + 8, 15) = "=SI(O" & i + 8 & ">=108;"Oui";"Non")"
Je ne comprends pas d'où vient le problème j'ai rajouté des guillemets "" mais ça ne fonctionne toujours pas
Pouvez vous m'aider
Merci bonne journée
Dans mon fichier excel j'aimerais que dans mon code il rajoute cette formule a chaque nouvelle ligne tout fonctionne correctement sauf sur cette ligne.
Sheets("AE").Cells(i + 8, 15) = "=SI(O" & i + 8 & ">=108;"Oui";"Non")"
Je ne comprends pas d'où vient le problème j'ai rajouté des guillemets "" mais ça ne fonctionne toujours pas
Pouvez vous m'aider
Merci bonne journée
Configuration: Windows / Edge 87.0.664.55
5 réponses
-
Bonjour,
Juste une remarque de syntaxe, ne pratiquant pas VBA,
Ton =SI(O cela se veut être un zéro ? alors non c'est un O, voilà un 0
-
Bojour Marg12, jee pee
Tu es en Vba ?
-
"=SI(O" & i + 8 & ">=108;"Oui";"Non")"
ta formu concerne une autre feuille ?
si on est sur la m^me feuille
"O" 1 I+8 est la m^me cellule que Cells(i + 8, 15)
Veux tu remplacer >+108 par oui ou non ?
mystere...
-
Donc c 'est N8 >=108 et non O8
with Sheets("AE")
.Cells(i+8, "O") = IIf(.Cells(i+8, "N") >= 108, "oui", "non")
end with
-
Non elle ne fonctionne pas
En fait c'est bien la cellule O8
La formule doit se retrouver en P8
J'ai fait un décalage mais elle ne fonctionne quand même pas
Il faut que je puisse remplir les cellules en colonne O et que la formule se modifie en meme temps
La formule dans la cellule est la suivante =SI(H8="Oui";"Oui";SI(O8>=108;"Oui";"Non"))
et celle dans VBA
Sheets("AE").Cells(i + 8, 15) = "=SI(H" & i + 8 & "="Oui";"Oui";SI(O" & i + 8 & ">=108;"Oui";"Non"))"
J'ai rajouté une condition
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Salut Michel,
"Normalement", pour ajouter une formule dans une cellule, on utilise sa propriété "Formula" (ou FormulaLocal ou FormulaR1C1 au choix, selon le but recherché et la méthode...).
Dans le style :Sub essai() ActiveCell.Formula = "=IF(H8=""Oui"",""Oui"",IF(O8>=108,""Oui"",""Non""))" End Sub
Ne pas oublier, dans ce cas, de doubler les guillemets.
Sinon, pour résoudre le souci, l'intégralité du code pourra s'avérer nécessaire...
-
Je vous met le code complet pour que vous repreniez mieux je pense Je vous remercie pour votre patience en tout cas.
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 ? ", vbOKCancel) If reponse = 1 Then 'vérification qu'il y a déjà des valeurs dans le AE 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, 2) And liste_récap.List(i, 1) = Sheets("BDD").Cells(n + 2, 3) Then Sheets("AE").Cells(compt + 7, 1) = compt Sheets("AE").Cells(compt + 7, 2) = Sheets("BDD").Cells(n + 2, 2) Sheets("AE").Cells(compt + 7, 3) = Sheets("BDD").Cells(n + 2, 3) Sheets("AE").Cells(compt + 7, 4) = Sheets("BDD").Cells(n + 2, 4) Sheets("AE").Cells(compt + 7, 5) = Sheets("BDD").Cells(n + 2, 5) Sheets("AE").Cells(compt + 7, 6) = Sheets("BDD").Cells(n + 2, 6) Sheets("AE").Cells(compt + 7, 7) = Sheets("BDD").Cells(n + 2, 7) Sheets("AE").Cells(compt + 7, 8) = Sheets("BDD").Cells(n + 2, 8) Sheets("AE").Cells(i + 8, 12) = "=I" & i + 8 & "*J" & i + 8 & "*K" & i + 8 Sheets("AE").Cells(compt + 7, 13) = Sheets("BDD").Cells(n + 2, 9) Sheets("AE").Cells(i + 8, 15) = "=L" & i + 8 & "*N" & i + 8 ' Bonne formule =SI(H8="Oui";"Oui";SI(O8>=108;"Oui";"Non")) ' formule sous VBA Sheets("AE").Cells(i + 8, 15) = "=SI(H" & i + 8 & "="Oui";"Oui";SI(O" & i + 8 & ">=108;"Oui";"Non"))" Sheets("AE").Cells(compt + 7, 17) = Sheets("BDD").Cells(n + 2, 10) compt = compt + 1 End If Next i n = n + 1 Wend End If Sheets("AE").Activate Sheets("Création AE").Visible = False Sheets("temp").Visible = False Sheets("BDD").Visible = False End Sub -
Bon.
Faisons simple.
Que veux-tu faire avec ce code? Qu'est censée faire cette macro?
Parce que là , tu boucles sur toutes les cellules de la colonne A de ta feuille BDD, puis boucle sur toute la listBox...
Ça semble être un traitement inutile.
En mots simples, dis nous ce que tu fait et ce que tu souhaites obtenir... -
La feuille BDD est une base de donnée qui permet de réunir toutes les informations
La feuille création AE permet a une personne de choisir par exemple toutes les personnes qui sont dans le 13 et le 83 mais qui ont plus de 50 ans
Et la feuille AE permet d'avoir toutes les informations concernant ses personnes la
Un simple filtre ne suffirai pas car c'est juste l'idée en soi c'est plus complexe que ca
Et grâce a la macro un tableau de synthese est fait j'ai juste à remplir mes colonnes I,J,K, H et O
Est ce que s'est assez explicite ? -
-
-
