Excel VBA : transposer résultat calcul
Résolu/Fermé
A voir également:
- Excel VBA : transposer résultat calcul
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Resultat loto d'aujourd'hui ✓ - Forum Excel
- Find vba - Astuces et Solutions
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
18 sept. 2011 à 16:57
18 sept. 2011 à 16:57
bonjour
essaies
essaies
Sub Creer_Article()
Dim lig As Integer
With Sheets("Base_Article")
lig = .Columns("A").Find("", .Range("A1"), xlValues).Row
.Cells(lig, "A").Resize(1, 5) = Application.Transpose(Sheets("Form_Article").Range("B1:B5").Value)
.Range("A2:E" & lig).Sort .Range("A2")
End With
With Sheets("Form_Article")
.Range("B1:B3").ClearContents
.Range("B5").ClearContents
.Range("B1").Select
End With
Sheets("Base_Article").Activate
End Sub