salut tous le monde
aider moi sur ce code
il declare erreur de compilation en selectionnent
Debut =2
Private Sub CommandButton19_Click()
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
Next Cel
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
Sheets("pv").PrintOut Copies:=2
End Sub
aider moi sur ce code
il declare erreur de compilation en selectionnent
Debut =2
Private Sub CommandButton19_Click()
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
Next Cel
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
Sheets("pv").PrintOut Copies:=2
End Sub