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 Le saviez-vous ? (Hommage à Serge Garnote)

Le saviez-vous ? (Hommage à Serge Garnote)

12 réponses
Avatar
G. L
Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple =B1+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard
Signaler un problème avec ce contenu

10 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
1 2
Avatar
michdenis
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard
Avatar
G. L
Bonsoir Denis

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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


Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard





Avatar
michdenis
Remarque que ceci était suffisant :

With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


Salutations!


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

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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


Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard





Avatar
G. L
Des deux solutions il me semble que :
Est plus rapide :
Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"



Est plus facile à intégrée et plus particulièrement si plusieurs formules
dans plusieurs colonnes :
With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


En tout cas, c'est une leçon que j'ai suivie avec attention et respect .

Cordialement

Gérard


"michdenis" a écrit dans le message de
news:%
Remarque que ceci était suffisant :

With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


Salutations!


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


Bonsoir Denis

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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



Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées
de


la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je
suis


particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard










Avatar
informatrix
Je reviens sur le début du message et sur l'astuce de Serge Garnote. Pour les
béotiens qui ne sont pas des VBAutistes (lol) confirmés, pourriez vous
simplement expliquer l'astuce, car j'ai essayé, mais je n'ysuis pas arrivé.

--
beatus ille qui excelum causas cognoscere potuerit



Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard





Avatar
michdenis
Bonjour Informatrix,

A ) Sélectionne une plage de cellules adjacentes avec la souris ou à l'aide des touches du clavier

B ) Enfonce la touche F2, la cellule active va entrer en mode édition

C ) Tu saisis le texte ou la formule que tu veux entrer

D ) Tu contrôle par les touches Ctrl + Maj + Enter

E ) la même formule ou la même donnée que tu as saisie dans la cellule active va être répliqué dans chacune des cellules
sélectionnées

F ) Le seul hic à cette façon de faire, c'est que tu ne peux pas modifier seulement une cellule de l'ensemble de la plage de
cellules, tu dois modifier toutes les cellules en utilisant la même technique à chaque fois que tu veux en modifier le contenu, car
le résultat obtenu est une matrice !

Maintenant au lieu de sélectionner les cellules avec la sours, tu peux entrer l'adresse directement dans la section de gauche de la
barre des formules. Lorsque tu valides, la plage de cellules se retrouve sélectionner.


Salutations!



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

Je reviens sur le début du message et sur l'astuce de Serge Garnote. Pour les
béotiens qui ne sont pas des VBAutistes (lol) confirmés, pourriez vous
simplement expliquer l'astuce, car j'ai essayé, mais je n'ysuis pas arrivé.

--
beatus ille qui excelum causas cognoscere potuerit



Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard





Avatar
informatrix
Bonsoir ou plutôt bonjour,

D'abord mes excuses à tous et particulièrement à toi qui m'a répondu très
rapidement. qu'il me soit beaucoup pardonner car j'ai beaucoup péché, j'ai
oublié de dire bonjour et au revoir.

OK j'ai compris, et ça me va très bien, il me faut des choses simples.
D'ailleurs pour l'avoir employé quelquefois, c'est vrai qu'on retombe sur une
matrice. Je vais approfondir l'utilisation de la touche F2.


Pour les vieux de la vieille qui écoutaient Francis Blanche le dimanche
matin, ou pour les accrocs des vieilles séries télé, je saluerai par "Bonjour
chez vous"


beatus ille qui excelum causas cognoscere potuerit


"michdenis" wrote:

Bonjour Informatrix,

A ) Sélectionne une plage de cellules adjacentes avec la souris ou à l'aide des touches du clavier

B ) Enfonce la touche F2, la cellule active va entrer en mode édition

C ) Tu saisis le texte ou la formule que tu veux entrer

D ) Tu contrôle par les touches Ctrl + Maj + Enter

E ) la même formule ou la même donnée que tu as saisie dans la cellule active va être répliqué dans chacune des cellules
sélectionnées

F ) Le seul hic à cette façon de faire, c'est que tu ne peux pas modifier seulement une cellule de l'ensemble de la plage de
cellules, tu dois modifier toutes les cellules en utilisant la même technique à chaque fois que tu veux en modifier le contenu, car
le résultat obtenu est une matrice !

Maintenant au lieu de sélectionner les cellules avec la sours, tu peux entrer l'adresse directement dans la section de gauche de la
barre des formules. Lorsque tu valides, la plage de cellules se retrouve sélectionner.


