Annonce
Pages: 1
- Sujet précédent - ArcView 9.2 SP6 - Tester des cellules en VBA pour des labels - Sujet suivant
#1 Wed 01 October 2008 12:02
- Trotamundos
- Participant assidu
- Lieu: Geneva
- Date d'inscription: 16 Jan 2007
- Messages: 230
ArcView 9.2 SP6 - Tester des cellules en VBA pour des labels
Bonjour,
Je cherche à faire un truc simple dans le VBA pour les labels, afin de tester si une valeur de champ est nulle ou pas. Comme dans l'exemple ci-dessous, avec If Y est vide (ou nul), donc... Mais la syntax n'est pas correct ! Toutes mes cellules passent le test là!
Function FindLabel ( [X], [Y], [Z] , [W] )
if [Y] <> "" then
FindLabel = "<FNT name='Arial' size='8'>" & "<BOL>" & [Y] & " " & [Z] & "''" & vbNewLine & [W] & " MM" & "</BOL>" & "</FNT>"
else
FindLabel = FindLabel = "<FNT name='Arial' size='8'>" & "<BOL>" & [X] & " " & [Y] & "''" & vbNewLine & [W] & " MM" & "</BOL>" & "</FNT>"
end if
End Function
Hors ligne
#2 Wed 01 October 2008 12:04
- Tnarbiv
- Participant assidu
- Lieu: Véretz
- Date d'inscription: 5 Sep 2005
- Messages: 392
Re: ArcView 9.2 SP6 - Tester des cellules en VBA pour des labels
FindLabel = FindLabel = "<FNT name='Arial' size='8'>" & "<BOL>" & [X] & " " & [Y] & "''" & vbNewLine & [W] & " MM" & "</BOL>" & "</FNT>"
tu as 2 fois FindLabel -> FindLabel = FindLabel =
Ayez le réflexe "Développement Durable": N'imprimez ce message que si nécessaire.
Hors ligne
#3 Wed 01 October 2008 13:51
- Trotamundos
- Participant assidu
- Lieu: Geneva
- Date d'inscription: 16 Jan 2007
- Messages: 230
Re: ArcView 9.2 SP6 - Tester des cellules en VBA pour des labels
Merci et bien vu pour la faute!
Mais aussi, mon premier test avec le If était toujours validé car mes cellules vides ont en fait un espace! Donc, je dois tester
If [Test] <> " "
avec un espace!
Merci
Hors ligne
Pages: 1
- Sujet précédent - ArcView 9.2 SP6 - Tester des cellules en VBA pour des labels - Sujet suivant
