Discussion :

[beurnoir]

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 :

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

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

[ThierryAIM]

Code :

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

For i = -1 To -1

[beurnoir]

Oui j'ai mis :

Code :

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

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.

[ouskel'n'or]

Si tu peux faire ainsi

Code :

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

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+

[beurnoir]

J'ai fait la macro suivante :

Code :

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

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.

[ouskel'n'or]

Je viens de relire ton premier post...

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...
Pour sélectionner de A1 à ta premièrecellule vide, as-tu essayé

Code :

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

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

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

A+

[ouskel'n'or]

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 :

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

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

A+

[beurnoir]

Ok c'est bon ca fonctionne Merci bcp.