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.
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+
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: