A voir également:
- VBA erreur fin d'instruction formule SI
- Formule si et - Guide
- Mise en forme conditionnelle excel formule si - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
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
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
"=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...
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
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
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 :
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...
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...
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 ?
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 ?
Non c'et sensé etre un O fin la colonne O en tout cas pas un zéro