Selection.autofill

[spitfire378]

Bonjour je voudrais savoir si il est possible de faire un selection.autofill d'une colonne de la taille d'une valeur max contenue dans une autre colonne

Dans mon fichier exemple. J'ai une colonne A comprenant une valeur maximale égale a 18, j'aimerai que le selection.autofill de la seconde colonne soit de la taille de cette valeur maximale.

J'espere avoir été claire même si j'en doute. 😕

Merci d'avance en tous cas

 

[Staple1600]

Re : Selection.autofill

Bonjour



Si j'ai bien compris

[I] Sub selectB()
Range("B1:B" & [A65536].End(xlUp).Row).Select
End Sub
[/I]

EDITION:

[B]Sub test_deux()
With [B1]
    .Value = 1
    .AutoFill Destination:=Range("B1:B" & [A65536].End(xlUp).Row)
End With
End Sub
[/B]

Sub test_trois()
With [B1]
    .FormulaLocal = "=AUJOURDHUI()"
    .AutoFill Destination:=Range("B1:B" & [A65536].End(xlUp).Row)
End With
End Sub

 

[spitfire378]

Re : Selection.autofill

Arf c'est pas ca, en faite j'ai une formule en B1 et je voudrais que cette formule s'adapte a la plage comprise entre B1 et B(valeur maximale contenue dans la colonne A), en l'occurence B18, mais ca pourait être 32 a la place de 18 et a ce moment mon selection.autofill irait de B1 a B32


Pas facile a expliquer désolé 😕

 

[tototiti2008]

Re : Selection.autofill

Bonjour à tous,

[B]Sub test_quatre()
With [B1]
    .AutoFill Destination:=Range("B1:B" & application.worksheetFunction.max(Range("A:A")))
End With
End Sub
[/B]

 

[tototiti2008]

Re : Selection.autofill

Bonjour Staple1600,

je ne sais pas trop quand spitfire dit :

valeur maximale contenue dans la colonne A

s'il veux dire la dernière ligne remplie ou vraiment la valeur maximale contenue dans la colonne, alors j'ai proposé une solution avec la valeur maximale.

mais c'est toujours un plaisir de te lire, Staple 😉

 

[spitfire378]

Re : Selection.autofill

Vraiment désolé d'avoir été peu clair, en fin de compte c'est la version de tototiti2008 qui correspond a ce dont j'ai besoin. Merci a vous