Tableau en VBA
Résolu/Fermé
EdithDC
Messages postés
1
Date d'inscription
jeudi 19 octobre 2006
Statut
Membre
Dernière intervention
21 janvier 2007
-
21 janv. 2007 à 13:15
Frogg - 9 févr. 2007 à 23:20
Frogg - 9 févr. 2007 à 23:20
A voir également:
- Tableau en VBA
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Trier tableau excel - Guide
- Comment imprimer un tableau excel sur une seule 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.