Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

Recopie de formule sur les lignes paires seulement

4 réponses
Avatar
JP
Bonjour,

J'ai un petit probl=E8me concernant l'utilisation autofill destination.
Je voudrais recopier une formule sur une plage de donn=E9es mais seulement =
sur les lignes paires.
En ce moment j'ai ce code:

' recopie les formules=20
Range("D12:K12").Select
Selection.AutoFill Destination:=3DRange("D12:K86"), Type:=3DxlF=
illDefault

Est-ce qu'une solution existe?

Merci

JP

4 réponses

Avatar
Jacky
Bonjour,

Si la ligne du dessous est libre de données
'-----------
[D12:K13].AutoFill Destination:=Range("D12:K86"), Type:=xlFillDefault
'-------------

Sinon une boucle ??
'-------------
Sub jj()
Dim i As Long, x As String
Application.ScreenUpdating = False
x = Application.Calculation
Application.Calculation = xlCalculationManual
With Feuil1
.[d12:k12].Copy
For i = 14 To 86 Step 2
.Cells(i, 4).PasteSpecial Paste:=xlPasteFormulas
Next
End With
Application.Calculation = x
Application.ScreenUpdating = True
End Sub
'---------------------
Salutations
JJ


"JP" a écrit dans le message de news:

Bonjour,

J'ai un petit problème concernant l'utilisation autofill destination.
Je voudrais recopier une formule sur une plage de données mais seulement sur les lignes paires.
En ce moment j'ai ce code:

' recopie les formules
Range("D12:K12").Select
Selection.AutoFill Destination:=Range("D12:K86"), Type:=xlFillDefault

Est-ce qu'une solution existe?

Merci

JP
Avatar
JP
Bonjour Jacky,

La ligne du dessous est libre provisoirement. Elle recevra une formule dans les lignes suivantes du code.
Je vais essayer avec ta solution pour la mise en place de la formule sur le s lignes paires et la boucle pour les ligne impaires.

Peut être que quelqu'un d'autre aura une idée.

Merci en attendant.

JP
Avatar
Jacky
Re...

....la formule sur les lignes paires et la boucle pour les ligne impaires
Je saisie pas ton problème
[D12:K13].AutoFill Destination:=Range("D12:K86"), Type:=xlFillDefault
fait les 2... non ?
--
Salutations
JJ


"JP" a écrit dans le message de news:

Bonjour Jacky,

La ligne du dessous est libre provisoirement. Elle recevra une formule dans les lignes suivantes du code.
Je vais essayer avec ta solution pour la mise en place de la formule sur les lignes paires et la boucle pour
les ligne impaires.

Peut être que quelqu'un d'autre aura une idée.

Merci en attendant.

JP
Avatar
JP
Bonjour Jacky,

Désolé de ne donner suite que seulement.
En fait j'ai trouvé la solution.
J'ai mis la première formule en D12:K12 et la deuxième en D13:K13
Ensuite comme tu dis j'ai fait
D12:K13].AutoFill Destination:=Range("D12:K86"), Type:=xlFillDefault

Tout est ok.

Merci pour ton aide.

JP