Raccourcir formule

[fleet21]

Bonsoir,

je voudrais savoir si cette petite macro peut être raccourcie :

Sub Macro3()

Range("B1:C37").Select

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With

End Sub

Soit en gardant les deux conditions (Linestyle + Weight) soit une seule (Weight).

Merci d'avance

 

[Theze]

Bonjour,

Une piste :

Sub Macro3()

    With Range("B1:C37").Borders(10)
        .LineStyle = 1
        .Weight = -4138
    End With

End Sub

 

[Staple1600]

Bonsoir le fil, fleet21, Theze

Sur Excel 2013, ceci semble produire le même effet.

Sub Macro1()
[C1:C37].Borders(10).Weight = -4138
End Sub

 

[fleet21]

je recherchai quelquechose de condensé comme dans l'exemple de Staple1600.

Merci Theze, Staple1600.

 

[fleet21]

Et raccourci les deux lignes de code suivantes possible ? :

Range("B" & ligne).Select
ActiveSheet.Paste

 

[fleet21]

Possible de synthétiser ces deux lignes en une seule ?

Range("J15:K15").Select
Selection.Copy

 

[mapomme]

Bonsoir @Staple1600 😉, fleet21, Theze,

Bonsoir le fil, fleet21, Theze

Sur Excel 2013, ceci semble produire le même effet.

Sub Macro1()
[C1:C37].Borders(10).Weight = -4138
End Sub

En 2010, ça ne marche pas dans tous les cas de figure. Si la bordure C1:C37 droite est déjà en pointillé (tiret épais ou bien point-tiret épais) - voir image jointe- , la macro ne change pas le style pointillé en trait continu.

 

[fleet21]

Bonjour mapomme,
en effet le style pointillé n'est pas modifié avec ce code puisque le linestyle n'est plus paramètré.

 

[fleet21]

Staple1600,

J'y met pourtant les deux mains 😉 mais je ne trouve pas le moteur de recherche pertinent en terme de réponse car la mienne n'est pas ressortie hier soir et ce n'est pas la première fois.

 

[Theze]

Bonjour,

Il n'est pas toujours judicieux de copier car tout est embarqué, une simple affectation des valeurs peut suffire :

Range("M15:N15").Value = Range("J15:K15").Value

 

[fleet21]

Oui je suis d'accord, mon problème est que le numéro de ligne est une variable et la formule suivante ne passe pas :
Range("B" & ligne : "C" & ligne).Value = Range("J14:K14").Value
Le souci semble être sur les premiers "deux points".

 

[job75]

Bonjour à tous,

la formule suivante ne passe pas :
Range("B" & ligne : "C" & ligne).Value = Range("J14:K14").Value
Le souci semble être sur les premiers "deux points".

Ah le cambouis...

Range("B" & ligne & ":C" & ligne) = Range("J14:K14").Value

A+