Référencer une cellule en absolu en VBA

Résolu

stephdublin -
Utilisateur anonyme - 19 oct. 2007 à 13:54

Bonjour, quelqu'un en 2002 a posé cette question (restée sans réponse). J'ai le meme genre de problème, malheureusement. J'espere que l'un d'entre vous a la réponse. Merci d'avance.

Steph

Référencer une cellule en absolu en VBA
par eddys
Statut : Non résolu
vendredi 21 juin 2002 à 09h13:02

Salut !

J suis en train de coder une appli qui genere un doc Excel a partir d'une base de données.

J veux inserer une formule dans une cellule a l'aide de FormulaR1C1
Le truc c'est que j voudrais lui mettre des references absolues de cases, en lui donnant les index de ligne et cellule.
Le probleme etant que lui pour les lignes il attend des lettres exemple: FormulaR1C1 = "=A1+A3"
alors que moi ce que j'ai c'est une numero de ligne ... :o(

Est-ce que qq'un sait comment faire ?

PS : FormulaR1C1 = "=" & Cells(1,1) & "+" & Cells(1,3) ca marche pas puisque ca met directement la valeur des cases et pas leurs references

A voir également:

Référencer une cellule en absolu en VBA
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel

3 réponses

Réponse 1 / 3

Utilisateur anonyme

Bonjour,

Pour obtenir les références absolues ( i.e. l'adresse de la cellule )

Sub Test()

    Dim Google As Range, MSN As Range, Lycos As Range

    Set Google = Cells(65536, 1).End(xlUp).Offset(1, m)
    Set MSN = Cells(65536, n).End(xlUp).Offset(0, 0)
    Set Lycos = Cells(65536, n).End(xlUp).Offset(3, 0)

    MsgBox Google.Address & vbLf & MSN.Address & vbLf & Lycos.Address

End Sub
'

Lupin

Réponse 2 / 3

Utilisateur anonyme

Bonjour,

si j'ai bien compris !

ActiveCell.Value = "=" & "A1" & "+" & "C1"

ou

ActiveCell.Value = "=A1+C1"

ou

ActiveCell.Value = "=" & "$A$1" & "+" & "$C$1"

Lupin

Réponse 3 / 3

stephdublin

Bonjour Lupin et à tous,

milles excuses, j'ai manqué de précision dans ma question : j'ai besoin d'une formule d'addition en référence absolue, mais lorsque les cellules ne sont pas connus par avance.

dans ma macro, j'ai les lignes suivantes:
Set google = Cells(65536, 1).End(xlUp).Offset(1, m)
Set msn = Cells(65536, n).End(xlUp).Offset(0, 0)
Set lycos = Cells(65536, n).End(xlUp).Offset(3, 0),

et je voudrais obtenir à la cellule lycos une formule qui me permettrait d'avoir les références absolues de la cellule google et de celle de msn, car la reference cellule de msn ne sera pas connue par avance.

merci pour votre aide:-)
Steph

Discussions similaires

excel fractionner une cellule horizontalement

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel : colorer une cellule sous condition d'une autre ?

diviser une case en deux dans excel

séparer une cellule en 2

Votre réponse

Discussions similaires