Compilation de Tableau
Moufmouf
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un fichier avec 4 Onglet :
- Onglet "Résumé"
- Onglet "employé 1 - Resultat"
- Onglet "employé 2 - Resultat"
- ...
J'aimerai que le tableau sur le premier onglet soit une compilation des tableaux des onglets suivants.
Ainsi chaque employé pourrait remplir son tableau et en cliquant sur un bouton sur l'onglet 1, une macro combinerai ces 3 Tableaux en 1 seul
Voila ce que j'ai pour l'instant (vraiment pas grand chose)
Sub Update()
If MsgBox("Are you sure you want to update this table", vbYesNo, "Confirmation request") = vbYes Then
Range("B3").Select
Sheets("employé 1").Select
Range("B3").Select
Do While Not (IsEmpty(ActiveCell))
Dim index As Integer = 0
MsgBox "The table have been update !"
End If
End Sub
Merci beaucoup de votre aide
J'ai un fichier avec 4 Onglet :
- Onglet "Résumé"
- Onglet "employé 1 - Resultat"
- Onglet "employé 2 - Resultat"
- ...
J'aimerai que le tableau sur le premier onglet soit une compilation des tableaux des onglets suivants.
Ainsi chaque employé pourrait remplir son tableau et en cliquant sur un bouton sur l'onglet 1, une macro combinerai ces 3 Tableaux en 1 seul
Voila ce que j'ai pour l'instant (vraiment pas grand chose)
Sub Update()
If MsgBox("Are you sure you want to update this table", vbYesNo, "Confirmation request") = vbYes Then
Range("B3").Select
Sheets("employé 1").Select
Range("B3").Select
Do While Not (IsEmpty(ActiveCell))
Dim index As Integer = 0
MsgBox "The table have been update !"
End If
End Sub
Merci beaucoup de votre aide
