Cellule variable

[Tony44]

Comment peut-on, dans une macro, appliquer une formule sur des cellules qui ne son jamais les mêmes mais que l'on sélectionne manuellement.
Je m'explique :

Je dois appliquer une formule sur quelques cellules qui varient de A1 à A 100. Ces cellules ne sont jamais les mêmes. Je que j'aimerais, c'est de pouvoir sélectionner quelques cellules et lancer la macro afin qu'elle m'applique la formule.
Comment dois-je faire.

Merci pour votre aide.

 

[BOISGONTIER]

Re : Cellule variable

Bonjour,

  For Each c In Selection
    c.Interior.ColorIndex = 33
  Next c

JB

 

[tototiti2008]

Re : Cellule variable

Bonjour à tous,

Quelle formule veux-tu mettre dans tes cellules ?

For Each c In Selection
c.FormulaLocal = "=ALEA()"
Next c

 

[Tony44]

Re : Cellule variable

En fait pour que tu comprenne mieux, voici le fichier en pièce jointe.
Tu verras sur le fichier, je cherche à copier les formule de la ligne 3 à différentes cellules que je sélectionnerais manuellement.
Peux-tu m'aider ??
Merci,

Bonjour à tous,

Quelle formule veux-tu mettre dans tes cellules ?

For Each c In Selection
c.FormulaLocal = "=ALEA()"
Next c

 

[tototiti2008]

Re : Cellule variable

Tu veux qu'il reprenne la formule de la ligne 3, de la même colonne que la cellule sésectionnée ?

Sub CopieFormule()
Dim C as range
For Each C in Selection
C.Formula = Activesheet.Cells(3,C.Column).formula
Next C
End Sub

 

[Tony44]

Re : Cellule variable

En fait ce n'est exactement ça.
Là le problème c'est que ça copie la formule par rapport à la ligne 3.

En fait ce que je veux faire c'est sélectionnner des cellules au hasard (voir dans la pièce jointe les cellules en rouge) et lancer la macro afin qu'elle applique les formules.

Je te renvoie le fichier te renvoie le fichier de ce que j'aimerais faire.
J'epère que je suis assez clair !!!!
Merci de ton aide précieuse.

Tu veux qu'il reprenne la formule de la ligne 3, de la même colonne que la cellule sésectionnée ?

Sub CopieFormule()
Dim C as range
For Each C in Selection
C.Formula = Activesheet.Cells(3,C.Column).formula
Next C
End Sub

 

[tototiti2008]

Re : Cellule variable

Désolé, j'avais fait une petite erreur :
change :
C.Formula = Activesheet.Cells(3,C.Column).formula

en
C.FormulaR1C1 = Activesheet.Cells(3,C.Column).formulaR1C1