Macro "création" avec if

Efgé

XLDnaute Barbatruc

• 28 Juillet 2010

• #2

Re : Macro "création" avec if

Bonjour ddm,
Une proposition en pièce jointe
Cordialement

 

Pièces jointes

• DDM V8 RELEVE DES NOTES.zip

  25.3 KB · Affichages: 31
• DDM V8 RELEVE DES NOTES.zip

  25.3 KB · Affichages: 31
• DDM V8 RELEVE DES NOTES.zip

  25.3 KB · Affichages: 39

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 28 Juillet 2010

• #3

Re : Macro "création" avec if

Bonjour,

Suffit de placer ta condition comme ceci :

Code:

Sub Creation2()

     Application.ScreenUpdating = 0
    On Error Resume Next
    For X = Feuil1.Range("A65536").End(xlUp).Row To 6 Step -1
    If Feuil1.Cells(X, 10) = "Admis (e)" Then
        Sheets("Certificat").Copy After:=Sheets(3)
        Range("C25") = Feuil1.Cells(X, 2)
        Range("C27") = Feuil1.Cells(X, 3)
        ActiveSheet.Name = Range("C25")
    End If
    Next X
    Feuil1.Activate
End Sub

Attention, tu as placé un :

Code:

Application.ScreenUpdating = 0

Dans ton code mais tu ne le remets pas à True à la fin de ta procédure. Tu vas au delà de gros problèmes !

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 28 Juillet 2010

• #4

Re : Macro "création" avec if

A privilégier la solution de Efgé qui a pris le temps de corriger tout ce qui n'allait pas dans cette procédure alors que je me suis seulement contenté de placer ta condition.

Bien joué ! 😛

Edit : Ouf j'ai viré la méga faute d'orthographe avant que quelqu'un la voit.

 

Dernière édition: 28 Juillet 2010

Vote positif 0 Vote négatif

D

ddm

Guest

• 28 Juillet 2010

• #5

Re : Macro "création" avec if

slt

Merci beaucoup pour votre aide ça fonctionne trés bien

 

Vote positif 0 Vote négatif

D

ddm

Guest

• 28 Juillet 2010

• #6

Re : Macro "création" avec if

que je devrai ajouter à mon code pour créer toutes les attestations dans un nv classeur (un seul) appelé " Attestations" ??

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Juillet 2010

• #7

Re : Macro "création" avec if

Re
Je regarde demain, mais mes premiers essais ne sont pas... ...concluants. 😀
Cordialement

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #8

Re : Macro "création" avec if

Bonjour,

Voilà le fichier modifié. Pour me simplifier la vie (et parce qu'à cette heure là je risque un clacage au cerveau en réfléchissant trop), j'ai exporté la feuille "certificat" dans un nouveau fichier : "C:\Modèle certificat.xls"

La macro ouvre ce modèle, le rempli avec les données de chaque élève et l'enregistre sous "C:\Certificat.xls".

Bonne journée

 

Pièces jointes

• DDM V8 RELEVE DES NOTES.zip

  25.4 KB · Affichages: 24
• DDM V8 RELEVE DES NOTES.zip

  25.4 KB · Affichages: 23
• DDM V8 RELEVE DES NOTES.zip

  25.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Juillet 2010

• #9

Re : Macro "création" avec if

Bonjour ddm, Bonjour GeoTrouvePas, le fil, le forum
La nuit porte conseils...
Une nouvelle version.
Le classeur "Attestations" sera créé dans le même répertoire que votre fichier. Si il existe il sera remplacé.
J'ai laissé des commentaires dans les codes (en particulier pour la macro 'Effacement"
Je te laisse tester.

@ GeoTrouvePas : Ah, ça c'était vu 😉, mais de ce côté là, je n'ai pas grand conseil a donner vu mes propres fôte...😛
Cordialement.

 

Pièces jointes

• DDM V8 RELEVE DES NOTES.zip

  40.3 KB · Affichages: 31
• DDM V8 RELEVE DES NOTES.zip

  40.3 KB · Affichages: 30
• DDM V8 RELEVE DES NOTES.zip

  40.3 KB · Affichages: 34

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #10

Re : Macro "création" avec if

Efgé à dit:

@ GeoTrouvePas : Ah, ça c'était vu 😉, mais de ce côté là, je n'ai pas grand conseil a donner vu mes propres fôte...😛

Cliquez pour agrandir...

Et mince je me suis fait chopper. Dur de manipuler VBA et l'orthographe en même temps si tôt le matin.

Bonne journée

 

Vote positif 0 Vote négatif

D

ddm

Guest

• 29 Juillet 2010

• #11

Re : Macro "création" avec if

Merci Messieurs

Efgé c exactement ce que je voulais,veuillez m'informer s'il y a lieu d'autre amélioration

Merci

 

Vote positif 0 Vote négatif