[VBA-E] Problème Action "Autofill"

Bjr,

Je désire réaliser un "Autofill" (Etendre une valeur présente dans la première cellule de la colonne A jusqu'a la premiere cellule vide de la colonne B).
Le problème est au niveau de ma "Destination" car ma premiere cellule vide de B change régulièrement.

J'ai réalisé le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1()   Dim C As Variant   For i = -1 To -1   C = ActiveCell.End(xlDown)(2).Select C.Offset(i, -1).Select   Next i   End Sub

---

J'ai l'erreur suivante : Erreur définie par l'application ou par l'objet.

Est il possible de corriger cette erreur ou conaissez vous une autre solution qui fonctionne??

Merci

Citation:

---

Envoyé par beurnoir

Code:

---

For i = -1 To -1

---

---

8O 8O

Oui j'ai mis :

Code:

---

For i = -1 To -1

---

Car je veux sélectionner la cellule en haut a gauche de la permiere cellule vide de la colonne B.

Je vois pas comment faire autrement j'ai essayé d'autre solution rien ne marche.

Si tu peux faire ainsi

Code:

---

1 2 3 4 5 6

For i = 1 To 1   C = ActiveCell.End(xlDown)(2).Select C.Offset(i-1, -1).Select   Next i

---

A+

J'ai fait la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 28/10/2005 par pommbe01   Dim C As Variant   For i = 1 To 1   C = ActiveCell.End(xlDown)(2).Select C.Offset(i - 1, -1).Select   Next i

---

Mais ca na marche pas. :cry:

Je viens de relire ton premier post...

Citation:

---

Etendre une valeur présente dans la première cellule de la colonne A jusqu'a la premiere cellule vide de la colonne B).

---

... et évidemment, ma proposition était une bêtise... :oops:
Pour sélectionner de A1 à ta premièrecellule vide, as-tu essayé

Code:

---

Range(Cells(1, 1), Cells(ActiveCell.CurrentRegion.End(xlDown).Row, 2)).Select

---

Tu remplaces par des variables là où tu souhaites les y retrouver... :wink:

A+

J'ajoute une remarque à mon post précédent :
Avec la syntaxe que je t'ai donnée, tu sélectionnes jusqu'à la dernière cellule renseignée de la colonne A. Si des cellules de la colonne B sont renseignées en dessous de cette ligne, tu ne les sélectionnes pas.
J'écrirais ça en trois lignes pour être sûr d'avoir la dernière ligne de la colonne B

Code:

---

1 2 3

Cells(1,2).select DernièreLigneColonneB = ActiveCell.CurrentRegion.End(xlDown).Row Range(Cells(1, 1), DernièreLigneColonneB, 2)).Select

---

A+

Ok c'est bon ca fonctionne Merci bcp.