Message derreur VBA

Bonjour à tous,

J'ai un problème sur VBA : lors de l'exécution d'une macro, un message d'erreur apparait :

" Mémoire insuffisante pour afficher en entier".

J'ai testé application.displayalerts = false mais rien n'a y faire, le message s'affiche toujours

Voici la macro en question, je serai reconnaissant des réponses que vous pourrez m'apportez pour résoudre ce problème

Florent.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." & Chr(10) _

& "Pour fermer cette boîte de dialogue, veuillez utiliser le bouton Annuler"

Cancel = True

End If

End Sub

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

If ComboBox1.Value = "" Then

MsgBox "Veuillez sélectionner une catégorie de produits", vbExclamation, "Choix de la catégorie"

End If

If TextBox2.Value = "" Then

MsgBox "Veuillez saisir une désignation de produit", vbExclamation, "Saisie de la désignation"

End If

If TextBox3.Value = "" Then

MsgBox "Veuillez saisir le poids unitaire de la palette", vbExclamation, "Saisie du poids"

End If

If TextBox4.Value = "" Then

MsgBox "Veuillez saisir le prix unitaire de la palette", vbExclamation, "Saisie du prix"

End If

If ComboBox2.Value = "" Then

MsgBox "Veuillez sélectionner votre ville d'expédition 1", vbExclamation, "Choix de la ville d'expédition 1"

End If

If ComboBox3.Value = "" Then

MsgBox "Veuillez sélectionner votre ville d'expédition 2", vbExclamation, "Choix de la ville d'expédition 2"

Else

' tri successif : par catégorie produit et ensuite par désignation produit

Columns("B:G").Select

ActiveWorkbook.Worksheets("produits").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("produits").Sort.SortFields.Add Key:=Range("C2:C46" _

), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("produits").Sort.SortFields.Add Key:=Range("B2:B46" _

), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("produits").Sort

.SetRange Range("B1:G46")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=-9

ActiveSheet.Protect Password:="dugol"

Unload nouveau_produit

Sheets("produits").Select

End If

End Sub

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Rows("10:10").Select

Selection.Delete Shift:=xlUp

Unload nouveau_produit

Sheets("produits").Select

Range("H7").Select

ActiveSheet.Protect Password:="dugol"

End Sub

Salut Florent B et le forum

J'ai testé application.displayalerts = false mais rien n'a y faire, le message s'affiche toujours

Si les messages d'alerte ne disparaissent pas... peut-être qu'ils ne viennent pas d'Excel.

A+