Signaler

Macro cummul feuil excel

Posez votre question INFO15 2Messages postés dimanche 9 avril 2017Date d'inscription 8 octobre 2017 Dernière intervention - Dernière réponse le 8 oct. 2017 à 15:57 par gbinforme
bonjour

je voulais faire un cummul de plusieurs feuils excel mais ça marche pas un message d'erreur s'affiche sachant que l'entête des fichiers sont identique
voilà la macro


Sub A3_Cumul_brut()
Dim eni(300)
Set wb = ThisWorkbook
Set wso = Sheets("brut")
nl = wso.Cells(Rows.Count, 1).End(xlUp).Row
f = Dir(wb.Path & "\*.xls*")
While f <> ""
If f <> wb.Name Then
Set wbi = Workbooks.Open(wb.Path & "\" & f)
Set wsi = Sheets("brut")
For i = 1 To 300
eni(i) = 0
For j = 1 To 300
If Trim(wsi.Cells(1, i)) = Trim(wso.Cells(1, j)) Then eni(i) = j: Exit For
Next j

Next i
dl = wsi.UsedRange.Rows.Count
For i = 2 To dl
nl = nl + 1
For j = 1 To 300
wso.Cells(nl, eni(j)) = wsi.Cells(i, j)
Next j
Next i
wbi.Close
End If
f = Dir()
Wend
'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
Cells.Select
ActiveWorkbook.Worksheets("brut").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("brut").Sort.SortFields.Add Key:=Range( _
"A2:A58930"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("brut").Sort
.SetRange Range("A1:FU58930")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

MsgBox "Opération effectuée"

End Sub
Utile
+0
plus moins
Bonjour,

un message d'erreur s'affiche
Quel message ?
info15- 8 oct. 2017 à 11:24
wso.Cells(nl, eni(j)) = wsi.Cells(i, j) "couleur jaune en débogage
"
Répondre
INFO15 2Messages postés dimanche 9 avril 2017Date d'inscription 8 octobre 2017 Dernière intervention - 8 oct. 2017 à 15:25
wso.Cells(nl, eni(j)) = wsi.Cells(i, j) "couleur jaune en débogage"
Répondre
gbinforme 14212Messages postés lundi 18 octobre 2004Date d'inscription ContributeurStatut 15 octobre 2017 Dernière intervention - 8 oct. 2017 à 15:57
Bonjour,

jaune d'accord et avec quelle erreur dans le message ?
Tu as vérifié la valeur de tes variables ?
Pourquoi avoir affecté la même feuille à 2 objets non définis wso et wsi ?
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !