Comment fonctionne le For Each ?

Bonjour à tous,
Voila j'ai un petit bout de code qui devrais me copier dans une plage selectionnée une formule dans toute la selection.

Code:

---

1 2 3 4 5 6 7

Dim Ligne As Variant 'Je n'ai pas trouver la collection qui désigne une cellule et Cells ne fonctionne pas   Range("C2", Columns(2).Range("A2").End(xlDown).Offset(0,1)).Select For Each Ligne In Selection Ligne.Formula = "=Maformule" Next

---

Mais problème, cela ne marche pas... Fallais s'en douter ^^
Sur la ligne .formula ca me mets "Erreur définie par l'application", avez-vous une petite idée ?

Ça fonctionne bien comme ça. L'erreur provient de la définition de ta plage de cellule

Code:

---

1 2 3 4 5 6

Dim Plage As Range Set Plage = Range("C2:C" & Range("A2").End(xlDown).Row) For Each Ligne In Plage Ligne.Formula = "=Maformule" Next Set Plage = Nothing

---

Tel quel, ce code place la formule sur les cellule C2 à C & dernière ligne

Edit
Corrigé pour s'arrêter sur dernière ligne de la colonne A, mais dans colonne B

Ouinnnn, cela ne fonctionne pas... :cry:

Voici le code que j'ai modifié :

Code:

---

1 2 3 4 5 6 7 8

Dim Espace As Range Dim Ligne as Variant   Set Espace = Range("C2:C" & Columns("B").Range("A2").End(xlDown).Row)   For Each Ligne In Espace Ligne.Formula = "=Maformule" Next

---

Ca me fait toujours la même erreur...

Tu as bien lu ma réponse ? Que vien faire ton Columns("b") dans mon code ?
Explique tu dois avoir une raison.

Citation:

---

Set Espace = Range("D2:D" & Columns("B").Range("A2").End(xlDown).Row)

---

ou sinon au lieu de mettre Formula, essaye FormulaLocal pour voir

En fait c'est simple, j'ai 2 colonnes remplis (A, B) et je voudrais que la formule se mette dans la colonne "C".
Pour trouver le numéro de la dernière ligne remplie de la colonne "B" je vais sur la première cellule remplie de la colonne "B" et je vais jusqu'en bas.
La selection fais au final ("C2:C" & Dernière ligne remplie de la colonne "B")

J'ai oublier quelque chose ?

Alors tu mets

Code:

---

Set Plage = Range("C2:C" & Range("B2").End(xlDown).Row)

---

Ca ne change rien, la macro plante au même endroit, lors de mettre la formule dans la cellule.

Es ce que ma variable "Ligne" est valide ?

Montre ta formule, l'erreur est sur cette ligne, as-tu dit... Donc... comme dirait l'autre, tu as une erreur sur cette ligne ;)
Edit
Ligne.formula est correct

Edit 2
Tu peux aussi regarder dans l'aide à FormulaLocal... des fois ça aide ;)

Tu va rire, mais j'ai enlever le signe "=" dans ma formule et ca marchais...
Je vois pas pourquoi ca marcherais pas avec le signe "="...

Si quelqu'un a une piste ?

ça faisait 2 fois = ici

Code:

---

1 2	Ligne.Formula = "=Maformule"

---

En effet pour EXCEL seul une fois suffit ;) en l'occurence celui de gauche

En fait, nan, ca ne me le rajoute pas dans la feuille excell. Lorsque j'enlève le "=" de la formule, ca ne me mets pas l'égal devant la formule sur la feuille Excell.

Je vais essayer d'une autre manière.

Essaie de mettre ta formule en français et de l'insérer avec FormulaLocal. Là c'est testé et ça fonctionne avec le signe "=".

Merci cette réponse fonctionne bien, mais le problème n'était pas ici en fait. J'ai créer un autre sujet qui l'explique mieux.
J'en ai créer 2 pour bien scinder les 2 problèmes que je pensais avoir.