Discussion :

[scorpele]

Bonjour,

je cherche comment on peut écrire un code pour comparer des cellules n'appartenant pas à la même page.
Pour l'instant j'ai écrit ce qui suit mais je ne sais pas comment faire pour indiquer la page de chaque cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If (Range("B24").Value < Range("F3").Value * Range("F4").Value) Then
       Range("B27").Select
       ActiveCell.FormulaR1C1 = _
        "=(R[-3]C-Données!R[-24]C[4]*Données!R[-23]C[4])/Données!R[-22]C[4]"

Else
       Range("B27").Select
       ActiveCell.FormulaR1C1 = "= 0"

End If

les cellules concernées sont celles dans la condition du IF. (je les ai mis en rouge)

[J.Michel]

Bonjour,
Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("A1")

[ilcocodrillo]

Ca doit une truc dans ce gout là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
If Sheets("feuil1").Range("B24") < Sheets("Feuil2").Range("F3") * Sheets("Feuil2").Range("F4") Then
Sheets("feuil1").Select
Range("B27").FormulaR1C1 = "=(R[-3]C-Données!R[-24]C[4]*Données!R[-23]C[4])/Données!R[-22]C[4]"
 
Else
Sheets("Feuil1").Select
Range("B27").FormulaR1C1 = 0
End If

[fring]

En bonus, on peut se passer des "Select"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Sheets("feuil1").Range("B24") < (Sheets("Feuil2").Range("F3") * Sheets("Feuil2").Range("F4")) Then
    Sheets("feuil1").Range("B27").FormulaR1C1 = "=(R[-3]C-Données!R[-24]C[4]*Données!R[-23]C[4])/Données!R[-22]C[4]"
Else
    Sheets("Feuil1").Range("B27") = 0
End If

[scorpele]

merci de vos réponse, j'ai essayé les deux codes, celui de fring bug (désolée) et celui de ilcocodrillo ne marche pas... si la condition n'est pas vérifiée, le calcul se fait quand même !

[ilcocodrillo]

chez moi cela marche.... vérifie que les données sont bien sur les bonnes feuilles. (feuil1 et feuil 2) dans les cellules que tu as défini

[scorpele]

c'est bon ça marche !! j'avais juste inversé le signe de comparaison... sorry