[Résolu] Processeur qui monte en tour lors de l'ouverture du classeur

  • Initiateur de la discussion Initiateur de la discussion Lone-wolf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lone-wolf

XLDnaute Barbatruc
Bonjour Le Forum,

en ce moment, je rencontre deux problèmes avec un classeur déjà utilisé plusieures fois. Que ce soit à l'ouverture ou à la fermeture de celui-ci, le processeur monte de tour et le classeur tourne en boucle pendant 30 sec environ, puis ce ferme. Le deuxième problème c'est cette macro.


Code:
Sub Autres_Materiaux()
Dim nbpal%, nbcdr%, lig As Integer
Dim PoidsBrut As Range, NbrCadres As Range, NbrPal As Range
Application.ScreenUpdating = False
Sheets("Intro Autres-Materiaux").Activate

On Error Resume Next
[E17] = Date
If [E8] <> "" Or [E14] <> "" Then
With Sheets("Liste Chargement")
 lig = .[B65536].End(xlUp).Row + 1 'Calcul de ligne
 If lig = 2 Then
 num = 1480
 Else
 num = .Cells(lig - 1, 2) + 1
 End If
 .Cells(lig, 2) = num     'Numéro de palette
 .Cells(lig, 3) = [E5]    'Nom Matériaux
 .Cells(lig, 4) = [E11]   'Nombre de cadres
 .Cells(lig, 5) = [E14]   'Poids brut
 .Cells(lig, 6) = .Cells(lig, 5) - ((.Cells(lig, 4) * 23) + 23)
End With
With Feui129
For i = 1 To 60
If .[C2] = 60 Then
Call Chargement
Exit For
End If
Next i
End With
End If

'With Sheets("Impression_Autres_Materiaux")

'.PrintOut Preview:=True 'aperç￾￾￾u avant impression
'End With
Range("E8, E14").ClearContents
'Call retour
End Sub

Comme maintenant les données doivent être inserées à partir de la ligne 6, même si je met 6 à la place de 2, la macro n'en tiens pas compte et commence à partir de la 2ème ligne.


Merci d'avance pour votre aide.



A+ 😎
 
Dernière édition:
Re : Processeur qui monte en tour lors de l'ouverture du classeur

Bonjour Staple,

voilà, j'ai fais un nouveau classeur avec juste quelques données et fait un test comme suit


Code:
Sub Autres_Materiaux()
Dim lig As Long, num As Long
Application.ScreenUpdating = False

On Error Resume Next
Sheets(1).[E17] = Date
If Sheets(1).[E8] <> "" Or Sheets(1).[E14] <> "" Then
With Sheets(2)
 num = 1480
 lig = .[B65536].End(xlUp).Row + 1 'Calcul de ligne
If lig = 2 Then
lig = 6
 num = ""
 Else
num = .Cells(lig - 1, 2) + 1
 End If
 .Cells(lig, 2) = num    'Numéro de palette
.Cells(lig, 3) = Sheets(1).[E5]  'Nom Matériaux
.Cells(lig, 4) = Sheets(1).[E11] 'Nombre de cadres
.Cells(lig, 5) = Sheets(1).[E14] 'Poids brut
.Cells(lig, 6) = .Cells(lig, 5) - ((.Cells(lig, 4) * 23) + 23)
End With
'Range("E8, E14").ClearContents
End If
End Sub

Et cette fois, les données sont bien incrémetées à partir de la ligne 6.

Merci quand même pour ton intervention.


A+ 😎
 
Re : [Résolu] Processeur qui monte en tour lors de l'ouverture du classeur

Re Staple,

et bien je pense que tu as raison. En ajoutant un tri dans la macro, ça divient ich n'importe quoi.

Si tu veux bien me donner un coup de main, c'est un classeur que je fait pour l'entreprise où je travail.

Voici le classeur.

On rentre les données dans la feuille "Intro Autres-Matériaux" et s'affichent dans la feuille "Liste Chargement". Tu peux éffacer les données, qui étaient un test.




A+ 😎
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
908
Réponses
4
Affichages
1 K
Réponses
17
Affichages
2 K
Retour