code qui ralentit mon système

[davidp]

Bonjour le forum ,

désolé de vous ennuyer à mon problème et merci d'avance.

Le code ci dessous a tendance à ralentir mon programme.

-il y a t il une possibilité de rendre plus light?

Private Sub CommandButton1_Click()

With Sheets("boulangerie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("poisson")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("fruit")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("charcuterie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("fromage")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("boucherie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("epicerie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("surgele")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("industrielle")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("rotisserie")
.Range("G6:G76").Value = TextBox1.Value
Unload Me
Nom.Show
End With
End With
End With
End With
End With
End With
End With
End With
End With
End With
End Sub


Merci d'avance et bonne journée

 

[PascalXLD]

Re : code qui ralentit mon système

Bonjour

Dans ton cas je ne vois pas l'interet du with

sinon essaies en ajoutant au debut

application.screenupdating=false

et remise à true à la fin

 

[davidp]

Re : code qui ralentit mon système

Merci Pascal XLD,

je n'ai pas réussi à faire fonctionner le code ci dessous.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("boulangerie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("poisson")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("fruit")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("charcuterie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("fromage")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("boucherie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("epicerie")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("surgele")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("industrielle")
.Range("G6:G76").Value = TextBox1.Value
With Sheets("rotisserie")
.Range("G6:G76").Value = TextBox1.Value
Unload Me
Nom.Show
Application.ScreenUpdating = True
End Sub

Je t'avoue que je suis perdu

Merci d'avance pour ton aide

 

[Bebere]

Re : code qui ralentit mon système

bonjour David,Pascal

une autre proposition

Private Sub CommandButton1_Click()
Dim Tbl As Variant
Dim I As Byte

Tbl = Array("boucherie", "boulangerie", "charcuterie", "epicerie", "fromage", _
"industrielle", "poisson", "rotisserie", "surgele")

Application.ScreenUpdating = False

For I = 1 To UBound(Tbl)
With Sheets(Tbl(I))
.Range("G6:G76").Value = TextBox1.Value
End With
Next I

Application.ScreenUpdating = True

Unload Me
Nom.Show

End Sub

à bientôt

 

[PascalXLD]

Re : code qui ralentit mon système

Re

En pricipe ça ne change rien à ton code la seulle différence c'est que ton affichage ne se raffraichit qu'à la fin ce qui fait gagné du temps

 

[Bebere]

Re : code qui ralentit mon système

j'en profite pour poser une question à Pascal
je m'initie au module de classe textbox
j'ai essayer les évènements,click,change,DblClick,etc,tous ok sauf exit pas de réaction
l'évènement n'est pas géré ou quoi

'le code module de classe ClassTextbox
'Garder le focus dans un TextBox tant qu'il est vide

Public WithEvents GroupeTextBox As MSForms.TextBox

Private Sub GroupeTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Byte

I = InStr(GroupeTextBox.Name, "TextBox")

If UserForm2.Controls("TextBox" & I).Value = "" Then Cancel = True

End Sub

à bientôt

 

[davidp]

Re : code qui ralentit mon système

Merci à tous les deux pour votre aide,

Cela fonctionne trés bien


Merci pour aide rapide

Pascal