Microsoft 365 afficher une valeur RC[-1]

SAAD doli

XLDnaute Nouveau
slt
j'ai une petite question :)
comment je peux afficher la valeur une variable R[x]C[µ]?
 

Dranreb

XLDnaute Barbatruc
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
 

SAAD doli

XLDnaute Nouveau
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
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
 

Dranreb

XLDnaute Barbatruc
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:

Discussions similaires

Statistiques des forums

Discussions
315 109
Messages
2 116 300
Membres
112 716
dernier inscrit
jean1234