Bonjour Mth,

c'est sympa de ta part d'avoir écrit ce petit tutoriel, très bien expliqué.

Je te remercie.

Bonne fin de journée à toi.


Jacky de Fontaineblau.

Bonjour Didier, le Forum,

aujourd'hui je vous propose mon nouveau fichier, chaudement sorti d'usine ce matin.

Pas de commentaire ici mais dans le fichier.

La PJ:  cjoint.com/  (160Ko norm. - 120Ko zippée )


Très bon dimanche à tous. 

Bonsoir insitupr2i,

prend l'habitude de mettre un fichier en pièce jointe s'il te plaît, sinon personne pourra t'aider.

Je te remet le mien avec des mises en formes conditionnelles. J'éspère aussi que tu utilise Excel 2007, sinon je suis mal parti.

Clique sur Accueil, à droite tu as Mise en forme conditionnelle, clique dessus puis sur Gérér les règles; dans la liste déroulante sélectionne "Cette feuille de calcul" puis sur Modifier pour voir les formules.

Regarde si ça te convient.

Bonsoir Didier, bonsoir le Forum,

Vous trouverez en pièce jointe les fichiers zippés, contenant un classeur exemple et le classeur .xla à mettre dans le dossier Addins de Microsoft.

Ouvrez le classeur "Fonctions personnalisées", choisissez un exemple et cliquez dessus.
Dans l'exemple, il faudra rechercher la cellule qui contient la fonction (désolé! ).
Cliquez ensuite sur fx, la fenêtre "Arguments de la fonction" devrait normalement s'afficher;
cliquez enfin sur accueil pour revenir à la liste.

Dans le fichier .xla vous-y trouverez les divers Modules et dans ThisWorkbook, toujours du .xla,
les arguments des diverses fonctions.

Concernant la feuille texte vertical, double-cliquez sur celle-ci.

Pour les instructions de l'installation de celui-ci référez-vous à cette adresse:

www.mdf-xlpages.com/modules/smartsection/item.php

Et pour télécharger le fichier (encore une fois désolé Didier , il est trop volumineux)
skydrive.live.com/

Très bonne soirée à tous! 

Bonsoir Mytà,

merci d'avoir répondu.

Intéressante la fonction, je vais la garder au chaud pour une prochaine utilisation.


Good Week

Bonsoir à tous,

en pièce jointe, une façon d'afficher un texte à la verticale dans une TextBox.


Très bonne soirée

En enlevant les lignes inutiles que tu m'a d'écrit, j'ai u le  message d'erreur
"élément introuvable". Alors j'ai mis à 1 la ligne:  If Nb = 0 Then, comme tu m'a conseillé.

Merci infiniment pour ton aide et ta patience Didier.


A bientôt 

Re Didier,

Toutes mes excuses concernant le fichier. J'aurais du voir dans les propriétés qui était l'auteur.

Voilà, j'ai réussi a obtenir le résultat que je cherchais; maintenant le problème c'est que je n'arrive pas à stopper la macro après l'affichage de la 12ème zone de texte.

Le nouveau fichier en PJ.

Edit: je viens d'inserer cette ligne dans la PJ:

If Tot >= 13 Then ActiveSheet.Shapes("zonetxt" & Tot).Delete

Mais est-ce juste codé ainsi pour finter l'arrêt de la macro?
_________________________________________________________________

J'ai aussi une autre question.

Je suis sous Win7 Edition Home Premium, lorsque je tape sur Enter dans le message, la page descend automatiquement, c'est normal?



A+

Re Didier,

j'ai réussi à obtenir en partie le résultat que je voulais obtenir.

Je te remets la PJ avec une nouvelle question.


A+

Bonjour Didier,

je suis étonné que tu ne connaisse pas le fichier, moi je l'ai bien téléchargé ici sur ton site pourtant.
Je ne sais plus si c'est dans les tutoriels ou dans les téléchargements.

Concernant la Zonetxt6, il faut modifier la zonetxt à droite en mettant 6 au lieu de 5.
J'avais fait un copier-coller de celle-ci. Pour les explications, elles sont dans le fichier que j'ai mis
sur mon premier post.

Ton fichier original en PJ.



A+