Microsoft 365 simplifier une macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2021

• #2

Bonsoir Gothc,
Un essai :

VB:

Sub Colle2()
    Application.ScreenUpdating = False
    With Sheets("test")
        .Range("b23") = Sheets("B").Range("h21")
        .Range("d23") = Sheets("B").Range("h23")
    End With
End Sub

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 25 Mai 2021

• #3

sylvanu à dit:

Bonsoir Gothc,
Un essai :

VB:

Sub Colle2()
    Application.ScreenUpdating = False
    With Sheets("test")
        .Range("b23") = Sheets("B").Range("h21")
        .Range("d23") = Sheets("B").Range("h23")
    End With
End Sub

Cliquez pour agrandir...

Merci beaucoup

​

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Mai 2021

• #4

Juste pour taquiner et dire bonjour à Sylvanu,
Bruno

VB:

Sub Colle2()
    Application.ScreenUpdating = False
    With Sheets("test")
        .[b23]= Sheets("B").[h21]
        .[d23]= Sheets("B").[h23]
    End With
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2021

• #5

Bonsoir Youky,

VB:

Sub Colle3()
    Application.ScreenUpdating = False: Set F = Sheets("B")
    With Sheets("test")
        .[b23] = F.[h21]: .[d23] = F.[h23]
    End With
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mai 2021

• #6

Re tout le monde,
Ou mieux en deux lignes :

VB:

Sub Colle4()
    Application.ScreenUpdating = False: Set D = Sheets("test"): Set S = Sheets("B")
    D.[b23] = S.[h21]: D.[d23] = S.[h23]
End Sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Mai 2021

• #7

Ha ! cette fois ça me conviens.
Toutes mes amitiés au Set
Bruno

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 26 Mai 2021

• #8

sylvanu à dit:

Re tout le monde,
Ou mieux en deux lignes :

VB:

Sub Colle4()
    Application.ScreenUpdating = False: Set D = Sheets("test"): Set S = Sheets("B")
    D.[b23] = S.[h21]: D.[d23] = S.[h23]
End Sub

Cliquez pour agrandir...

Bonjour sylvanu,

Bel exercice de style.
Une question. Pourquoi ne pas terminer par Application.ScreenUpdating = True ?
J'ai l'impression (car vu ailleurs) que ce n'est pas nécessaire, mais j'aimerais bien savoir pourquoi.

 

Dernière édition: 26 Mai 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mai 2021

• #9

Bonjour à tous
@Magic_Doctor
très bonne question
dans le sens ou selon les versions de Excel il n'y a pas le même comportement
sur 2007 par exemple une fois la macro fini donc après en (end sub) c'a revient a true automatiquement
sur 2013 il faut le remettre

cela dit entre nous ,pour 2 cellules dans cet exercice il n'est pas vraiment utile de déactiver le rafraîchissement

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 26 Mai 2021

• #10

Bonjour le fil, le forum

Suite à ce genre de problème, rencontré aussi avec Application.DisplayAlerts sur certaines versions, j'ai pris l'habitude, il y a des années, de toujours réactiver tout ce que je désactive, en le gérant également dans mes programmes avec une routine de gestion d'erreurs pour réactiver dans tous les cas. Je trouve de toute façon cela plus propre et ça fait ceinture et bretelles.

Bien cordialement, @+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 26 Mai 2021

• #11

Yeahou à dit:

ça fait ceinture et bretelles

Cliquez pour agrandir...

C'est ce que l'on pourrait appeler la stratégie Larry King.

 

Vote positif 0 Vote négatif