Bonsoir à tous.
Je rencontre deux problèmes avec ce code.
'Bouton Suppression
Private Sub CommandButton7_Click()
If ComboBox1.Value = "" Then
MsgBox ("Veuillez selectionner la Société à supprimer")
Else
If MsgBox("Confirmez-vous la Société ?", vbYesNo, "Confirmation") = vbYes Then
ActiveSheet.Unprotect "0"
Rows([B2:I100].Find(ComboBox1.Value).Row).EntireRow.Delete
Sheets("VDD").Protect "0"
Range("B2").Select
MsgBox ("Suppression effectuée")
Unload UserForm2
End If
End If
End Sub
1 er point:
Alors il fonctionne et fait le travail demandé, mais par contre il est extrêmement lent au moins 10 secondes pour s’exécuter.
Je n'arrive pas à trouver où est le problème.
Quelqu'un pourrait me le rendre plus rapide svp ?
2ème point :
Tel qu'il conçu il me supprime la ligne qu'il trouve via la valeur indiquée dans une combobox.
Avec "EntireRow.Delete".
Je souhaiterai plutôt qu'une suppression de ligne, un effacement des valeurs de la ligne. "ClearContents".
Mais là aussi je pêche sans trouver comment lui indiquer cette tâche.
Merci à ceux qui pourraient m'aider.
@+...
Je rencontre deux problèmes avec ce code.
'Bouton Suppression
Private Sub CommandButton7_Click()
If ComboBox1.Value = "" Then
MsgBox ("Veuillez selectionner la Société à supprimer")
Else
If MsgBox("Confirmez-vous la Société ?", vbYesNo, "Confirmation") = vbYes Then
ActiveSheet.Unprotect "0"
Rows([B2:I100].Find(ComboBox1.Value).Row).EntireRow.Delete
Sheets("VDD").Protect "0"
Range("B2").Select
MsgBox ("Suppression effectuée")
Unload UserForm2
End If
End If
End Sub
1 er point:
Alors il fonctionne et fait le travail demandé, mais par contre il est extrêmement lent au moins 10 secondes pour s’exécuter.
Je n'arrive pas à trouver où est le problème.
Quelqu'un pourrait me le rendre plus rapide svp ?
2ème point :
Tel qu'il conçu il me supprime la ligne qu'il trouve via la valeur indiquée dans une combobox.
Avec "EntireRow.Delete".
Je souhaiterai plutôt qu'une suppression de ligne, un effacement des valeurs de la ligne. "ClearContents".
Mais là aussi je pêche sans trouver comment lui indiquer cette tâche.
Merci à ceux qui pourraient m'aider.
@+...