Fredox XLDnaute Occasionnel 1 Novembre 2013 #1 Bonjour, Est-il possible de faire mieux que de réécrire ma formule 30 fois ? Code: Range("M19").Value = "=J19+(L19*100)" il faudrait modifier les "19", de 19 à 49 Merci Dernière édition: 1 Novembre 2013
Bonjour, Est-il possible de faire mieux que de réécrire ma formule 30 fois ? Code: Range("M19").Value = "=J19+(L19*100)" il faudrait modifier les "19", de 19 à 49 Merci
gilbert_RGI XLDnaute Barbatruc 1 Novembre 2013 #2 Re : Macro: Répéter une formule sur plusieurs lignes Bonjour comme ceci Sub test() For i = 19 To 49 Range("M" & i).Value = "=J" & i & "+(L" & i & "*100)" Next End Sub Cliquez pour agrandir... Vote positif 0 Vote négatif
Re : Macro: Répéter une formule sur plusieurs lignes Bonjour comme ceci Sub test() For i = 19 To 49 Range("M" & i).Value = "=J" & i & "+(L" & i & "*100)" Next End Sub Cliquez pour agrandir...
mapomme XLDnaute Barbatruc Supporter XLD 1 Novembre 2013 #3 Re : Macro: Répéter une formule sur plusieurs lignes Bonsoir Fredox, Essayez: Range("M19:M49").Formula = "=J19+(L19*100)" Vote positif 0 Vote négatif
Re : Macro: Répéter une formule sur plusieurs lignes Bonsoir Fredox, Essayez: Range("M19:M49").Formula = "=J19+(L19*100)"
Fredox XLDnaute Occasionnel 1 Novembre 2013 #4 Re : Macro: Répéter une formule sur plusieurs lignes Merci Gilbert, Merci mapomme, les deux fonctionnent Merci. Vote positif 0 Vote négatif
Re : Macro: Répéter une formule sur plusieurs lignes Merci Gilbert, Merci mapomme, les deux fonctionnent Merci.
Staple1600 XLDnaute Barbatruc 2 Novembre 2013 #5 Re : Macro: Répéter une formule sur plusieurs lignes Bonjour à tous Une troisiéme pour varier les plaisirs Code: Sub b() [M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)" End Sub PS: Sinon sans macros, on insère la formule en M19, touche F5-> M19:M49, CTRL+B Dernière édition: 2 Novembre 2013 Vote positif 0 Vote négatif
Re : Macro: Répéter une formule sur plusieurs lignes Bonjour à tous Une troisiéme pour varier les plaisirs Code: Sub b() [M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)" End Sub PS: Sinon sans macros, on insère la formule en M19, touche F5-> M19:M49, CTRL+B
gilbert_RGI XLDnaute Barbatruc 2 Novembre 2013 #6 Re : Macro: Répéter une formule sur plusieurs lignes Staple1600 à dit: Bonjour à tous Une troisiéme pour varier les plaisirs Code: Sub b() [M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)" End Sub Ne copie la formule que sur 29 lignes ! ? Cliquez pour agrandir... Vote positif 0 Vote négatif
Re : Macro: Répéter une formule sur plusieurs lignes Staple1600 à dit: Bonjour à tous Une troisiéme pour varier les plaisirs Code: Sub b() [M19].Resize(30).FormulaR1C1 = "=RC[-3]+(RC[-1]*100)" End Sub Ne copie la formule que sur 29 lignes ! ? Cliquez pour agrandir...