Bonjour
Petite question sur les Formula dans les macros
If Range("A2") = "ok" then
[D2].FormulaR1C1 = "=IF(Brasseur!R[8]C[69]="","",R[0]C[-2])"
si je traduis cette macro ( je sais pas si elle est correcte )
Si dans la case A2 il est marqué "ok"
alors dans la case D2 il lance la formule Si(Brasseur!R35=" "; " ", A2) ? en fait la condition c'est que si cette cellule R35 est vide rien ne s'affiche sinon il affiche le resultat de A2 ( qui donnera d'autre valeur que "ok" par la suite )
j'aimerai recuperer la valeur "ok" dans la cellule D2 sans passer par =SI(...) pour eviter de supprimer la formule quand D2 prend la valeur "ok"
je passe par la case D2 pour utiliser un compteur en fait qui incremente de 1 la case D14 des que "ok" apparait en D2
le soucis étant que il ne prend pas en compte la valeur de la cellule
avec:
If Not Application.Intersect(Target, Range("D2")) Is Nothing Then
If Range("D2") Like "ok" Then Cells(14, 4) = Cells(14, 4) + 1
private sub ()
If Range("A2") = "ok" then
If Not Application.Intersect(Target, Range("D2")) Is Nothing Then (Init du compteur)
[D2].FormulaR1C1 = "=IF(Brasseur!R[8]C[69]="","",R[0]C[-2])" ( La formule =Si(Brasseur!R35=" "; " ", A2) )
if Range("D2") Like "ok" Then Cells(14, 4) = Cells(14, 4) + 1 ( Compteur +1 en D14 quand D2 affiche "ok")
end if
end if
ca doit etre completement faux mais je cherche
pouvez-vous m'aider?
Si c'est juste un range("D2").value like "ok" je crains
end sub