Macro "création" avec if

[ddm]

Bonjour;

Voilà ma requête, j'ai enregistré un marco pour la création automatique des etats, je n'arrive pas à ajouter le condition (if) dans le module3

veuillez trouver ci-joint un extrait de mon fichier pour mieux comprendre

Merci

 

[Efgé]

Re : Macro "création" avec if

Bonjour ddm,
Une proposition en pièce jointe
Cordialement

 

[GeoTrouvePas]

Re : Macro "création" avec if

Bonjour,

Suffit de placer ta condition comme ceci :

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 :

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 !

 

[GeoTrouvePas]

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.

 

[ddm]

Re : Macro "création" avec if

slt

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

 

[ddm]

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" ??

 

[Efgé]

Re : Macro "création" avec if

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

 

[GeoTrouvePas]

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

 

[Efgé]

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.

 

[GeoTrouvePas]

Re : Macro "création" avec if

@ 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...😛

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

 

[ddm]

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