Condition si cellule vide

[havopti]

Salut

Je cherche à inclure une condition dans ma formule, Je voudrais que si ma cellule de ma colonne G est vide la formule ignore cette ligne et continu en passant à la ligne suivante.

Sub test()

With Sheets("feuille test").Range("AR19:AR1500")
.FormulaLocal = "=J19/G19/$J$1629*(-$J$1635)+(M19*N19)"

.Value = .Value
End With

For i = 19 To 1500
Cells(i, 15) = Cells(i, 44)
Next i
End Sub

 

[Robert]

Re : Condition si cellule vide

Bonjour Havopti, bonjour le forum,

Peut-être comme ça :

Sub test()
With Sheets("feuille test").Range("AR19:AR1500")
    .FormulaLocal = "=J19/G19/$J$1629*(-$J$1635)+(M19*N19)"
End With
For i = 19 To 1500
    If IsError(Cells(i, 44).Value) Then
        Cells(i, 44).Value = ""
    Else
        Cells(i, 15) = Cells(i, 44)
    End If
Next i
End Sub

 

[havopti]

Re : Condition si cellule vide

heu je ne suis pas sur que ca fonctionne, il ne faudrait pas l'inclure dans la formule plus haut? je ne veux pas toucher à cette partie du code

For i = 19 To 1500
Cells(i, 15) = Cells(i, 44)
Next i
End Sub

 

[Robert]

Re : Condition si cellule vide

Bonjour Havopti, bonjour le forum,

heu je ne suis pas sur que ca fonctionne, il ne faudrait pas l'inclure dans la formule plus haut? je ne veux pas toucher à cette partie du code

Ben, si tu le testais avant !? Si tu avais daigné mettre un fichier en pièce jointe j'aurais pu tester avant de te répondre...

 

[havopti]

Re : Condition si cellule vide

Je l'ai testé et ca a planté, je me suis mal exprimé désolé, donc j'ai créer un petit fichier pour te monter mon problème

ma macro marche parfaitement tant que j'ai des chiffres dans mes quantités qui sont ici la colonne "D"

problème dès que je n'en met pas mon calcul bug d’où mon besoin de condition

j’espère avoir été assez clair


merci

 

[Robert]

Re : Condition si cellule vide

Bonjour Havopti, bonjour le forum,

Une proposition en pièce jointe avec le code ci-dessous :

Sub test()
For Each cel In Sheets("Feuil1").Range("H4:H15")
    If cel.Offset(0, -4).Value <> 0 Then
        cel.FormulaLocal = "=G4/D4/$G$16*$G$18+E4"
        cel.Value = cel.Value
    Else
        cel.Value = ""
    End If
Next cel
End Sub

J'ai aussi modifié les formule dans la colonne K.
Le fichier :

 

[havopti]

Re : Condition si cellule vide

merci, ça l'air de fonctionner en cas de cellule vide par contre je ne comprends pas pourquoi quand je clique sur mon bouton tous mes X' deviennent similaires je devrait en obtenir des différents à chaque fois qui dépendent de mon total ( colonne G ) et donc de X et Y ( colonnes E et F ) ainsi que de mes quantités

 

[havopti]

Re : Condition si cellule vide

c'est bon j'ai la solution

un condition sur ma formule et c'est réglé

.FormulaLocal = "=SI(G19<>"""";J19/G19/$J$1629*(-$J$1635)+(M19*N19);"""")"