Reunir deux macro sur un bouton
amok
-
Ricky38 Messages postés 5776 Date d'inscription Statut Contributeur Dernière intervention -
Ricky38 Messages postés 5776 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
voila j ai deux bouton un pour effacer, l autre pour enregistrer je voudrais savoir comment je peux les reunir en un seul ? Voila le code :
Sub effacer()
'
' effacer Macro
'
'
Range("B7,C15:C18,C20:C22").ClearContents
Range("b6") = Range("b6") + 1
Range("B7").Select
End Sub
Sub enregistrer()
'
' enregistrer Macro
Dim lig As Long
lig = Sheets("liste bdc").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Sheets("liste bdc").Cells(lig, 1) = Sheets("bdc").Range("B6")
Sheets("liste bdc").Cells(lig, 2) = Sheets("bdc").Range("B7")
Sheets("liste bdc").Cells(lig, 3) = Sheets("bdc").Range("C30")
Sheets("liste bdc").Cells(lig, 4) = Sheets("bdc").Range("C31")
Sheets("liste bdc").Cells(lig, 5) = Sheets("bdc").Range("D25")
Sheets("dispo").Select
End Sub
voila j ai deux bouton un pour effacer, l autre pour enregistrer je voudrais savoir comment je peux les reunir en un seul ? Voila le code :
Sub effacer()
'
' effacer Macro
'
'
Range("B7,C15:C18,C20:C22").ClearContents
Range("b6") = Range("b6") + 1
Range("B7").Select
End Sub
Sub enregistrer()
'
' enregistrer Macro
Dim lig As Long
lig = Sheets("liste bdc").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Sheets("liste bdc").Cells(lig, 1) = Sheets("bdc").Range("B6")
Sheets("liste bdc").Cells(lig, 2) = Sheets("bdc").Range("B7")
Sheets("liste bdc").Cells(lig, 3) = Sheets("bdc").Range("C30")
Sheets("liste bdc").Cells(lig, 4) = Sheets("bdc").Range("C31")
Sheets("liste bdc").Cells(lig, 5) = Sheets("bdc").Range("D25")
Sheets("dispo").Select
End Sub
A voir également:
- Reunir deux macro sur un bouton
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment faire deux colonnes sur word - Guide
- Deux whatsapp sur un téléphone - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
1 réponse
Salut,
tu peux le faire de 2 manières:
1)
ou
tu peux le faire de 2 manières:
1)
Sub enregistrer()
'
' enregistrer Macro
Dim lig As Long
lig = Sheets("liste bdc").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Sheets("liste bdc").Cells(lig, 1) = Sheets("bdc").Range("B6")
Sheets("liste bdc").Cells(lig, 2) = Sheets("bdc").Range("B7")
Sheets("liste bdc").Cells(lig, 3) = Sheets("bdc").Range("C30")
Sheets("liste bdc").Cells(lig, 4) = Sheets("bdc").Range("C31")
Sheets("liste bdc").Cells(lig, 5) = Sheets("bdc").Range("D25")
Sheets("dispo").Select
Range("B7,C15:C18,C20:C22").ClearContents
Range("b6") = Range("b6") + 1
Range("B7").Select
End Sub
ou
Sub enregistrer()
'
' enregistrer Macro
Dim lig As Long
lig = Sheets("liste bdc").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Sheets("liste bdc").Cells(lig, 1) = Sheets("bdc").Range("B6")
Sheets("liste bdc").Cells(lig, 2) = Sheets("bdc").Range("B7")
Sheets("liste bdc").Cells(lig, 3) = Sheets("bdc").Range("C30")
Sheets("liste bdc").Cells(lig, 4) = Sheets("bdc").Range("C31")
Sheets("liste bdc").Cells(lig, 5) = Sheets("bdc").Range("D25")
Sheets("dispo").Select
'tu appelles ton autre macro
Call effacer
End Sub
