Application bulletin de note
Fermé
passounene
Messages postés
3
Date d'inscription
mercredi 19 juin 2013
Statut
Membre
Dernière intervention
20 juin 2013
-
19 juin 2013 à 19:34
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 - 20 juin 2013 à 16:18
redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 - 20 juin 2013 à 16:18
A voir également:
- Application bulletin de note
- Comment mettre une note sur 20 ✓ - Forum Bureautique
- Comment transformer une note sur 20 ✓ - Forum Bureautique
- Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
- Application youtube mp3 - Guide
- Télécharger bloc note - Télécharger - Agendas & Calendriers
1 réponse
redaiwa
Messages postés
346
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
2 juin 2015
118
Modifié par redaiwa le 20/06/2013 à 12:06
Modifié par redaiwa le 20/06/2013 à 12:06
Salam passounene.
Colle le code suivant dans l'évènement Click de ton bouton d'enregistrement :
NB : J'ai supposé que la cellule B3 contient le nom de l'étudiant.
Puis colle le code suivant dans un module:
C'est bien ce que tu voulais ?
Colle le code suivant dans l'évènement Click de ton bouton d'enregistrement :
Private Sub BoutonEnregistrer_Click()
Call EnregistrerBulletin(Range("B3"))
End Sub
NB : J'ai supposé que la cellule B3 contient le nom de l'étudiant.
Puis colle le code suivant dans un module:
Public Sub EnregistrerBulletin(Nom)
'vérifier si le bulletin "Nom" existe
i = 1
Do
If Worksheets(i).Name = Nom Then
ind = Worksheets(i).Index
Exit Do
End If
i = i + 1
Loop Until i > Sheets.Count
If i > Sheets.Count Then
'si le bulletin "Nom" n'existe pas alors le créer
Sheets.Add After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Name = Nom
ind = Worksheets(i).Index
End If
'Copier les données depuis le bulletin édité vers le bulletin "Nom"
Sheets("BULLETIN").Range("A1:H20").Copy Worksheets(ind).Range("A1")
Application.CutCopyMode = False
End Sub
C'est bien ce que tu voulais ?
20 juin 2013 à 13:37
En tous les cas merci
20 juin 2013 à 14:04
20 juin 2013 à 15:33
C'est possible d'avoir un code qui trie les onglets ensuite par ordre alphabétique ? désolé si j'en demande trop
Modifié par redaiwa le 20/06/2013 à 16:00
20 juin 2013 à 16:18