Autofill avec VBA

wilfried_42

XLDnaute Barbatruc

• 9 Mai 2009

• #2

Re : Autofill avec VBA

bonjour

essaye ca

Code:

Range("A2:A72").filldown

 

Vote positif 0 Vote négatif

L

Laurent691

Guest

• 9 Mai 2009

• #3

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)

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 9 Mai 2009

• #4

Re : Autofill avec VBA

Bonjour à tous, wilfried_42, Laurent691

Peut-être comme ça

Code:

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

 

Vote positif 0 Vote négatif

L

Laurent691

Guest

• 9 Mai 2009

• #5

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 😀

 

Pièces jointes

• exemplelaurent.xls

  21.5 KB · Affichages: 407

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 9 Mai 2009

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

L

Laurent691

Guest

• 9 Mai 2009

• #7

Re : Autofill avec VBA

wilfried_42 à dit:

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 :

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 10 Mai 2009

• #8

Re : Autofill avec VBA

re:

Code:

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

 

Vote positif 0 Vote négatif

L

Laurent691

Guest

• 10 Mai 2009

• #9

Re : Autofill avec VBA

merci mais ça marche toujours pas^^

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Mai 2009

• #10

Re : Autofill avec VBA

Bonjour à tous

Un petit classeur "exemple" serait le bienvenu.

A plus

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 10 Mai 2009

• #11

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

 

Vote positif 0 Vote négatif

L

Laurent691

Guest

• 10 Mai 2009

• #12

Re : Autofill avec VBA

Ok ça marche, merci à ts

 

Vote positif 0 Vote négatif