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+