Bonsoir Didier, bonsoir à tous,

j'ai quelque peu modifié le fichier Zonetxt.xls et maintenant j'aimerais , comme tu pourra le voir sur celui que j'ai modifié,  commencer par le 5ème étage au rez-de-chaussé, et en affichant 2 couples de locataires par étage.

D'avance Merci.

Re Jacky,

Désolé, je ne connais pas ce fichier et je n'ai pas compris ta question.

Par ailleurs, plantage lorsqu'on clique sur ton bouton "Cliquez ici" (la zone de texte "zonetxt6" n'existe pas).

Cordialement,

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+

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 Jacky, le Forum,

Je pratique Excel depuis un peu plus de dix ans, il est sûr que j'ai réalisé quelques fichiers... mais je ne reconnais absolument pas ma façon de coder VBA dans ce document, ni le reste (ce qui n'enlève rien à la qualité du travail de l'auteur original, hein ! ).

Je te confirme donc que je ne suis pas l'auteur de ce fichier et, après recherche, je puis même te dire que l'auteur est Fring (Fred) de nos amis de Développez.com. Le vrai fichier original est sous CE LIEN.

J'ajoute que si, comme c'était le cas dans le classeur d'origine, tu avais laissé le nom de l'auteur dans les propriétés (Fred), c'était d'une part une bonne façon d'éclaircir ce point et d'autre part, ça reste la meilleur façon de remercier le véritable auteur de ce document à caractère pédagogique.

Pour en revenir à ta question et selon le peu d'info finalement laissée à ma disposition, tu trouveras ci-joint le fichier modifié selon mon interprétation du problème...

J'ai utilisé le code VBA suivant :

En espérant que ça puisse t'aider.

Cordialement,

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,

Si j'ai bien compris, je te propose de rajouter cette ligne :
... juste avant ceci :


Par ailleurs, je t'informe que ton test :
... ne sert à rien, car là où il est placé, Nb ne devrait jamais être égale à 0 (mais à 1 au minimum)


Concernant ton problème de touche Enter dans l'éditeur de post, j'ai Win7 Pro et je n'ai pas ce souci. Je ne peux donc te dire... Un paramètrage particulier de l'OS ou bien de ton navigateur internet (?)

Cordialement,

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