Microsoft 365 afficher une valeur RC[-1]

Dranreb

XLDnaute Barbatruc

• 4 Avril 2023

• #2

Bonjour
Ça ? :

VB:

Sub test()
Dim x&, µ&
x = -1
µ = 0
MsgBox Cells(ActiveCell.Row + x, ActiveCell.Column + µ).Value
End Sub

Ou bien :

Code:

MsgBox Application.Evaluate(Application.ConvertFormula("=R[" & x & "]C[" & µ & "]", xlR1C1, xlA1)).Value

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Avril 2023

• #3

Bonjour @SAAD doli
Edit Bonjour Bernard

Et si tu nous disait plus simplement ce que tu veux faire.
Exemple je suis dans la cellule untel et veux faire ceci ou cela

@Phil69970

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Avril 2023

• #4

Ou plus simplement d'ailleurs :

VB:

MsgBox ActiveCell.Offset(x, µ).Value

Bonjour @Phil69970

 

Vote positif 0 Vote négatif

S

SAAD doli

XLDnaute Nouveau

• 4 Avril 2023

• #5

Phil69970 à dit:

Bonjour @SAAD doli

Et si tu nous disait plus simplement ce que tu veux faire.
Exemple je suis dans la cellule untel et veux faire ceci ou cela

@Phil69970

Cliquez pour agrandir...

Slt
je suis dans la colonne Y
je veux calculer une concaténation de la cellule x et la cellule x[i+1] dans le cas ou R[1]C[-10] est vide (ID)
rg.FormulaR1C1 = "=IF(ISBLANK(R[1]C[-10]),CONCATENATE(RC[-1],"" "",R[1]C[-1]),RC[-1])"
et d'affecter cette valeur à la colonne X
voici le code
Set rg = .[Y2].Resize(NbLgn)
Set rgx = .[X2].Resize(NbLgn)
rg.FormulaR1C1 = "=IF(ISBLANK(R[1]C[-10]),CONCATENATE(RC[-1],"" "",R[1]C[-1]),RC[-1])"
rg.Value = rg.Value
rg.Copy Destination:=.[X1].Resize(NbLgn)
on fait je veux faire du test pour s'assurer que les valeurs sont tous vraies

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Avril 2023

• #6

Remarque en R1C1 seules les références relatives se mettent entre crochets droits, pas les références absolues. cette formule fait la même chose :

VB:

rg.FormulaR1C1 = "=RC[-1]&IF(ISBLANK(R[1]C15),"" ""&R[1]C[-1],"""")"

 

Dernière édition: 4 Avril 2023

Vote positif 0 Vote négatif

S

SAAD doli

XLDnaute Nouveau

• 4 Avril 2023

• #7

Dranreb à dit:

Remarque en R1C1 seules les références relatives se mettent entre crochets droits, pas les références absolues. cette formule fait la même chose :

VB:

rg.FormulaR1C1 = "=RC[-1]&IF(ISBLANK(R[1]C15),"" ""&R[1]C[-1],"""")"

Cliquez pour agrandir...

j'ai pas bien compris ta formule

 

Vote positif 0 Vote négatif

Solution

Dranreb

XLDnaute Barbatruc

• 4 Avril 2023

• #8

Elle correspond, en Y2, à :

Code:

=X2&SI(ESTVIDE($O3);" "&X3;"")

(vu que ça commence par X2 au début que la O3 soit vide ou non)

 

Vote positif 0 Vote négatif