Case à cocher Modifier la taille

Mais de nouveau vous ne faites pas ce que j'ai écrit
Je ne vous ai pas écrit de placer l'instruction décrite dans mon point 1 après le ELSE mais avant

Edit : dans le module 5, Sub Barrer_Topographique(), vous devez aussi remplacer cette ligne

If StrComp(shp.Name, "Topo_Secu", 1) = 0 Then shp.Delete

par celle-ci

If StrComp(shp.Name, "Topo_Secu", 1) = 0 Or StrComp(shp.Name, "shpNA", 1) = 0 Then shp.Delete

Désolé j'avais omis de vous l'écrire

Merci beaucoup, c'est tous ce que j'avais besoin

Je voudrais juste que sa fasse une remove comme le trait rouge avec le double clic. Est-ce possible d'ajouter cette étape.

Je voudrais juste que sa fasse une remove comme le trait rouge avec le double clic.

?? je n'ai rien compris
le double click ??
Il n'y a jamais eu de double click dans votre fichier sur le trait rouge

NB : Evitez de me replacer chaque fois votre fichier.

Tout est bon Dan. Je vous remercie d'avance Dan pour votre aide. Je clôture le chat

re

Pour cloturer une discussion

Crdlt

Re.

Merci, c'est fait.