Excel a rencontré un problème et doit fermé
SABHARZALI
-
SABHARZALI Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
SABHARZALI Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous
J'ai vraiment du mal à utiliser mon classeur excel 2007 sous windows XP et qui contient des macros.
en fait chaque fois que j importe des modifications sur mon classeur et que j'enregistre ce dernier j'ai ce message d'erreur "excel a rencontré un problème et doit fermé" et bien évidemment je perds toutes les modifications. c'est vraiment pénible surtout qu'il s'agit d'un classeur de gestion de vente et suivi de paiement clients et fournisseur.
a titre d infos j utilise d'autres classeurs ne contenant pas des macros et ils fonctionnent correctement.
Merci pour votre aide.
J'ai vraiment du mal à utiliser mon classeur excel 2007 sous windows XP et qui contient des macros.
en fait chaque fois que j importe des modifications sur mon classeur et que j'enregistre ce dernier j'ai ce message d'erreur "excel a rencontré un problème et doit fermé" et bien évidemment je perds toutes les modifications. c'est vraiment pénible surtout qu'il s'agit d'un classeur de gestion de vente et suivi de paiement clients et fournisseur.
a titre d infos j utilise d'autres classeurs ne contenant pas des macros et ils fonctionnent correctement.
Merci pour votre aide.
A voir également:
- Excel a rencontré un problème et doit fermé
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Trier un tableau excel - Guide
- Déplacer colonne excel - Guide
5 réponses
Bonjour,
Il s'agit d'un problème de syntaxe dans une macro qui bloque Excel, mais il est impossible d'aller plus loin dans la réponse sans connaitre le code et voir quelle ligne du code se met en erreur?
lorsque le code plante vas faire un tour dans le visual basic et regarde quelle ligne est en jaune
Il s'agit d'un problème de syntaxe dans une macro qui bloque Excel, mais il est impossible d'aller plus loin dans la réponse sans connaitre le code et voir quelle ligne du code se met en erreur?
lorsque le code plante vas faire un tour dans le visual basic et regarde quelle ligne est en jaune
merci pour votre attention.
lorsque le problème figure, j ai le message d erreur ensuite excel se ferme automatiquement et je n ai pas un visuel sur le code VBA qui provoque le problème
lorsque le problème figure, j ai le message d erreur ensuite excel se ferme automatiquement et je n ai pas un visuel sur le code VBA qui provoque le problème
Re,
Il faudrait voir tes codes ou avoir ton fichier pour en dire plus
Il faudrait voir tes codes ou avoir ton fichier pour en dire plus
Option Explicit
Sub listenonencaisser()
Dim sh As Object
Dim shrec As Worksheet
Dim va As Variant, li As Integer
Set shrec = Sheets("RECAP")
shrec.Range("A2:C" & shrec.Cells(Rows.Count, 1).End(xlUp).Row + 1).Clear
li = 2
For Each sh In Worksheets
If sh.Name <> "RECAP" And sh.Name <> "paramètres" Then
For Each va In sh.Range("F13:F" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
If va <= Date And va.Offset(0, 7) <> "ENCAISSE" Then
shrec.Cells(li, 1) = sh.Cells(1, 4).Value
shrec.Cells(li, 2) = va.Offset(0, -4).Value
shrec.Cells(li, 3) = va.Offset(0, 3).Value
li = li + 1
End If
Next va
End If
Next sh
Set shrec = Nothing
End Sub
Sub listenonencaisser()
Dim sh As Object
Dim shrec As Worksheet
Dim va As Variant, li As Integer
Set shrec = Sheets("RECAP")
shrec.Range("A2:C" & shrec.Cells(Rows.Count, 1).End(xlUp).Row + 1).Clear
li = 2
For Each sh In Worksheets
If sh.Name <> "RECAP" And sh.Name <> "paramètres" Then
For Each va In sh.Range("F13:F" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
If va <= Date And va.Offset(0, 7) <> "ENCAISSE" Then
shrec.Cells(li, 1) = sh.Cells(1, 4).Value
shrec.Cells(li, 2) = va.Offset(0, -4).Value
shrec.Cells(li, 3) = va.Offset(0, 3).Value
li = li + 1
End If
Next va
End If
Next sh
Set shrec = Nothing
End Sub
Option Explicit
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
ListerOnglets2
ComboBox1.ListIndex = 0
End Sub
Sub ListerOnglets2()
' Liste les onglets de type "Feuille" et "Graphique"
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
ListerOnglets2
ComboBox1.ListIndex = 0
End Sub
Sub ListerOnglets2()
' Liste les onglets de type "Feuille" et "Graphique"
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub
Re,
Il manque les codes associés à l'Userform
en attendant remplace UserForm1.Hide par Unload Me et teste voir
Il manque les codes associés à l'Userform
en attendant remplace UserForm1.Hide par Unload Me et teste voir
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
J'ai testé ton code sans problème, peut être un problème de format de cellule mais la encore il faudrait voir le fichier que tu peux alléger et anonymiser que tu peux joindre à partir de ce lien
https://www.cjoint.com/
regarde cette ligne dans ton code le Offset(0,-4), es tu sur de ce -4
shrec.Cells(li, 2) = va.Offset(0, -4).Value
J'ai testé ton code sans problème, peut être un problème de format de cellule mais la encore il faudrait voir le fichier que tu peux alléger et anonymiser que tu peux joindre à partir de ce lien
https://www.cjoint.com/
regarde cette ligne dans ton code le Offset(0,-4), es tu sur de ce -4
shrec.Cells(li, 2) = va.Offset(0, -4).Value