Scribd
Importer
102 vues2 pages

Code VBA pour gérer un classeur Excel

Le document décrit les étapes pour créer et manipuler un classeur Excel, y compris l'ajout et la suppression de feuilles, le renommage, la copie/collage de cellules, et l'ajout de valeurs et de formules.

Transféré par

PFE
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
102 vues2 pages

Code VBA pour gérer un classeur Excel

Le document décrit les étapes pour créer et manipuler un classeur Excel, y compris l'ajout et la suppression de feuilles, le renommage, la copie/collage de cellules, et l'ajout de valeurs et de formules.

Transféré par

PFE
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

'Créer un nouveau classeur

Workbooks.Add

'enregistrer sur votre bureau

ActiveWorkbook.SaveAs Filename:="C:\Users\HP\Desktop\essai"

'Fermer le classeur

Workbooks("essai").Close (True)

'Ouvrir le classeur créer sur le bureau

Workbooks.Open Filename:="C:\Users\HP\Desktop\essai"

'Ajouter une nouvelle feuille

Workbooks("essai").Sheets.Add

'Supprimer une feuille

Workbooks("essai").Sheets(1).Delete

'Renommer une feuille

Workbooks("essai").Sheets(1).Name = "Essai"

'Copier la cellule A1

Workbooks("essai").Sheets(1).Cells(1, 1).Copy

'Coller la cellule A2

Workbooks("essai").Sheets(1).Cells(2, 1).PasteSpecial (xlValue)

Workbooks("essai").Sheets(1).Cells(2, 1).Select

ActiveSheet.Paste

'Mettre une valeur texte dans la cellule B1

Workbooks("essai").Sheets(1).Range("B1").Value = "Formation"

'Mettre une valeur chiffre 20 dans la cellule B2

Workbooks("essai").Sheets(1).Range("B2").Value = 20

Workbooks("essai").Sheets(1).Range("A1").Value = 100

Workbooks("essai").Sheets(1).Range("A2").Value = 10.5

Workbooks("essai").Sheets(1).Range("A3").Value = 15

Workbooks("essai").Sheets(1).Range("A5").Value = 17

Workbooks("essai").Sheets(1).Range("A9").Value = 6

'Faire l'addition
Workbooks("essai").Sheets(1).Range("B5").Value =
Application.WorksheetFunction.Sum(Workbooks("essai") _

.Sheets(1).Cells(1, 1).Cells(10, 1))

'Faire l'addition

Workbooks("essai").Sheets(1).Range("B5").FormulaR1C1 = "=sum(R[-4]C[-1]: R[5]C[-1])"

Vous aimerez peut-être aussi