Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#1 Thu 01 December 2011 17:22

Charles Magne
Participant occasionnel
Date d'inscription: 10 Jun 2008
Messages: 30

[ArcGis 9.3] Étiquettes avancées avec conditions VBA

Bonjour à tous,

Malgré plusieurs messages et quelques exemple sur le forum, je n'arrives pas à résoudre mon problème d'étiquettes.
Voici mon problème. Je dispose d'un couche du réseau hydrographique de mon bassin versant au 1:20000.
Je souhaite afficher les étiquettes seulement pour les lacs (champ TYPE) dont la superficie est supérieure à 1 km2 (Champ SUPERF).
Voilà l'expression que j'écris sans que ça me retourne quoique ce soit :


Code:

Function FindLabel ( [TOPONYME], [SUPERF] , [TYPE]  )
if ([TYPE] ="lac" AND [SUPERF] > 1) Then
FindLabel = [TOPONYME]
end if
End Function

Merci par avance pour votre aide !
++

Hors ligne

 

#2 Wed 14 December 2011 16:43

Yvain
Participant occasionnel
Lieu: Rennes
Date d'inscription: 7 Nov 2006
Messages: 13

Re: [ArcGis 9.3] Étiquettes avancées avec conditions VBA

Bonjour,

Il est possible de réaliser une requête sans passer par du VBA me semble-t-il. En tout cas dans la version 9.2 (que je possède), pour la 9.3 je ne sais pas.
Dans l'onglet Etiquettes tu sélectionnes la méthode : "Utiliser différentes classes d'étiquettes" et à ce moment là s'affiche un bouton "Requête SQL" qui va te permettre de faire ton filtre.

En espérant que çà va pouvoir t'aider.

Hors ligne

 

#3 Wed 14 December 2011 16:59

Spacejo
Membre
Lieu: Nancy
Date d'inscription: 17 Aug 2008
Messages: 2511

Re: [ArcGis 9.3] Étiquettes avancées avec conditions VBA

Salut,

Essaye ceci:

Code:

Function FindLabel ( [TOPONYME], [SUPERF] , [TYPE]  )
if [TYPE] like 'lac' AND [SUPERF] > 1 Then
FindLabel = [TOPONYME]
end if
End Function

A+
Joël

Hors ligne

 

#4 Thu 15 December 2011 08:54

LeonWeb73
Participant actif
Lieu: Chambéry
Date d'inscription: 5 Sep 2005
Messages: 126
Site web

Re: [ArcGis 9.3] Étiquettes avancées avec conditions VBA

Yvain a écrit:

Bonjour,

Il est possible de réaliser une requête sans passer par du VBA me semble-t-il. En tout cas dans la version 9.2 (que je possède), pour la 9.3 je ne sais pas.
Dans l'onglet Etiquettes tu sélectionnes la méthode : "Utiliser différentes classes d'étiquettes" et à ce moment là s'affiche un bouton "Requête SQL" qui va te permettre de faire ton filtre.

En espérant que çà va pouvoir t'aider.


+1

C'est le plus simple et à priori le moins gourmand en temps de calcul et d'affichage.
@+


Arnaud Colé - responsable service Géomatique et Opendata (SGéO)
Direction des Systèmes d'Information mutualisés et du Numérique
de Grand Chambéry, ville de Chambéry, ville de La Motte-Servolex, ville de La Ravoire

Hors ligne

 

#5 Tue 03 January 2012 22:25

Charles Magne
Participant occasionnel
Date d'inscription: 10 Jun 2008
Messages: 30

Re: [ArcGis 9.3] Étiquettes avancées avec conditions VBA

Bonjour et merci pour vos réponses !

Merci Yvain pour ta méthode c'est exactement ce que je voulais, et ça reste plus simple que du VBA. :-)

Merci quand même à Spacejo !

++

Hors ligne

 

Pied de page des forums

Powered by FluxBB