Automatiser le déplacement de X cellule a droite et Z cellule en bas ?

Le
fredy
Bonjour,

Je voudrais que cette macro :


Range("D13").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+R[1]C[1]"
Range("E14").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E15").Select

devienne:

'je sélectionne la première cellule puis j'ajoute dans cette cellule cette
formule:
ActiveCell.FormulaR1C1 = "=RC[-1]+R[1]C[1]"

'et là c'est mon problème: 'va droite d'une case' puis 'descend d'une ligne'
et fais le calcul suivant:
'???
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

Merci d'avance,
Freddy
Vidéos High-Tech et Jeu Vidéo
  • Le smartphone Sony Xperia X voit sa résistance aux immersions testée durant deux ...
  • Présentation du Wendelstein 7-X le réacteur à fusion nucléaire le plus grand jamais ...
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #6404111
Bonjour,

Tu pourrais avoir disposé ces formules sans recours aux macros.
Je présume que c'est pour t'exercer

Mets tes formules sans envoyer la sélection dans tous les coins
en clair, commence par supprimer tous ces select inutiles exemple:

[d13].FormulaR1C1 = "=RC[-1]+R[1]C[1]"


Cordialement.

--
lSteph


Bonjour,

Je voudrais que cette macro :


Range("D13").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+R[1]C[1]"
Range("E14").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E15").Select

devienne:

'je sélectionne la première cellule puis j'ajoute dans cette cellule
cette formule:
ActiveCell.FormulaR1C1 = "=RC[-1]+R[1]C[1]"

'et là c'est mon problème: 'va droite d'une case' puis 'descend d'une
ligne' et fais le calcul suivant:
'???
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

Merci d'avance,
Freddy




LSteph
Le #6404091
... sinon outre la réponse à ta question ,
donc par rapport à l'objet ...X cellule a droite et Z cellule en bas

Activecell.offset(Z,X)

désigne la cellule ainsi décalée.

Activecell(-1,2)
serait une ligne plus haut et 2 colonnes à droite

Activecell(2,-1)
serait 2 lignes plus bas et 1 colonnes à gauche


--
lSteph
LSteph
Le #6404071
..oupsss
j'en ai laissé un bout en route

Activecell.offset(-1,2)

....

Activecell.offset(2,-1)



... sinon outre la réponse à ta question ,
donc par rapport à l'objet ...X cellule a droite et Z cellule en bas

Activecell.offset(Z,X)

désigne la cellule ainsi décalée.

Activecell(-1,2)
serait une ligne plus haut et 2 colonnes à droite

Activecell(2,-1)
serait 2 lignes plus bas et 1 colonnes à gauche


--
lSteph




fredy
Le #6404041
Bonjour "LSteph",
Super gràce à vous j'y suis arrivé! Merci beaucoup. ;)
Bonne journée,
Freddy
Publicité
Poster une réponse
Anonyme