Tableau en VBA
Résolu
EdithDC
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Frogg -
Frogg -
A voir également:
- Tableau en VBA
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
1 réponse
Sub Empoidutps()
Dim t_emploi_temps(1 To 9, 1 To 63) As String
Dim lign As Integer
i_ligne_emp = 2
Sheets(1).Select ' FeuilEmploi du temps 1ère feuille
For i_tab_lig = 1 To 9
For i_col_emp = 6 To 68
i_tab_col = i_col_emp - 5
t_emploi_temps(i_tab_lig, i_tab_col) = Sheets(1).Cells(i_ligne_emp, i_col_emp)
Next i_col_emp
i_ligne_emp = i_ligne_emp + 1
Next i_tab_lig
Sheets(2).Select ' FeuilSalarié1 2ème feuille
lign = 1
colon = 1
For i_tab_lig = 1 To 9
Cells(lign, colon) = t_emploi_temps(i_tab_lig, 1)
lign = lign + 1
Next i_tab_lig
End Sub
Voilà qques modifs. Le remplissage des heures pour un salarié pour une semaine.
Dim t_emploi_temps(1 To 9, 1 To 63) As String
Dim lign As Integer
i_ligne_emp = 2
Sheets(1).Select ' FeuilEmploi du temps 1ère feuille
For i_tab_lig = 1 To 9
For i_col_emp = 6 To 68
i_tab_col = i_col_emp - 5
t_emploi_temps(i_tab_lig, i_tab_col) = Sheets(1).Cells(i_ligne_emp, i_col_emp)
Next i_col_emp
i_ligne_emp = i_ligne_emp + 1
Next i_tab_lig
Sheets(2).Select ' FeuilSalarié1 2ème feuille
lign = 1
colon = 1
For i_tab_lig = 1 To 9
Cells(lign, colon) = t_emploi_temps(i_tab_lig, 1)
lign = lign + 1
Next i_tab_lig
End Sub
Voilà qques modifs. Le remplissage des heures pour un salarié pour une semaine.