simplifié une macro

[zumye]

bonsoir le forum
est -ce possible de simplifier la macro suivante? pour que toutes les lettres s'affiches d'un coup et non une par une.

Sub tube1()
'
' tube1 Macro
' Macro enregistrée le 01/02/2008 par user2
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("B18").Select
ActiveCell.FormulaR1C1 = "b"
Range("C18").Select
ActiveCell.FormulaR1C1 = "o"
Range("D18").Select
ActiveCell.FormulaR1C1 = "j"
Range("I19").Select
ActiveCell.FormulaR1C1 = "R"
Range("J19").Select
ActiveCell.FormulaR1C1 = "B"
Range("K19").Select
ActiveCell.FormulaR1C1 = "J"
Range("P19").Select
ActiveCell.FormulaR1C1 = "n"
Range("Q19").Select
ActiveCell.FormulaR1C1 = "b"
Range("AG19:AH19").Select
ActiveCell.FormulaR1C1 = "0.2"
Range("AD20").Select
End Sub


merci

 

[JNP]

Re : simplifié une macro

Bonjour Zumye 🙂,
Ne serais-ce que :

Sub tube1()
Range("B18").FormulaR1C1 = "b"
Range("C18").FormulaR1C1 = "o"
Range("D18").FormulaR1C1 = "j"
Range("I19").FormulaR1C1 = "R"
Range("J19").FormulaR1C1 = "B"
Range("K19").FormulaR1C1 = "J"
Range("P19").FormulaR1C1 = "n"
Range("Q19").FormulaR1C1 = "b"
Range("AG19:AH19").FormulaR1C1 = "0.2"
Range("AD20").Select
End Sub

devrait déjà accélérer le process...
Bonne soirée 😎

 

[zumye]

Re : simplifié une macro

merci jnp, bonne soirée*

 

[Staple1600]

Re : simplifié une macro

Bonsoir à tous

Une autre approche

Sub test()
Dim tab1() As Variant: Dim tab2() As Variant
Dim i As Integer
tab1 = Array("b", "o", "j"): tab2 = Array("R", "B", "J")
For i = 0 To 2
Cells(18, 2 + i) = tab1(i)
Cells(19, 9 + i) = tab2(i)
Next i
Range("P19") = "n"
Range("Q19") = "b"
Range("AG19:AH19").FormulaR1C1 = "0.2"
Range("AD20").Select
End Sub

 

[JCGL]

Re : simplifié une macro

Bonjour à tous,

Un peu plus court... que JNP 🙂

Sub tube1()
Range("B18").Formula = "b"
Range("C18").Formula = "o"
Range("D18").Formula = "j"
Range("I19").Formula = "R"
Range("J19").Formula = "B"
Range("K19").Formula = "J"
Range("P19").Formula = "n"
Range("Q19").Formula = "b"
Range("AG19:AH19").Formula = "0.2"
Range("AD20").Select
End Sub

A+