Discussion :

[Swiper]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Swiper]

Ouinnnn, cela ne fonctionne pas...

Voici le code que j'ai modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[ouskel'n'or]

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

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

[zerti]

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

[Swiper]

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 ?