Microsoft 365 FormulaR1C1 erreur

PORCHER · 31 Mai 2024

Bonjour à tous,
J'ai besoin de vos lumières pour résoudre ce problème.
En cellule H2 j'ai Nombre au compteur (40200)
En cellule H3 j'ai Nombre au compteur (40450)
Ma formule en cellule I3 : =SI(B3="";"";H3-H2)

VB:

‘Formule Colonne I

DerL_ColF = ws_Home.Range("A" & Rows.Count).End(xlUp).Row
    ws_Home.Range("I3").FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-1]C-RC[-1])"

Voici l'écriture en cellule I3 : =SI(B3="";"";I3-H3)
Auriez vous la réponse.
Merci

youky(BJ) · 31 Mai 2024

Bonjour
mettre la formule ou elle doit aller et garder la selection sur la cellule
en vba affichier la fenêtre exécution
Tapper ?selection.FormulaR1C1
et faire Enter
cela donne en fonction de la selection
=IF(R[2]C[-4]="","",R[2]C[3]-R[2]C[2])
Bruno

PORCHER · 31 Mai 2024

Merci youky mais je ne ne trouve pas la fenêtre exécution

youky(BJ) · 31 Mai 2024

En VBA aller dans les menus du haut et ...... Affichage >fenêtre exécution

Dranreb · 31 Mai 2024

Bonjour.
Pour en I3 :

Code:

=SI(B3="";"";H3-H2)

C'est :

VB:

[I3].FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-1]-R[-1]C[-1])"

Mais je préfèrerais sans doute :

VB:

[I3].FormulaR1C1 = "=IF(RC2="""","""",RC8-R[-1]C8)"

PORCHER · 31 Mai 2024

Merci Dranreb la deuxième macro me va très bien : [I3].FormulaR1C1 = "=IF(RC2="""","""",RC8-R[-1]C8)"
ça fonctionne comme je le souhaité, merci, merci
Cordialement

Microsoft 365 FormulaR1C1 erreur

PORCHER

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Discussions similaires