Bonjour à tous,
J'ai une macro de recherche qui me copie certaines informations du classeur 1 vers une feuille de résultat. Ma question serait de savoir si il est possible de sommer toutes les données trouvées vers une seule cellule (ex. A11 dans CAISSE2). J'ai beau chercher, j'ai pas trouvé.
Merci d'avance.
Sub TESTCHANGE()
Dim i&, j&, x&, y&, cl&, dest As Worksheet, wb As Workbook
j = 10
With Workbooks("CAISSE2.xls")
Set dest = .Sheets("Résultat")
dest.Cells.Clear
End With
For cl = 1 To 6
On Error Resume Next
Set wb = Workbooks("CAISSE" & cl & ".xls")
If Err = 0 Then
With wb.Sheets(1)
For i = 2 To .Range("F65536").End(xlUp).Row
If .Range("C" & i) Like "CHANGE*" And .Range("M" & i) > 0 Then
dest.Range("A" & j + x) = .Range("M" & i)
x = x + 1
End If
Next
If x > y Then j = j + x Else: j = j + y
x = 0
y = 0
End With
End If
Next
End Sub
J'ai une macro de recherche qui me copie certaines informations du classeur 1 vers une feuille de résultat. Ma question serait de savoir si il est possible de sommer toutes les données trouvées vers une seule cellule (ex. A11 dans CAISSE2). J'ai beau chercher, j'ai pas trouvé.
Merci d'avance.
Sub TESTCHANGE()
Dim i&, j&, x&, y&, cl&, dest As Worksheet, wb As Workbook
j = 10
With Workbooks("CAISSE2.xls")
Set dest = .Sheets("Résultat")
dest.Cells.Clear
End With
For cl = 1 To 6
On Error Resume Next
Set wb = Workbooks("CAISSE" & cl & ".xls")
If Err = 0 Then
With wb.Sheets(1)
For i = 2 To .Range("F65536").End(xlUp).Row
If .Range("C" & i) Like "CHANGE*" And .Range("M" & i) > 0 Then
dest.Range("A" & j + x) = .Range("M" & i)
x = x + 1
End If
Next
If x > y Then j = j + x Else: j = j + y
x = 0
y = 0
End With
End If
Next
End Sub
Pièces jointes
Dernière édition: