Bonjour,
Je voudrais fusionner les cases qui ont la même date, mais le code que j'ai fais ne fonctionne pas, pouvez-vous m'aider?
L'erreur que je reçois est :
Ligne => "Un.Add.Cell , CDate(Cell)"
instruction => "CDate(Cell)"
Erreur retournée => erreur compilation: argument non facultatif
Merci pour vos futures réponses
Je voudrais fusionner les cases qui ont la même date, mais le code que j'ai fais ne fonctionne pas, pouvez-vous m'aider?
L'erreur que je reçois est :
Ligne => "Un.Add.Cell , CDate(Cell)"
instruction => "CDate(Cell)"
Erreur retournée => erreur compilation: argument non facultatif
VB:
Dim Plage As Range
Dim Cell As Range
Dim Un As New Collection
Dim Tableau() As Integer
Dim Nombre As Integer
Set Plage = Sheets("feuil2").Crange("A2:A1048521")
On Error Resume Next
For Each Cell In Plage
Un.Add.Cell , CDate(Cell)
If Err.Number <> 0 Then
Nombre = Nombre + 1
ReDim Preserve Tableau(1 To Nombre)
Tableau(Nombre) = Cell.Row
Err.Clear
End If
Next Cell
On Error GoTo 0
If Nombre = 0 Then
Exit Sub
End If
For nomnbre = UBound(Tableau) To LBound(Tableau) Step -1
Sheets("Feuil2").Cells(Tableau(Nombre)).Merge
Next Nombre
Merci pour vos futures réponses