Autofill avec VBA

[Laurent691]

Slt à ts, j'ai un petit soucis :

j'ai un tableau avec des cases remplis dans la ligne 1 : par exemple de A1 à Z1

Dans ligne 2 (cellule A2) j'ai fait un calcul que j'aimerais automatiser avec du code jusqu'à la cellule Z2


on peut faire comme ça :
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:Z2"), Type:=xlFillDefault

mais en fait le nombre de valeurs peut varier dans la ligne 1 (de A1 à ??)
il faudrait donc que l'autofill de la ligne 2 se fasse automatiquement jusqu'à la dernière cellule de la ligne 1.

je sais pas si je suis clair dites le moi

 

[wilfried_42]

Re : Autofill avec VBA

bonjour

essaye ca

Range("A2:A72").filldown

 

[Laurent691]

Re : Autofill avec VBA

slt wilfried, en fait j'ai pas trop compris pourquoi de A2 à A72 (ça correspond à une colonne alors que moi c'est en ligne)

 

[soenda]

Re : Autofill avec VBA

Bonjour à tous, wilfried_42, Laurent691

Peut-être comme ça

Range(Cells(2, 1), Cells(2, [A1].End(xlToRight).Column)).FillRight

Par habitude j'utilisais toujours la méthode AutoFill ... Jusqu'à aujourd'hui.

Merci wilfried

A plus

 

[Laurent691]

Re : Autofill avec VBA

ça marche pas tout à fait, j'ai essayé avec un exemple simple

dans la ligne 2, je veux faire aligner la suite 1,3, 5...

mais ça met que des 1

 

[wilfried_42]

Re : Autofill avec VBA

re: à tous

le problème avec autofill avec des valeurs (Suites logiques) et non pas des formules, c'est qu'excel doit connaître la logique de la suite pour la réaliser.
avec les formules c'est plus simple avec filldown, right

donc pour lui 2 cellules suffisent :

Sub essai()
    Range("A2").Value = "1"
    Range("B2").Value = "3"
    Range("A2:B2").autofill Destination:=Range("A2:L2"), Type:=xlFillDefault
End Sub

 

[Laurent691]

Re : Autofill avec VBA

re: à tous

le problème avec autofill avec des valeurs (Suites logiques) et non pas des formules, c'est qu'excel doit connaître la logique de la suite pour la réaliser.
avec les formules c'est plus simple avec filldown, right

donc pour lui 2 cellules suffisent :

Sub essai()
    Range("A2").Value = "1"
    Range("B2").Value = "3"
    Range("A2:B2").autofill Destination:=Range("A2:L2"), Type:=xlFillDefault
End Sub

merci,
ouais ça marche mais je souhaite faire ce processus sur plusieurs feuilles, la fin de l'autofill varie suivant les feuilles, donc il faudrait un autofill de A2 jusqu'à la dernière cellule non vide de la première ligne

 

[wilfried_42]

Re : Autofill avec VBA

re:

Sub essai()
    Range("A2").Value = "1"
    Range("B2").Value = "3"
    Range("A2:B2").autofill Destination:=Range("A2:L" & range("IV1").end(xltoleft).column), Type:=xlFillDefault
End Sub

 

[Laurent691]

Re : Autofill avec VBA

merci mais ça marche toujours pas^^

 

[soenda]

Re : Autofill avec VBA

Bonjour à tous

Un petit classeur "exemple" serait le bienvenu.

A plus

 

[Jacou]

Re : Autofill avec VBA

Bonjour,


Range("A2").Select
Selection.AutoFill Destination:=Range("A2", Cells(2, Range("A1").End(xlToRight).Column)), Type:=xlFillDefault

mais cela suppose qu'il n'y a pas de cellule vide dans la ligne 1 avant la dernière cellule.

sinon,
Selection.AutoFill Destination:=Range(Cells(2, 1), Cells(2, Cells(1, 16384).End(xlToLeft).Column)), Type:=xlFillDefault
permet d'avoir une cellule vide dans la collection

bonne fin de dimanche

 

[Laurent691]

Re : Autofill avec VBA

Ok ça marche, merci à ts