Calcul avec VBA
Bonjour la coummunauté
Pas trés fort en VBA , je cherche un code pour :
1- copier des onglets de puis un classeur vers un autre
2- de faire des calculs sur ce clacul , genre a chaque fois tu vois "Test" tu affecte 2 points
Est ce que ceci est possible ou je reve
Merci Amigos
Bonjour et bienvenue,
Merci de préciser ta version Excel dans ton profil.
Cdlt.
Je suis sur Office365 .
J'ai trouve un code qui ouvre un classeur et puis il copie toutes les onglets sur mon nouveau classeur .
Par contre je sais pas comment ajouter des formules de calcul pour me donner des scores :
Sub Macro()
Dim i As Integer
Dim nom As String
Dim Nomdececlasseur As String
Dim Nomcopie As String
Dim chemin As Variant
Application.DisplayAlerts = False
chemin = Application.GetOpenFilename("Classeurs Excel (*.xlsx), *.xlsx")
Workbooks.Open (chemin)
'classeur à copier
Nomcopie = ActiveWorkbook
'on parcourt toutes les feuilles
For i = 2 To Worksheets.Count
Workbooks(Nomcopie).Activate 'classeur à copier a adapter le nom
nom = Worksheets(i).Name
Nomdececlasseur = ThisWorkbook
Sheets(nom).Select
Sheets(nom).Copy After:=Workbooks(Nomdececlasseur).Sheets(1) 'classeur à coller a adapter le nom
Sheets(nom).Move After:=Sheets(Sheets.Count) 'on met les onglets dans l'ordre
Next
Workbooks(Nomdececlasseur).Sheets(1).Activate
Application.DisplayAlerts = True
End Sub