Discussion :

[hicham28]

Bonjour,
Merci en avance de votre aide,
J’ai eu ce code dans un forum, Je pense que ça réponds a mon objectif pour recopier les fonctions du linge précèdent sur une feuil de calcule, mais j’arrive pas a paramètre merci de m’avoir expliquer.

Code :

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

1
2
3
4
5
6
7
Dim Fin As Integer
Range("a6").Select
Fin = Range("a1").End(xlDown).Row
Range("b1").Copy
Range("b1:D" & Fin).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

[mercatog]

Tu as une formule en B1 et tu veux la copier dans B1.Dfin
je propose autofill

Code :

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

1
2
3
4
Dim Fin As Long
Fin = Range("A1").End(xlDown).Row
Range("B1").AutoFill Destination:=Range("B1:D1")
Range("B1:D1").AutoFill Destination:=Range("B1:D" & Fin)

[hicham28]

merci pour ta reponse,
Normalement le code sert a recopier la formules de B1 C1 D1, a conditions que la cellule A correspondante a la linge ne soit pas vide. le problemes c'est quand je change la cellule de depart A6 ca n'amene a rien. je comprends rien ...
merci

[mercatog]

Le

Code :

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

Fin = Range("A1").End(xlDown).Row

s'arrête à la première cellule vide de la colonne A.
essaie ceci

Code :

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

1
2
3
4
5
Dim Fin As Long, i As Long
Fin = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Fin
    If Range("A" & i).Value <> "" Then Range("B1:D1").Copy Range("B" & i & ":D" & i)
Next i

[hicham28]

merci, je l'es presenter comme suite, est ce que c'est correcte?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fin As Long, i As Long
Fin = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Fin
    If Range("A" & i).Value <> "" Then Range("B1:D1").Copy Range("B" & i & ":D" & i)
Next i
End Sub

et si j'aimerai changer le point de depart pour la colonne A je dois faire comment?
merci c'est gentil

[mercatog]

Tu veux que la copie ne commence qu'après la ligne 6 ou quoi?