saluts tous le monde
j'ai besoin de rassembler 3 codes vba en un seul
je veux quand je clic sur CommandButton les trois action s'affectue
code 1
Dim Cel As Range
For Each Cel In Range("A13:A46")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
code 2
DeBut = 2
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i + 1, 1) <> Cells(i, 1) Then
Application.DisplayAlerts = False
Range(Cells(DeBut, 1), Cells(i, 1)).Merge
DeBut = i + 1
End If
Next i
Application.DisplayAlerts = True
code 3
Sheets("recap").PrintOut Copies:=2
j'ai besoin de rassembler 3 codes vba en un seul
je veux quand je clic sur CommandButton les trois action s'affectue
code 1
Dim Cel As Range
For Each Cel In Range("A13:A46")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
code 2
DeBut = 2
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i + 1, 1) <> Cells(i, 1) Then
Application.DisplayAlerts = False
Range(Cells(DeBut, 1), Cells(i, 1)).Merge
DeBut = i + 1
End If
Next i
Application.DisplayAlerts = True
code 3
Sheets("recap").PrintOut Copies:=2