Microsoft 365 afficher une valeur RC[-1]

  • Initiateur de la discussion Initiateur de la discussion SAAD doli
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
101
Réponses
2
Affichages
85
Retour