Reunir deux macro sur un bouton
Fermé
amok
-
6 déc. 2009 à 16:41
Ricky38 Messages postés 4347 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 - 6 déc. 2009 à 16:58
Ricky38 Messages postés 4347 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 - 6 déc. 2009 à 16:58
A voir également:
- Reunir deux macro sur un bouton
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Macro logiciel - Télécharger - Organisation
- Deux comptes whatsapp - Guide
- Macro recorder - Télécharger - Confidentialité
- Reunir pdf - Guide
1 réponse
Ricky38
Messages postés
4347
Date d'inscription
samedi 15 mars 2008
Statut
Contributeur
Dernière intervention
2 novembre 2013
1 451
6 déc. 2009 à 16:58
6 déc. 2009 à 16:58
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