Bonjour, j'ai bien lu la charte avant de publier mon post je n'ai rien trouver de similaire à ma demande. Je montre à ceux qui pourraient m'aider le code que j'ai fait :
Sub Consolidate()
Const shtSourceNames As String = "EXPORT PRO DEVIS;EXPORT SOUBNEGOC" ' Nom des feuilles sources
Const shtTargetName As String = "FUSION FICHIER"
Dim SheetNames() As String, rngSourceAddress() As String, sh As Byte
Dim rngTarget As Range
Set rngTarget = ThisWorkbook.Worksheets(shtTargetName).Range("A1")
SheetNames = Split(shtSourceNames, ";")
ReDim rngSourceAddress(UBound(SheetNames))
' Affectation des adresses des plages sources
With ThisWorkbook
For sh = 0 To UBound(SheetNames)
rngSourceAddress(sh) = .Worksheets(SheetNames(sh)).Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1, external:=True)
Next
End With
' Consolidation
With rngTarget
.Worksheet.Cells.Clear ' Efface les cellules de la feuille cible
.Consolidate sources:=rngSourceAddress(), Function:=xlSum, TopRow:=True, LeftColumn:=True
End With
End Sub
Je ne sais pas comment coller avec la vrai mise en page. Comme je disais c'est un gros fichier que pour des raisons de confidentialité je peux mettre en ligne. Je veux juste que mes colonnes se remplissent automatiquement avec pour les nom en double les 2 numéros clients.
Merci d'avance