OVH Cloud OVH Cloud

Incrémentation

4 réponses
Avatar
Nico
Bonjour,

sous forme de macro, je souhaiterais incrémenté une formule qui ce trouve en
G2 jusqu'à la fin de mon tableau et quel que soit sa grandeur, (je sais que
mon tableau se termine par la derniere cellule tapé de la colonne B).
Comment peut-on lui faire comprendre ceci ?

Merci et avec mes meilleurs voeux

Nico

4 réponses

Avatar
Pounet95
Bonjour,

Avec ceci peut-être ?

[G2].Copy
Range("G3:G"&Range("B65536").End(xlup).Row).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:= False, Transpose:úlse


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Nico" a écrit dans le message de news:

Bonjour,

sous forme de macro, je souhaiterais incrémenté une formule qui ce trouve
en
G2 jusqu'à la fin de mon tableau et quel que soit sa grandeur, (je sais
que
mon tableau se termine par la derniere cellule tapé de la colonne B).
Comment peut-on lui faire comprendre ceci ?

Merci et avec mes meilleurs voeux

Nico




Avatar
Nico
Quand je pense à tout ce que j'ai tenté....
Et vlan, on m'humilie en 2 lignes ! Enfin !!!

Merci Pounet

Nico

"Pounet95" a écrit dans le message de news:
#
Bonjour,

Avec ceci peut-être ?

[G2].Copy
Range("G3:G"&Range("B65536").End(xlup).Row).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:= False, Transpose:úlse


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Nico" a écrit dans le message de news:

Bonjour,

sous forme de macro, je souhaiterais incrémenté une formule qui ce
trouve


en
G2 jusqu'à la fin de mon tableau et quel que soit sa grandeur, (je sais
que
mon tableau se termine par la derniere cellule tapé de la colonne B).
Comment peut-on lui faire comprendre ceci ?

Merci et avec mes meilleurs voeux

Nico







Avatar
G. L
Bonjour Nico

Ou encore :

lig = Range("B65536").End(xlUp).Row ' pour connaitre la dernière ligne
(1)
Range("G2").AutoFill Destination:=Range("G2:G" & lig),
Type:=xlFillDefault

(1) Ce qui permet de réutiliser cette variable plus loin dans la macro
(formules,mise en forme ....)

Cordialement
Gérard



"Nico" a écrit dans le message de
news:
Quand je pense à tout ce que j'ai tenté....
Et vlan, on m'humilie en 2 lignes ! Enfin !!!

Merci Pounet

Nico

"Pounet95" a écrit dans le message de news:
#
Bonjour,

Avec ceci peut-être ?

[G2].Copy
Range("G3:G"&Range("B65536").End(xlup).Row).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:= False, Transpose:úlse


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Nico" a écrit dans le message de news:

Bonjour,

sous forme de macro, je souhaiterais incrémenté une formule qui ce
trouve


en
G2 jusqu'à la fin de mon tableau et quel que soit sa grandeur, (je
sais



que
mon tableau se termine par la derniere cellule tapé de la colonne B).
Comment peut-on lui faire comprendre ceci ?

Merci et avec mes meilleurs voeux

Nico











Avatar
Nico
Impec.

Merci

Nico

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonjour Nico

Ou encore :

lig = Range("B65536").End(xlUp).Row ' pour connaitre la dernière
ligne

(1)
Range("G2").AutoFill Destination:=Range("G2:G" & lig),
Type:=xlFillDefault

(1) Ce qui permet de réutiliser cette variable plus loin dans la macro
(formules,mise en forme ....)

Cordialement
Gérard



"Nico" a écrit dans le message de
news:
Quand je pense à tout ce que j'ai tenté....
Et vlan, on m'humilie en 2 lignes ! Enfin !!!

Merci Pounet

Nico

"Pounet95" a écrit dans le message de news:
#
Bonjour,

Avec ceci peut-être ?

[G2].Copy
Range("G3:G"&Range("B65536").End(xlup).Row).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:= False, Transpose:úlse


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Nico" a écrit dans le message de news:

Bonjour,

sous forme de macro, je souhaiterais incrémenté une formule qui ce
trouve


en
G2 jusqu'à la fin de mon tableau et quel que soit sa grandeur, (je
sais



que
mon tableau se termine par la derniere cellule tapé de la colonne
B).




Comment peut-on lui faire comprendre ceci ?

Merci et avec mes meilleurs voeux

Nico