Discussion :

[viaman]

Grand bonjour chers (es) développeur
je suis content d'être parmi vous et excuser mes erreur de programmeur si j'en fait
voila ma question c'est que j'ai quatre base de donnée correspondant à une année d'étude et chacune contient le nom d'étudiants en colonne 1 puis les autres colonnes c'est les différents modules. c'est à dire chaque étudiant possède les moyennes des notes de ses différents modules.
les quatre base sont de la même façon mais bien sur les noms des modules différents.
Ce que je tente de faire c'est la création de macro qui va me crée un relevé globale pour chaque étudiants ou figure quatre zones chacune est réservée à une base de donnée ou à une année d'étude précise
voila chèrs programmeurs aider moi aider un débutant
je vous remercie vivement

[COCONUT2]

Pour t'aider, commence par suivre les conseils suivants:

Règle n° 1
Ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option explicit

en tete de macro pour etre obligé de bien nommer toutes les variables.

Règle n° 2:
Décris en francais ce que tu veux faire, ligne par ligne.

ex:
Si la première case de la feuille 2 du classeur A est vide
je dis à l'utilisateur qu'il n'y a pas de données
et je sors de la macro
sinon, je copie cette ligne pour la coller dans la dernière ligne vide de la feuille 3 du classeur C

Lorsque tu aura bien décris tout ca, alors, tu traduis en language informatico-anglais

ex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Si la première case de la feuille 2 du classeur A est vide
if is empty (workbook("A").sheets(2).cells(1,1)) then
'je dis à l'utilisateur qu'il n'y a pas de données
msgbox("Pas de données à copier!")
'et je sors de la macro
exit sub
'sinon, je copie cette ligne pour la coller dans la dernière ligne vide de la feuille 3 du classeur C
else
workbook("A").sheets(2).rows(1).copy (workbook("C").sheets(3).range("A6000").end(xlup))

Regle n°3:

Pour plus de compréhension,tu décales les lignes qui sont à l'intérieur d'une commande en alignant les début en fin de fonction

ex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Si la première case de la feuille 2 du classeur A est vide
if is empty (workbook("A").sheets(2).cells(1,1)) then
      'je dis à l'utilisateur qu'il n'y a pas de données
      msgbox("Pas de données à copier!")
      'et je sors de la macro
      exit sub
'sinon, je copie cette ligne pour la coller dans la dernière ligne vide de la feuille 3 du classeur C
else
       workbook("A").sheets(2).rows(1).copy (workbook("C").sheets(3).range("A6000").end(xlup))
end if

Alors si tu rencontre des problemes, tu selectionnes le mot qui pose probleme et tu tapes sur F1.

Si tu n'arrive pas à écrire une commande, le plus simple est d'utiliser l'enregistreur de macro.

Ensuite tu peux te renseigner dans les Tutoriels du site, dans la Faq, faire une recherche sur un probleme particulier.

Si apres tout ca, si tu buttes encore sur un détail, alors tu peux poser une question sur le site.
car nous sommes la pour t'aider et non pour faire ton boulot.

Aides toi et le ciel t'aidera
non, le site t'aidera!