[vba-excel]copier résultats dans tableau Résolu/Fermé

Question

Bonjour, 

je découvre la toute puissance de la macro sous excel 2003, mais son écriture m'est encore trop difficile pour m'en sortir seul (heures déjà passées à l'appui...)

J'espère que cela retiendra votre attention, et je vous en remercie par avance...

Un fichier : « saisie.xls »
Deux feuilles : « saisie » et « résultats »

La feuille « saisie » contient des cellules non contigues :
Cellule B16 : nom d'élève (à partir d'un menu déroulant existant)
Cellules B20, B22, B24 : données correspondantes de l'élève sélectionné en B16
 
La feuille « résultats » contient une série de colonnes, dont la première (A) contient la liste des noms de la classe, et les colonnes suivantes les données correspondant à chacun d'eux (ex : pour l'élève écrit en A5, les données correspondantes sont sur la même ligne : B5, C5, D5).

L'idée : créer une macro pour copier les résultats individuels élève par élève à partir de la feuille « saisie », vers le tableau de résultats de classe (feuille « résultats »).


Configuration: Windows XP / Safari 535.2

michel_m · Answer

Bonjour 
je découvre la toute puissance de la macro sous excel 2003 
Alors, Bienvenue à bord du Titanic :o)

Option Explicit 

Sub editer_resultats_classe() 
Dim eleve As String, note1 As Variant, Note2 As Variant, note3 As Variant 
Dim Lig As Byte 

With Sheets("saisie") 
     If .Range("B16") = "" Then GoTo erreur 
     eleve = .Range("B16") 
     note1 = IIf(.Range("B20") = "", "", .Range("B20")) 
     Note2 = IIf(.Range("B22") = "", "", .Range("B22")) 
     note3 = IIf(.Range("B24") = "", "", .Range("B24")) 
      
     With Sheets("Résultats") 
          Lig = .Columns(1).Find(eleve, .Range("A1"), xlValues).Row 
          .Cells(Lig, "B") = note1 
          .Cells(Lig, "C") = Note2 
          .Cells(Lig, "D") = note3 
     End With 

     MsgBox " les notes de " & eleve & " ont été transcrites dans la feuille ""résultats""" 
     .Range("B16,B20,B22,B24").ClearContents 

End With 
Exit Sub 

erreur: 
MsgBox " Choisir un élève !,vbcritical" 

End Sub 

maquette: 
https://www.cjoint.com/?3KcrBFbBkSp 
 Michel

[vba-excel]copier résultats dans tableau

1 réponse

Discussions similaires