Bonsoir,
J'ai ouvert, sauvegardé, réouvert et réouvert avec plusieurs fichiers en route.
Tout est beau et tout s'est bien passé.
Les deux procédures de Zon sont les suivantes :
Dans Module1
Sub PrincipaL()
Dim I As Long, J As Long, V As Boolean, K As Integer, C As Range
Dim W1 As Worksheet, W2 As Worksheet
Set W1 = Sheets("DonneesImportes"): Set W2 = Sheets("Stock_Physique")
V = False
Application.ScreenUpdating = False
For I = 2 To W1.[A65336].End(xlUp).Row
With W2.Range("A2:A65536")
Set C = .Find(W1.Cells(I, 1).Text, LookIn:=xlValues)
If Not C Is Nothing Then
C.Offset(0, 1) = C.Offset(0, 1) + W1.Cells(I, 2)
C.Offset(0, 2) = C.Offset(0, 2) + W1.Cells(I, 3)
C.Offset(0, 3) = C.Offset(0, 3) + W1.Cells(I, 4)
Else:
For K = 4 To 1 Step -1
W2.Cells(W2.[A65336].End(xlUp).Row + 1, K) = W1.Cells(I, K)
Next K
End If
End With
Next I
With W2
.Range("A2
" & .[A65536].End(xlUp).Row).Borders.LineStyle = xlContinuous
.Range("A2
" & .[A65536].End(xlUp).Row).Sort key1:=.[A2]
End With
Application.ScreenUpdating = True
End Sub
Dans StockPhysique
Private Sub CommandButton1_Click()
PrincipaL
End Sub
Si tu veux Monique, je t'envoie le fichier vierge avec seulement les deux tableaux (sans macro) et tu colles les deux procédures directement........
Je suis avec win 98 et excel 2000.
Celeda
