XL 2010 Ajout du sigle pourcentage lors d'une exportation

thespeedy20 · 14 Juin 2018

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 · 17 Juin 2018

Re,

@thespeedy20
En utilisant la méthode Publipostage (explicitée par la vidéo que je t'ai présenté précédemment), en remaniant ta base Excel, en créant un document Word, puis en insérant les champs de fusion idoines, en théorie, ça devrait te prendre moins d'une heure.

Pour le reste, devoir générer 1000 certificats la veille pour le lendemain, ce n'est pas un problème Excel mais un problème organisationnel. 😉

PS1: Je n'ai rien gagné ou perdu.
Je t'ai fait une suggestion*.
Et si je l'ai faite, c'est que c'est la méthode que j'utilise quand je dois générer N documents.
(que ce soit des lettres, des catalogues, des certificats ou même un mailing)

Tu es libre de la suivre ou pas 😉

*(Word+Excel)

PS2:

thespeedy20 à dit:
re,
@Staple1600
Je ne vois où insérer le step...
Peux-tu me dire dois-je mettre afin que cela fonctionne
Merci...
Oli

La macro de mon précédent post étant censée te montrer comment j'utilise le Step...

Staple1600 · 17 Juin 2018

Re

Voila le prémisse de ce vers quoi théoriquement ma macro "indice" devait t'amener 😉

VB:

Sub GenererCertifs_B()
Dim i&, t, ws As Worksheet
Set ws = Feuil3 'ici mettre le codename de la bonne feuille
Application.ScreenUpdating = False
ws.Columns(1).Clear: ws.Columns(1).ColumnWidth = 117.86
With Sheets("Base") ' mettre le nom de la bonne feuille
  j = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row Step 2
    t = .Cells(i, 1).Resize(2, 4)
      '1er certif
      [CERTIFB].Item(10) = t(1, 1)
      [CERTIFB].Item(14) = t(1, 2)
      
      '2ième certif
      [CERTIFB].Item(33) = t(2, 1)
      [CERTIFB].Item(37) = t(2, 2)
      [CERTIFB].Copy ws.Cells(j, 1)
      Application.CutCopyMode = False
      j = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Erase t
    Next
End With
End Sub

Je te laisse compléter le reste (à moins que tu ais déjà le nez dans Word 😉 )

thespeedy20 · 20 Juin 2018

Bonjour le Forum, Staple1600

@Ce lien n'existe plus

J'ai finalement fait mes certificats avec la méthode Word-Excel, c'est nettement plus facile, tu avais entièrement raison, merci pour toute l'aide apportée dans mon projet....

Ici j'ai adapté la dernière macro mais j'ai soucis avec if Len...cela ne fonctionne pas...
Peux-tu me dire pourquoi ?

Merci

VB:

Sub GenererCertifs_B()
Dim i&, t, ws As Worksheet
Set ws = Feuil6 'ici mettre le codename de la bonne feuille
Application.ScreenUpdating = False
ws.Columns(1).Clear: ws.Columns(1).ColumnWidth = 117.86
With Sheets("Résulat_formation") ' mettre le nom de la bonne feuille
  j = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To .Cells(Rows.Count, 1).End(3).Row Step 2
    t = .Cells(i, 1).Resize(2, 10)
      '1er certif
      [CERTIFB].Item(10) = t(1, 10)
      [CERTIFB].Item(14) = t(1, 3)
      [CERTIFB].Item(16) = "a satisfait à la filière de Formation du cours de: " & t(1, 1)
      If Len(t(1, 9)) > 1 Then
      [CERTIFB].Item(18) = "Avec: " & t(1, 9).Text
      End If
      '2ième certif
      [CERTIFB].Item(33) = t(2, 10)
      [CERTIFB].Item(37) = t(2, 3)
      [CERTIFB].Item(39) = "a satisfait à la filière de Formation du cours de: " & t(2, 1)
      If Len(t(2, 9)) > 1 Then
      [CERTIFB].Item(41) = "Avec: " & .Cells(2, 9).Text
      [CERTIFB].Copy ws.Cells(j, 1)
      End If
      Application.CutCopyMode = False
      j = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Erase t
    Next
End With
End Sub

Oli

Staple1600 · 20 Juin 2018

Bonsoir le fil, le forum

@thespeedy20

thespeedy20 à dit:
Peux-tu me dire pourquoi ?

a) Sans fichier exemple => Non
b) Avec fichier exemple (identique à celui où le bug survient) => Oui

