Bonjour le forum,
Grâce à toutes les aides reçues sur ce forum et pour lesquelles je remercie encore Pierrot, Kjin, Phlaurent, Youki (Bj), et tous les autres… j’ai 2 macros mais celles-ci sont très lente à l’exécution, est-il possible de ralentir l’exécution de celles-ci svp ?
Merci à tous pour l’attention que vous apporterez à cette demande et excellente journée.
Christine
Voici les 2 Macros (désolée si texte très long mais n’ai pas encore trouvé le système pour avoir la fenêtre avec les codes !!)
PREMIERE MACRO :Private Sub CommandButton3_Click()
If MsgBox("Avez-vous encodés les modifications dans les champs ci-dessus", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
'Le code à exécuter si on répond 'oui' à la msgbox
Else
'Le code à exécuter si on répond 'non'
Dim li As Integer 'déclare la variable li (LIgne)
Workbooks("copy.xls").Activate
Sheets("Master").Select
[Master!d2] = TextBox1
[Master!d3] = TextBox2
[Master!d4] = TextBox3
[Master!d5] = TextBox4
[Master!d6] = TextBox5
[Master!d7] = TextBox6
[Master!d8] = TextBox7
[Master!d9] = TextBox8
Workbooks("Offres.xls").Activate
Worksheets("Clients").Activate
li = Sheets("clients").Columns(1).Find(TextBox9.Value, , xlValues, xlWhole).Row
Cells(li, 2).Value = Me.TextBox1.Value
Cells(li, 3).Value = Me.TextBox2.Value
Cells(li, 4).Value = Me.TextBox3.Value
Cells(li, 5).Value = Me.TextBox4.Value
Cells(li, 6).Value = Me.TextBox5.Value
Cells(li, 7).Value = Me.TextBox6.Value
Cells(li, 8).Value = Me.TextBox7.Value
Cells(li, 9).Value = Me.TextBox8.Value
End If
ActiveWorkbook.Save
Workbooks("Offres.xls").Activate
Sheets("MENU").Select
Unload Me
Corps_offre.Show
End Sub
DEUXIEME MACRO :
Private Sub CommandButton5_Click()
If MsgBox("Confirmez-vous la suppression de ce client?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Dim li As Integer 'déclare la variable li (LIgne)
Dim rng As Range
Dim txd, txi As String
If TextBox9 = "" Then Exit Sub
txd = TextBox9.Value
txi = TextBox9.Value
Do
Workbooks("Offres.xls").Activate
Worksheets("Clients").Activate
Set rng = Range("A:A").Find(txd)
Set rng = Range("A:A").Find(txi)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
ActiveWorkbook.Save
Sheets("MENU").Activate
End If
End Sub
Grâce à toutes les aides reçues sur ce forum et pour lesquelles je remercie encore Pierrot, Kjin, Phlaurent, Youki (Bj), et tous les autres… j’ai 2 macros mais celles-ci sont très lente à l’exécution, est-il possible de ralentir l’exécution de celles-ci svp ?
Merci à tous pour l’attention que vous apporterez à cette demande et excellente journée.
Christine
Voici les 2 Macros (désolée si texte très long mais n’ai pas encore trouvé le système pour avoir la fenêtre avec les codes !!)
PREMIERE MACRO :Private Sub CommandButton3_Click()
If MsgBox("Avez-vous encodés les modifications dans les champs ci-dessus", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
'Le code à exécuter si on répond 'oui' à la msgbox
Else
'Le code à exécuter si on répond 'non'
Dim li As Integer 'déclare la variable li (LIgne)
Workbooks("copy.xls").Activate
Sheets("Master").Select
[Master!d2] = TextBox1
[Master!d3] = TextBox2
[Master!d4] = TextBox3
[Master!d5] = TextBox4
[Master!d6] = TextBox5
[Master!d7] = TextBox6
[Master!d8] = TextBox7
[Master!d9] = TextBox8
Workbooks("Offres.xls").Activate
Worksheets("Clients").Activate
li = Sheets("clients").Columns(1).Find(TextBox9.Value, , xlValues, xlWhole).Row
Cells(li, 2).Value = Me.TextBox1.Value
Cells(li, 3).Value = Me.TextBox2.Value
Cells(li, 4).Value = Me.TextBox3.Value
Cells(li, 5).Value = Me.TextBox4.Value
Cells(li, 6).Value = Me.TextBox5.Value
Cells(li, 7).Value = Me.TextBox6.Value
Cells(li, 8).Value = Me.TextBox7.Value
Cells(li, 9).Value = Me.TextBox8.Value
End If
ActiveWorkbook.Save
Workbooks("Offres.xls").Activate
Sheets("MENU").Select
Unload Me
Corps_offre.Show
End Sub
DEUXIEME MACRO :
Private Sub CommandButton5_Click()
If MsgBox("Confirmez-vous la suppression de ce client?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Dim li As Integer 'déclare la variable li (LIgne)
Dim rng As Range
Dim txd, txi As String
If TextBox9 = "" Then Exit Sub
txd = TextBox9.Value
txi = TextBox9.Value
Do
Workbooks("Offres.xls").Activate
Worksheets("Clients").Activate
Set rng = Range("A:A").Find(txd)
Set rng = Range("A:A").Find(txi)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
ActiveWorkbook.Save
Sheets("MENU").Activate
End If
End Sub