Merci d'essayer de m'aider
Voici le code que j'ai réussi à faire, cela fonctionne sauf que la partie
Selection.Consolidate Sources:=Array( _
''C:\\[Facture.xls]Facture26'!R30C2:R43C7
etc
je dois aller chercher un code que je fais écrire dans une autre macro, celle qui cré mes factures. Je ne réussi pas à automatiser cette partie.
Espérant que vous comprenez ce que je veux dire...
Sub MiseAJour()
'
' Mise à jour de l'inventaire
' Macro enregistrée le 2006-04-14 par Carole
'
'Effacer les consolidations et inventaire présédents
'Trouve la première cellule vide de la colonne A
Range('A6:A999').Activate
En_Colonne = ActiveCell.Column
En_ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_ligne, En_Colonne).Activate
En_ligne = En_ligne + 1
Wend
With ActiveCell
ActiveCell.FormulaR1C1 = ''
End With
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
ligne = ActiveCell.Row
Range('A6:K' & ligne).Select
Selection.ClearContents
Range('A5').Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''' C'est ici qu'il faut copier le code récupérer dans l'autre macro ''''''''''''''''
''''''''''''''''''''' Sélectionner le code suivant ''''''''''''''''
''''''''''''''''''''' Faire le 'Ctrl V' ''''''''''''''''
''''''''''''''''''''' Fermer avec le X rouge ''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Selection.Consolidate Sources:=Array( _
''C:\\[Facture.xls]Facture26'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture27'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture28'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture29'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture30'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture31'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture32'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture33'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture34'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture35'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture36'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture37'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture38'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture39'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture40'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture41'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture42'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture43'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture44'!R30C2:R43C7', _
''C:\\[Facture.xls]Facture45'!R30C2:R43C7'), _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''' OK ne pas sélectionner ici Merci ''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Trier les numéro d'articles vendus
'Trouver la première cellule vide de la colonne A
Range('A6:A999').Activate
En_Colonne = ActiveCell.Column
En_ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_ligne, En_Colonne).Activate
En_ligne = En_ligne + 1
Wend
With ActiveCell
ActiveCell.FormulaR1C1 = ''
End With
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
ligne = ActiveCell.Row - 1
Range('A6:C' & ligne).Select
Selection.Sort Key1:=Range('A6'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Crée le tableau de l'inventaire
Range('H6').Select
ActiveCell.FormulaR1C1 = '=IF(RC[-7]<1000,'' '',VALUE(RC[-7]))'
Range('I6').Select
ActiveCell.FormulaR1C1 = '=VLOOKUP(RC[-1],Inventaire!R4C1:R34C13,7)'
Range('J6').Select
ActiveCell.FormulaR1C1 = '=RC[-7]'
Range('K6').Select
ActiveCell.FormulaR1C1 = '=RC[-2]-RC[-1]'
Range('K7').Select
Range('H6:K6').Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range('H6:K100'), Type:=xlFillDefault
Range('H6:K100').Select 'Si plus de 100 produit,
Range('H6:K100').Select 'changer ces chiffres pour un plus élevé
Range('A1').Activate
'Supprime les lignes vides
Range('H' & (ligne + 1) & ':K100').Select
Selection.ClearContents
Range('H1').Select
End Sub