Raccourcir formule

T

Theze

XLDnaute Occasionnel

• 14 Mai 2018

• #2

Bonjour,

Une piste :

Code:

Sub Macro3()

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

End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mai 2018

• #3

Bonsoir le fil, fleet21, Theze

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

VB:

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 14 Mai 2018

• #4

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

Merci Theze, Staple1600.

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 14 Mai 2018

• #5

Et raccourci les deux lignes de code suivantes possible ? :

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 14 Mai 2018

• #6

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

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Mai 2018

• #7

Bonsoir @Staple1600 , fleet21, Theze,

Staple1600 à dit:

Bonsoir le fil, fleet21, Theze

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

VB:

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

Cliquez pour agrandir...

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.

 

Pièces jointes

• Bordure init.jpg

  104.4 KB · Affichages: 37

Dernière édition: 15 Mai 2018

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 15 Mai 2018

• #8

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 15 Mai 2018

• #9

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.

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 15 Mai 2018

• #10

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

F

fleet21

XLDnaute Junior

• 15 Mai 2018

• #11

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".

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2018

• #12

Bonjour à tous,

fleet21 à dit:

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".

Cliquez pour agrandir...

Ah le cambouis...

Code:

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

A+

 

Vote positif 0 Vote négatif