thespeedy20 · 20 Juin 2018

re,

le voici

Staple1600 · 20 Juin 2018

Re

@thespeedy20
Tu as essayé et étudié l'exemple du message#29
Parce que si oui, tu n'aurais pas eu à poser la question du message#33 😉

thespeedy20 · 20 Juin 2018

re,

Je suppose que tu fais allusion à ceci : Chr(13)

Oli

Staple1600 · 20 Juin 2018

Re

Non pas du tout.
Dans l'exemple du message#29, sur quelle ligne sont les entêtes ?
Quand tu auras répondu à cette question, va voir ta ligne d'entête sur la feuille Résulat_formation
🙄

thespeedy20 · 20 Juin 2018

re,

Dans l'exemple du message#29, sur la ligne 1 et dans mon fichier la ligne 3

Staple1600 · 20 Juin 2018

Re

Donc tu as ta réponse 😉

thespeedy20 · 20 Juin 2018

re,

rien à faire, fonctionne toujours pas, je comprends pas... le vba n'est pas pour moi🙁

Staple1600 · 20 Juin 2018

Re

Si la macro a été écrite avec des lignes d'entêtes en ligne 1
Il est normal qu'elle fonctionne moins bien sur une feuille où les lignes d'entêtes sont ligne 3, non ?

Staple1600 · 20 Juin 2018

Re

@thespeedy20
J'ai creusé un peu plus 😉
(NB: J'ai inhibé au préalable la procédure événementielle dans le feuille Résulat_formation)

VB:

Sub GenererCertifs_C()
Dim i&, t, ws As Worksheet
Set ws = Feuil6 'ici mettre le codename de la bonne feuille
Application.ScreenUpdating = False
ws.Columns(1).Clear: ws.Columns(1).ColumnWidth = 117.86
With Sheets("Résulat_formation") ' mettre le nom de la bonne feuille
  j = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To .Cells(Rows.Count, 1).End(3).Row Step 2
    t = .Cells(i, 1).Resize(2, 10)
      '1er certif
      [CERTIFB].Item(10) = t(1, 10)
      [CERTIFB].Item(14) = t(1, 3)
      [CERTIFB].Item(16) = "a satisfait à la filière de Formation du cours de: " & t(1, 1)
      If Len(t(1, 9)) > 1 Then
      [CERTIFB].Item(18) = VBA.format(t(1, 9), """Avec: ""0.00%")
      End If
      '2ième certif
      [CERTIFB].Item(33) = t(2, 10)
      [CERTIFB].Item(37) = t(2, 3)
      [CERTIFB].Item(39) = "a satisfait à la filière de Formation du cours de: " & t(2, 1)
      If Len(t(2, 9)) > 1 Then
      [CERTIFB].Item(41) = VBA.format(t(2, 9), """Avec: ""0.00%")
      [CERTIFB].Copy ws.Cells(j, 1)
      End If
      Application.CutCopyMode = False
      j = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Erase t
    Next
End With
End Sub

thespeedy20 · 21 Juin 2018

Bonjour le Forum, Staple1600

@Staple1600

J'ai réalisé un nouveau fichier propre avec la dernière macro, mais toujours des soucis au niveau des points... (ex: 78%, i il indique 77,5%) et certain points ne correspondent pas au nom de l'élève....

Sur l'onglet résultat, rien, si je fais imprimez il y a les certificats !!!
Sur l'onglet certi, il affiche les deux derniers certificats...!!!

XL 2010 Ajout du sigle pourcentage lors d'une exportation

thespeedy20

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Pièces jointes

XL 2010 Ajout du sigle pourcentage lors d'une exportation

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

Privacy & Transparency

Privacy & Transparency