Référencer une cellule en absolu en VBA
Résolu
stephdublin
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum LibreOffice / OpenOffice
3 réponses
Bonjour,
Pour obtenir les références absolues ( i.e. l'adresse de la cellule )
Lupin
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
Bonjour,
si j'ai bien compris !
ActiveCell.Value = "=" & "A1" & "+" & "C1"
ou
ActiveCell.Value = "=A1+C1"
ou
ActiveCell.Value = "=" & "$A$1" & "+" & "$C$1"
Lupin
si j'ai bien compris !
ActiveCell.Value = "=" & "A1" & "+" & "C1"
ou
ActiveCell.Value = "=A1+C1"
ou
ActiveCell.Value = "=" & "$A$1" & "+" & "$C$1"
Lupin
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
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