Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Recopie de formule sur les lignes paires seulement

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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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