VBA debug excel plante a Renitialiser ? [TERMINE]

[herve62]

Bonsoir
Juste pour faire un test avec mon fichier pour savoir si je dois tout transférer vers un nouveau fichier
ou pas ? le TEST :
re activer feuille data pour activer l'usf , commencer à remplir , ça va buger !
dans le VBE faire Reinitialiser
Et Boum EXCEL PLANte > ... tente de redémarrer
ok mais pas normal , je récupère un .xlB ?
Jamais eu ça ? j'aimerai comprendre
Sinon je repart à Zero !! pas marrant !

 

[laurent950]

Bonsoir

Private Sub Box2_Change()
K = Box2.ListIndex
If Box2.ListIndex > 0 Then
LgN = Lg
Set Prenom = Sheets("Data").Range("B" & LgN & ":B" & Rows.Count).SpecialCells(xlCellTypeConstants).Find(Box2.Value)
LgN = Prenom.Row
Mod1 = Sheets("Data").Cells(LgN, 3)
Prix = Sheets("Data").Cells(LgN, 4)
Coul = Sheets("Data").Cells(LgN, 5)

Else
- lg ne peux pas etre inférieur à 0

LgN = Lg
Mod1 = Sheets("Data").Cells(LgN, 3) / Cells(-1,3) C'est impossible
Prix = Sheets("Data").Cells(LgN, 4)
Coul = Sheets("Data").Cells(LgN, 5)
End If
Call Photo
End Sub

 

[herve62]

OK Merci bien
je n'étais pas du tout parti sur du track de variable comme d'habitude pour un plantage d'excel
Comme ça , c'est plus rapide

 

[herve62]

Bonjour
Hier j'étais pressé et je pense avoir répondu trop vite !
En effet une erreur de vairiable quelle qu'elle soit ne fait pas planter Excel !! sinon ecla deviendrait
infernal . Là EXCEL s'arrête , tente de redémarrer ( souvent ok) , et je récupère un .xlb
Je voudrais savoir si chez vous c'est le même phénomène et si vous savez pourquoi ?
En lançant l'usf et commencé à répondre , cela devrait planter faire un INIT et là dans les 5 sec > arrêt
merci

 

[herve62]

Bonjour
Comme pas de retour , j'ai commencé à faire du copier/coller dans un nouveau fichier donc exactement tout identique
j'ai lancé , donc ça bug aussi > Init et là plus de pb
Donc pour moi cela ne vient pas du code lui même mais certainement d'un petit hic à la 1ére recompile

 

[laurent950]

Bonjour,
il semble que le problème provient de cette procédure !

Sub Photo()

'Chemin = ThisWorkbook.Path & "\"
' PID = Coul.Value & ".jpg"
' Direction = Dir(Chemin & PID)
' N_ph = Chemin & PID
' If Direction = "" Then
' PID = "inexistante.jpg" ' MODIF pour n'UTILISER QUE PID en VARIABLE
' N_ph = Chemin & PID
' End If
'Image1.Picture = LoadPicture(N_ph)
End Sub

donc modifier les codes

Private Sub Box2_Change()
K = Box2.ListIndex
If Box2.ListIndex > 0 Then
  LgN = Lg
  Set Prenom = Sheets("Data").Range("B" & LgN & ":B" & Rows.Count).SpecialCells(xlCellTypeConstants).Find(Box2.Value)
  LgN = Prenom.Row
  Mod1 = Sheets("Data").Cells(LgN, 3)
  Prix = Sheets("Data").Cells(LgN, 4)
  Dim Coul As String
  Coul = Sheets("Data").Cells(LgN, 5)
  Else
  LgN = Lg
  Mod1 = Sheets("Data").Cells(LgN, 3)
  Prix = Sheets("Data").Cells(LgN, 4)
  Coul = Sheets("Data").Cells(LgN, 5)
End If
'Coul = Sheets("Data").Cells(LgN, 5) = le prix de l'article ? FAUX
'Coul = Sheets("Data").Cells(LgN, 6) = le prix de l'article ? VRAIS
'Call Photo
'Call Photo Coul / Call est inutile
Photo Coul
End Sub


Sub Photo(Coul As String)

Chemin = ThisWorkbook.Path & "\"
PID = Coul.Value & ".jpg"
Direction = Dir(Chemin & PID)
N_ph = Chemin & PID
If Direction = "" Then
PID = "inexistante.jpg" ' MODIF pour n'UTILISER QUE PID en VARIABLE
N_ph = Chemin & PID
End If
Image1.Picture = LoadPicture(N_ph)
End Sub

 

[eriiic]

post précédent supprimé pour ménager...

 

[herve62]

Bonjour
Bizarre ! je n'ai pas encore modifié cette sub ( elle le devrait ensuite) j'ai retesté donc même bug > INit
et tout se passe bien , excel ne se ferme plus !