Bonjour,
je réalise un projet en vba et je rencontre un problème qui semble assez courant lors de mes recherches. En effet avant de poster ce message j'ai recherché par moi-même mais je n'ai pas trouvé de réponse répondant à mon besoin.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Dim ws As Variant
For Each ws In ThisWorkbook.Sheets
If InStr(ws.name, "tab") <> 0 Then
ws.Cells.Ungroup ' l'erreur se trouve à cette ligne
End If
Next ws
End Sub
J'ai trouvé que le problème venait tous le temps d'une personne réalisant une sélection avec une méthode de classe range mais ce n'est pas mon cas.
Je ne trouve pas la réponse pouvez-vous m'aider s'il vous plait ?
Merci d'avance pour toutes aides.
Cordialement.