XL 2010 Ajout du sigle pourcentage lors d'une exportation

[thespeedy20]

Bonjour à tous,

J'ai une base de donnée pour réaliser des diplômes, quand j'exporte les points , j'aimerais qu'il indique ceux-ci en %...

Y a t il un moyen lorsque j'exporte vers mes diplômes :

- 3 possibilités :

1ère : affiché le sigle pourcent
2ème : que le texte reste du texte
3ème : quand l'élève n'as pas de résultat, d'indiquer pas d'évaluation pour cet élèves

Merci d'avance pour vos solutions ou idées

Oli

 

[Staple1600]

Re

@Lone-wolf
Parce ce que:
1) J'ai demandé au demandeur si il était intéressé
2) par fidélité au principe K.I.S.S
3) les possibilités de "formatage" du certificat sont plus étendues et surtout plus simples sur Word
4) si on en croit la vidéo (lien de mon précédent message), je suis pas le seul à opter pour le publipostage.

PS: Si le demandeur met sa casquette theslowly20 , il a le loisir de facilement anonymiser le fichier précédent
(grâce à la recopie incrémentée d'Excel)
NOM1 PRENOM1 puis recopie vers le bas.

@thespeedy20
Tu disais opter pour le publipostage?
Tu as changé d'avis ?

 

[thespeedy20]

@Staple1600

Je travaille sur le publipostage avec word...(les tutos sont très intéressants...)

mais j'aimerais finir quand même sur le projet excel, car j'y ai passé beaucoup de temps...( j'aimerais savoir, ce qu'il faut corriger afin que le projet tienne la route... encore merci de l'intérêt porté... et éventuellement d'un peu d'aide...

Oli

 

[Staple1600]

Re,

@thespeedy20
Dans ce cas, prends le temps de complètement anonymisé ton fichier et poste ce nouveau fichier ici.
(Mais franchement, les certificats seraient générés avec Word bien avant que tu ais fini d'anonymiser ton fichier )

 

[thespeedy20]

@Staple1600

Merci beaucoup...
Voici le fichier anonyme, plus aucun nom mais des lettres et des chiffres...

 

[Staple1600]

Re,

@thespeedy20
Décidément, quand ça veut pas , ça veut pas
Voir la feuille Diplomes (lol)

 

[thespeedy20]

re,

@Staple1600

Je vais retourner me coucher....lol
J'avais oublié d'effacer les anciens diplômes...

Oli

 

[Staple1600]

Re,

Ma manière de faire si je devais oublier Word

Sub GenererCertifsA()
Dim i&, ws As Worksheet
Set ws = Feuil5
Application.ScreenUpdating = False
ws.Columns(1).Clear: ws.Columns(1).ColumnWidth = 117.86
With Sheets("Base")
  j = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row
      [CERTIF].Item(19) = .Cells(i, "J")
      [CERTIF].Item(25) = .Cells(i, "C")
      [CERTIF].Item(30) = .Cells(i, "A")
      If Len(.Cells(i, "I")) > 1 Then
      [CERTIF].Item(33) = "Avec: " & .Cells(i, "I").Text
      End If
      [CERTIF].Copy ws.Cells(j, 1)
      Application.CutCopyMode = False
      j = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Next
End With
End Sub

NB: Au préalable, il faut nommer la plage de cellules A1:A42 de la feuille Certificat avec le nom : CERTIF
(et mettre Staple en A42 et mettant la couleur de police sur blanc)

Test OK sur le fichier exemple.

 

[Lone-wolf]

Re Jean Marie

@Staple1600

Il y a aussi les données de la feuille résultat_formation à prendre en considération.

 

[thespeedy20]

re,

Grand Merci pour ta solution Excel...
je suppose que pour l'onglet Formation, ou il y a deux certificat sur une page, je dois mettre un step... afin que deux soient remplis...

Oli

 

[Staple1600]

Re

Encore une fois, je suis ici partisan de la solution publipostage
(Beaucoup simple à mettre en oeuvre et qui évitera tout risque de plantage VBA)

J'ai mis cette macro uniquement pour me convaincre d'utiliser Word

 

[thespeedy20]

re,

@Staple1600

pour l'onglet Formation, ou il y a deux certificat sur une page, je dois mettre un step... afin que deux soient remplis... Je ne vois ou insérer le step...
Peux-tu me dire dois-je mettre afin que cela fonctionne

Merci...

Oli

 

[Staple1600]

Re

@thespeedy20
Relire mon précédent message

 

[thespeedy20]

re,

allez...

 

[Staple1600]

Re

Voici de quoi creuser la question ... puisque tu insistes
(PS: La macro ci-dessous n'est qu'un exemple pour te mettre sur la voie, à toi de voir ce qui peut servir pour remplir ta feuille avec deux certificat )

Sub IndicesOuPas()
Dim t, i&, test$
[A1] = "Item1": [A1].AutoFill [A1:D1]
[A2:D7].FormulaR1C1 = "=CHAR(64+COLUMN())&ROW()"
For i = 2 To 6 Step 2
t = Cells(i, 1).Resize(2, 4)
test = t(1, 1) & Chr(13) & t(1, 2) & Chr(13) & t(1, 3) & Chr(13) & t(1, 4) & Chr(13) & _
t(2, 1) & Chr(13) & t(2, 2) & Chr(13) & t(2, 3) & Chr(13) & t(2, 4)
MsgBox test
Erase t
Next
End Sub

 

[thespeedy20]

Re,

Je jette l'éponge, tu as gagné... je vais les faire à la main, j'irai beaucoup plus vite...j'ai presque mille certificats à faire, et dois les rendre pour demain, donc j'ai la nuit...

Merci

Bonne fin de journée