Salutations!



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

Je reviens sur le début du message et sur l'astuce de Serge Garnote. Pour les
béotiens qui ne sont pas des VBAutistes (lol) confirmés, pourriez vous
simplement expliquer l'astuce, car j'ai essayé, mais je n'ysuis pas arrivé.

--
beatus ille qui excelum causas cognoscere potuerit



Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard










Avatar
Herdet
Bonsoir Denis et Gérard,
Dans le genre court on peut aussi écrire
Sub test()
[G5:G10] = "=A" & [G5:G10].Row & "+$B$1"
End Sub

Salutations
Robert

"michdenis" a écrit dans le message de news:
%
Remarque que ceci était suffisant :

With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


Salutations!


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

Bonsoir Denis

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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


Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées
de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je
suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard










Avatar
G. L
Bonsoir Robert,

Merci, c'est plus court et encore plus facile à intégrer, l'exécution est
très rapide (sur 60000 lignes)
En revanche comment se comporte la ressource mémoire dans le cas de
plusieurs colonnes avec différentes formules ?
Il me semble que le End With "libère" cette resource, mais pas certain de
moi.
J'ai un trou (!) comment remplacer [G5:G10] par G5:G" & dernière ligne) ? à
l'image de Range("G5:" & Range("G65536").....
Merci d'avance
Cordialement
Gérard



"Herdet" a écrit dans le message de
news:%23B7Wj$
Bonsoir Denis et Gérard,
Dans le genre court on peut aussi écrire
Sub test()
[G5:G10] = "=A" & [G5:G10].Row & "+$B$1"
End Sub

Salutations
Robert

"michdenis" a écrit dans le message de news:
%
Remarque que ceci était suffisant :

With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


Salutations!


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



Bonsoir Denis

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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


Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées
de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je
suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard














Avatar
michdenis
Bonjour Robert,

Tu as raison si le but permier est de faire court, mais, je ne suis pas très friand de ce type de syntaxe sauf si l'usage le
requiert !


Salutations!


"Herdet" a écrit dans le message de news: %23B7Wj$
Bonsoir Denis et Gérard,
Dans le genre court on peut aussi écrire
Sub test()
[G5:G10] = "=A" & [G5:G10].Row & "+$B$1"
End Sub

Salutations
Robert

"michdenis" a écrit dans le message de news:
%
Remarque que ceci était suffisant :

With Range("G5:G10")
.Formula = "=A" & .Item(1).Row & "+$B$1"
End With


Salutations!


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

Bonsoir Denis

C'est bien l'équivalent !

Long est le chemin qu'il me reste à parcourir pour seulement espérer
apercevoir au loin ta maîtrise du sujet VBA !

Cordialement

Gérard



"michdenis" a écrit dans le message de
news:%
Bonjour G.

Ce que tu proposes est-ce l'équivalent de ceci :

Dim Rg As Range
Set Rg = Range("G5:G10")
Rg.Formula = "=A" & Rg.Item(1).Row & "+$B$1"


Salutations!



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


Bonsoir à toute et à tous

Le saviez vous ? moi non !!! pour "étirer" une formule ..
J' ai découvert une suggestion de Serge le 14 février 2004 :
**** début de citation
Salut Plouf,
Voici une suggestion :
Va dans la «zone Nom», juste à gauche de la
barre de formules. Écris a1:A20000, ta plage
sera sélectionnée automatiquement.
Entre alors ta formule, par exemple ±+C1,
et valide par Ctrl+Entrée.
Serge
**** fin de citation

Que j'ai (converti) en VBA comme ceci :

Sub Etire_Formule()
'essai, en colonne A4:Ax une série de valeurs qui sont ajoutées
de
la valeur B1 en Colonne B
Ligne = Range("A65536").End(xlUp).Row
Range("B4").Select
Application.Goto Reference:="R4C2:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=RC[-1]+R1C2"
Range("D4").Select ' Changer de colonne avec nouvelle formule
Application.Goto Reference:="R4C4:R[" & Ligne - 4 & "]C"
Selection.FormulaR1C1 = "=IF(RC[-1]>0,(RC[-3]+RC[-2])*RC[-1],0)"

End Sub

Je recherchai une méthode rapide et simple depuis si longtemps que je
suis
particulièrement ravi de dire merci à Serge !
Peut être est-il possible d'accélérer ..... pour moi c'est le niveau
supérieur ;)
Cordialement
Gérard










1 2