Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Reference Absolue

Reference Absolue

8 réponses
Avatar
Christophe Joly
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la reference
absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula =
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,
2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

...et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Gaboly
Bonsoir,

Pour avoir une référence absolue, il faut remplacer dans ta formule B13 par
$B$13

Si tu veux figer seulement le numéro de ligne, tu pêux employer B$13, qui
est une
référence mixte (relative pour la colonne, absolue pour la ligne).

Autre solution, tu donne un nom (Insertion, Noms, Définir...) à la cellule
B13,
et tu utilises ce nom dans la formule. Si le nom est bien choisi (pas
"Xyf4P"),
la formule sera plus lisible.


"Christophe Joly" a écrit dans le message de
news:eS$
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la reference
absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula >
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,

2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

...et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe




Avatar
sabatier
bonsoir christophe,
sont tous partis en australie, les cracks ou quoi?
à tout hasard, est-ce que cela marcherait?

Range("E16").Formula =
"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,TRUE)),"""",(VLOOKUP($B$13,CompanyData,2,TRUE)))"
Range("E16").Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

jps


Christophe Joly a écrit:
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la reference
absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula > "=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,
2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe




Avatar
Michel Gaboly
Bonsoir,

Pour avoir une référence absolue, il faut remplacer dans ta formule B13 par
$B$13

Si tu veux figer seulement le numéro de ligne, tu pêux employer B$13, qui
est une
référence mixte (relative pour la colonne, absolue pour la ligne).

Autre solution, tu donne un nom (Insertion, Noms, Définir...) à la cellule
B13,
et tu utilises ce nom dans la formule. Si le nom est bien choisi (pas
"Xyf4P"),
la formule sera plus lisible.


"Christophe Joly" a écrit dans le message de
news:eS$
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la reference
absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula >
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,

2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

...et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe




Avatar
Christophe Joly
JP et Michel:

$B$13 fonctionne parfaitement.

Merci

Christophe
"sabatier" a écrit dans le message de
news:
bonsoir christophe,
sont tous partis en australie, les cracks ou quoi?
à tout hasard, est-ce que cela marcherait?

Range("E16").Formula >
"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,TRUE)),"""",(VLOOKUP($B$13,CompanyD

ata,2,TRUE)))"
Range("E16").Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

jps


Christophe Joly a écrit:
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la
reference


absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula > >
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,


2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe







Avatar
Daniel.M
Bonsoir,

Donc, en une seule instruction (pas de copier/coller puisque c'est la même
formule pour la plage au complet):

Range("E16:E47").Formula = _
"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,1)),"""",VLOOKUP($B$13,CompanyData,2,1)
)"

Salutations,

Daniel M.

"Christophe Joly" wrote in message
news:
JP et Michel:

$B$13 fonctionne parfaitement.

Merci

Christophe
"sabatier" a écrit dans le message de
news:
bonsoir christophe,
sont tous partis en australie, les cracks ou quoi?
à tout hasard, est-ce que cela marcherait?

Range("E16").Formula > >
"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,TRUE)),"""",(VLOOKUP($B$13,CompanyD

ata,2,TRUE)))"
Range("E16").Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

jps


Christophe Joly a écrit:
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la
reference


absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula > > >
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,


2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe











Avatar
sabatier
en effet, daniel, encore plus simple...
et moi qui croyais avoir déjà bien compressé...
du coup, je vais aller décompresser devant les bleus..
allez les petits...
jps

Daniel.M a écrit:
Bonsoir,

Donc, en une seule instruction (pas de copier/coller puisque c'est la même
formule pour la plage au complet):

Range("E16:E47").Formula = _
"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,1)),"""",VLOOKUP($B$13,CompanyData,2,1)
)"

Salutations,

Daniel M.

"Christophe Joly" wrote in message
news:

JP et Michel:

$B$13 fonctionne parfaitement.

Merci

Christophe
"sabatier" a écrit dans le message de
news:

bonsoir christophe,
sont tous partis en australie, les cracks ou quoi?
à tout hasard, est-ce que cela marcherait?

Range("E16").Formula >>>


"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,TRUE)),"""",(VLOOKUP($B$13,CompanyD
ata,2,TRUE)))"

Range("E16").Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

jps


Christophe Joly a écrit:

ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la


reference


absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula >>>>


"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,


2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car j'obtiens une reference
relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe














Avatar
Christophe Joly
Daniel.

Tu viens d'inventer le mieux que mieux.

Merci.

Christophe
"Daniel.M" a écrit dans le message de
news:
Bonsoir,

Donc, en une seule instruction (pas de copier/coller puisque c'est la même
formule pour la plage au complet):

Range("E16:E47").Formula = _

"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,1)),"""",VLOOKUP($B$13,CompanyData,

2,1)
)"

Salutations,

Daniel M.

"Christophe Joly" wrote in message
news:
JP et Michel:

$B$13 fonctionne parfaitement.

Merci

Christophe
"sabatier" a écrit dans le message de
news:
bonsoir christophe,
sont tous partis en australie, les cracks ou quoi?
à tout hasard, est-ce que cela marcherait?

Range("E16").Formula > > >


"=IF(ISERROR(VLOOKUP($B$13,CompanyData,2,TRUE)),"""",(VLOOKUP($B$13,CompanyD


ata,2,TRUE)))"
Range("E16").Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,
_



SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

jps


Christophe Joly a écrit:
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule B13
Je souhaite copier/coller cette formule en E17:E47 en gardant la
reference


absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula > > > >



"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",(VLOOKUP(B13,CompanyData,


2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _




SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car j'obtiens une
reference




relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe















Avatar
Sle
Bonjour,

Si c'est la cellule B13 qui est la référence, il faut
mettre le '$' à B13 dans la formule.

Soit $B13 soit $B$13 suivant ce que l'on souhaite faire.
Suivant comment on étire la formule, il faut faire
atention à l'endroit que l'on possitionne le '$'


-----Message d'origine-----
ReBonjour:

En E16 j'ai une formule faisant référence à la cellule
B13

Je souhaite copier/coller cette formule en E17:E47 en
gardant la reference

absolue à B13.

J'ai écrit:

Range("E16").Select
Selection.Formula =
"=IF(ISERROR(VLOOKUP(B13,CompanyData,2,TRUE)),"""",
(VLOOKUP(B13,CompanyData,

2,TRUE)))"
Range("E$16").Select
Selection.Copy
Range("E17:E47").Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _

SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

....et malheureusement ca ne fonctionne pas, car
j'obtiens une reference

relative B14, B15, B16, etc...

Merci d'avance pour de cos suggestions et bons conseils.

Christophe


.