Recopie de formule sur les lignes paires seulement
4 réponses
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
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
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
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" <jthillard@gmail.com> a écrit dans le message de news:
b6883a21-57b3-49bc-9161-f4e48dce6dfb@googlegroups.com...
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
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
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
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.
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
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
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" <jthillard@gmail.com> a écrit dans le message de news:
245e1e67-abbf-45c9-ab07-3f86d9d94e63@googlegroups.com...
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.
....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
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
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
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