application bulletin de note Fermé

Question

Bonjour

J'ai fait une application sous excel pour faire les bulletin de note. Jusqu'ici pas de problème ça fonctionne. J'arrive à éditer les bulletins de notes. Ce que je voudrais c'est qu'une fois édité ce bulletin je puisse le sauvegarder dans une nouvelle feuille. J'y parviens avec ce code : 
Private Sub CommandButton1_Click()
Application.EnableEvents = False
With Worksheets("BULLETIN")
.Range("A1:H20").Copy Worksheets(ActiveSheet.Index + 1).Range("A1")
End With
Application.EnableEvents = True
End Sub

Dans cet exemple le bulletin de note est copié sur la feuille suivante mais il sera forcément remplacé par le prochain bulletin lors de la prochaine édition et ce n'est pas ce que je veux.

Je voudrais :

- Créer une variable I1 par exemple qui correspond au nom de l'élève et que cette variable nomme le prochain onglet. Mais avant il faut vérifier si la feuille est vide ou non.

Si feuille vide alors copie Bulletin sur prochaine feuille
Si feuille non vide copie Bulletin sur feuille n+1

Un coup de main ? merci

redaiwa · Answer

Salam passounene.

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 ?

Application bulletin de note

1 réponse

Discussions similaires