Excel Macro
Fermé
Soko75
Messages postés
1
Date d'inscription
mercredi 24 février 2016
Statut
Membre
Dernière intervention
24 février 2016
-
24 févr. 2016 à 22:57
Soko75 - 26 févr. 2016 à 00:21
Soko75 - 26 févr. 2016 à 00:21
A voir également:
- Excel Macro
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Si et excel - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
24 févr. 2016 à 23:54
24 févr. 2016 à 23:54
Bonjour,
A+
Sub Macro1()
Sheets("Fiche").Range("B1:B3").Copy
With Sheets("Base de donnée")
.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial , Transpose:=True
End With
Application.CutCopyMode = False
Sheets("Fiche").Range("B1:B3").ClearContents
End Sub
A+
26 févr. 2016 à 00:21