Copie selon la taille de range

bonjour

j'ai 2 feuilles

feuil1 colonne A est vide & colonne B a des valeurs sur x lignes à partir de B2

feuil2 avec en B2 = 999

j'aimerai pouvoir insérer la valeur de B2 de la feuil2 dans la colonne A de la feuil1 selon la range hauteur de B.

(Set myRange = Range("B" & Rows.Count).End(xlUp))

exemple :

Feuil1

avant

colonne...........A...............B

ligne2..............__..............xx

ligne3..............__..............xx

ligne3..............__..............xx

ligne4..............__..............xx

apres

colonne...........A...............B

ligne2..............999..............xx

ligne3..............999..............xx

ligne3..............999..............xx

ligne4..............999..............xx

Merci.

Salut bbto,

une formule en [A2] et tu double-cliques sur le petit carré de recopie.

=Feuil2!$B$2

Ou, en VBA, en cliquant sur [A2]. La macro démarre si [A2] est vide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Worksheets("Feuil1").[A2]) Is Nothing Then
    If Target = "" Then Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "=Feuil2!$B$2"
End If
'
End Sub

A+

merci de m'avoir mis sur la voie..ça marche.

nom_f = Sheets("caté").Range("B1").Value

If nom_f > 0 Then

Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = nom_f

End If