XL 2010 Ajout du sigle pourcentage lors d'une exportation

Lone-wolf

XLDnaute Barbatruc

• 15 Juin 2018

• #2

Bonjour Oli

J'ai regardé le fichier, mais je ne vois pas où mettre les lignes de code. Sinon

VB:

Public Sub Affichage()
Dim k&

    With Sheets("Résultat")
        For k = 4 To 53
            'Si les cellules sont numériques
            If IsNumeric(.Cells(k, "I")) Then
                .Cells(k, "I") = .Cells(k, "I") / 100
                .Cells(k, "I").NumberFormat = "0%"
            Else

            End If
            If .Cells(k, "I") = vbNullString Then _
               .Cells(k, "I") = "Pas d'évaluation pour cet élève"
        Next k
    End With
            .Range("I:I").Columns.Autofit
End Sub

Il n'y a pas besoin d'ajouter ThisWorkbook pour indiquer les feuilles, en suite en commentaire ce ne sont pas des classeurs mais des feuilles.

 

Dernière édition: 15 Juin 2018

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 15 Juin 2018

• #3

Bonjour Lone-Wolf,

Merci pour ta solution, quand j'applique la macro, j'ai une erreur de type : erreur de compilation, référence incorrecte ou non qualifiée sur la ligne .Range("I:I").Columns.AutoFit

Oli

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #4

Bonjour Lone-Wolf,

autre petite chose, quand il n'y a rien dans cellule, il indique 0%, au lieu de pas de résultat...


Oli

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Juin 2018

• #5

Bonjour le fil, le forum

@thespeedy20
Pour infos (et en ces temps de RGPD* qui impacte aussi les forums comme XLD...)

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Cliquez pour agrandir...

*:
https://www.cnil.fr/fr/principes-cles/rgpd-se-preparer-en-6-etapes

Sinon pour la question:
Qu'entends-tu par : exporter vers mes diplômes ?

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #6

Bonjour Staple 1600,

J'ai enlevé les fichiers du premier post avec les noms (merci pour les informations)

Les deux premiers onglets, sont les deux types de diplômes possibles .

A partir de l'onglet résultat ou résultat formation, je transfert le nom et prénom de l'élève, le domaine dans lequel il se trouve, ainsi que le résultat, ici quand je transfert par 75%, il indique sur mon diplôme 0,75 au lieu de 75%. j'aimerais aussi quand il y a pas de points ou d'appréciation qu'il indique "pas de résultat pour cet élève..."

Oli

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 17 Juin 2018

• #7

Bonjour thespeedy, re Jean Marie

Supprime .Range("I:I").Columns.Autofit.

Pour ne pas afficher les zéros c'est tout simple. Fichier > Options > Options Avancées > Option d'affichage de la feuille de calcul
et tu décoche "Afficher un zéro dans les cellules qui on une valeur nulle".

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Juin 2018

• #8

Re,

@thespeedy20
Il reste du ménage à faire dans ton fichier 😉
Voir onglets suivants:
Finform
Résulat_formation
Diplomes
Résultat
🙄

Sinon pour ce genre de tâches, le plus pratique c'est d'utiliser un publipostage (Word+Excel)
Sur Word, tu crées un modèle de Certificat
(dans un fichier Excel, tu as ta base de données Élèves)
Ensuite avec les options offertes par Word, c'est un jeu d'enfants pour créer les certificats
(et avec les champs de fusion et les codes de champs tu peux personnaliser à loisir)
Cette piste t’intéresse ou tu préfères rester sur ta solution actuelle ?

EDITION: Re Lone-Wolf

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #9

Re,

Je suis ouvert à toutes les solutions, je ne suis pas contre un développement d'excel vers Word...
Quels sont les procédures ? car là aucunes notions

Pour mon projet actuel, y a t il beaucoup de modifications à faire ?

Merci pour le temps consacré....

Oli

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Juin 2018

• #10

Re

@thespeedy20
Tu as zappé ce passage, non ? (dans mon précédent message) 🙄

Staple1600 à dit:

Il reste du ménage à faire dans ton fichier 😉
Voir onglets suivants:
Finform
Résulat_formation
Diplomes
Résultat

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #11

re,

Oui, pardon, je suis fatigué...

Faut mieux que l'on reparte sur des bases plus seines... donc nouveau projet Word-Excel

Oli

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Juin 2018

• #12

Re,

@thespeedy20
Oui très fatigué, alors 😉
Car ton fichier est toujours là
(dans le message#6)

Donc alors pour ce qui est de Word+Excel, voici de quoi te mettre le pied à l'étrier 😉
1)

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

2)
Ce lien n'existe plus
3)
http://acta-media.fr/MICROSOFT/MICROSOFT/Word/Fiche pratique/Microsoft Word - Publipostage.pdf

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #13

re,

merci pour toutes les informations, je vais mettre au travail de suite...

Ps: j'ai enlevé le fichier du poste 6... 🙂

Oli

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 17 Juin 2018

• #14

Re

@Staple1600
Pourquoi Ajouter Word, quand on peut le faire directement sur Excel??? 😵

Pour l'affichage des %, Il sélectionne la colonne - format personnalisé > 0%.

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 17 Juin 2018

• #15

re,

Cela ne change pas grand chose, il retire le 0%, mais n'affiche pas le message demandé...(Pas de résultats pour cet élèves)...
Je suis un peu perdu...

Oli

 

Vote positif 0 Vote négatif