4D View v15PV SET CELL PROPERTY |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
4D View v15
PV SET CELL PROPERTY
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| PV SET CELL PROPERTY ( zone ; colonne ; ligne ; propriété ; valeur ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D View | |||||
| colonne | Entier long |
|
Numéro de la colonne de la cellule | |||||
| ligne | Entier long |
|
Numéro de la ligne de la cellule | |||||
| propriété | Entier long |
|
Numéro de propriété | |||||
| valeur | Entier long |
|
Valeur de la propriété | |||||
La commande PV FIXER PROPRIETE CELLULE fixe la valeur de la propriété de la cellule définie par les paramètres colonne et ligne.
Pour définir le paramètre propriété, vous pouvez utiliser :
| Constante | Type | Valeur | Comment |
| pv hauteur cellule | Entier long | 101 | Hauteur de la cellule. Valeurs associées : hauteur exprimée en pixels. |
| pv largeur cellule | Entier long | 100 | Largeur de la cellule. Valeurs associées : largeur exprimée en pixels. |
| Constante | Type | Valeur |
| pv style alignement hor | Entier long | 29 |
| pv style alignement vert | Entier long | 30 |
| pv style caché | Entier long | 1 |
| pv style correction orthographe | Entier long | 2 |
| pv style couleur fond impair | Entier long | 12 |
| pv style couleur fond pair | Entier long | 11 |
| pv style couleur négatif impair | Entier long | 18 |
| pv style couleur négatif pair | Entier long | 17 |
| pv style couleur texte impair | Entier long | 14 |
| pv style couleur texte pair | Entier long | 13 |
| pv style couleur zéro impair | Entier long | 16 |
| pv style couleur zéro pair | Entier long | 15 |
| pv style fondé sur style | Entier long | 4 |
| pv style format booléen | Entier long | 8 |
| pv style format date heure | Entier long | 9 |
| pv style format image | Entier long | 10 |
| pv style format numérique | Entier long | 7 |
| pv style format texte | Entier long | 6 |
| pv style format texte forcé | Entier long | 32 |
| pv style retour à la ligne auto | Entier long | 33 |
| pv style rotation | Entier long | 31 |
| pv style texte condensé | Entier long | 27 |
| pv style texte étendu | Entier long | 28 |
| pv style texte gras | Entier long | 22 |
| pv style texte italique | Entier long | 23 |
| pv style texte ombré | Entier long | 26 |
| pv style texte police | Entier long | 19 |
| pv style texte relief | Entier long | 25 |
| pv style texte souligné | Entier long | 24 |
| pv style texte style | Entier long | 21 |
| pv style texte taille | Entier long | 20 |
| pv style utiliser taille image | Entier long | 3 |
| pv style verrouillé | Entier long | 0 |
Cherchons toutes les cellules qui contiennent une formule faisant référence à la cellule D20, afin de les verrouiller ou de les déverrouiller en bascule (switch) :
C_LONGINT($CelluleProtégée) `Pour le verrouillage ou non des cellules
C_LONGINT($ColonneFin;$LigneFin) `Pour sauvegarde des limites bas / droit
C_LONGINT($ColDépart;$LigneDépart) `Pour sauvegarde des limites haut / gauche
C_LONGINT($Colonne;$Ligne) `Pour les boucles sur les coordonnées
ARRAY LONGINT($TabGauche;0)
ARRAY LONGINT($TabHaut;0)
ARRAY LONGINT($TabDroit;0)
ARRAY LONGINT($TabBas;0)
PV FIND ALL(Zone;"$D$20";0;0) `Formules contenant "$D$20"
`Coordonnées des cellules sélectionnées
PV GET SELECTED RANGES LIST(Zone;$TabGauche;$TabHaut;$TabDroit;$TabBas)
If(Size of array($TabGauche)#0) `Il y a des formules correspondant au critère de recherche ?
SORT ARRAY($TabGauche;$TabHaut;$TabDroit;$TabBas;>)
$ColDépart:=$TabGauche{1} `Récupération de la cellule la + à gauche
SORT ARRAY($TabHaut;$TabGauche;$TabDroit;$TabBas;>)
$LigneDépart:=$TabHaut{1} `Récupération de la cellule la + haute
SORT ARRAY($TabDroit;$TabHaut;$TabGauche;$TabBas;>)
$ColonneFin:=$TabDroit{Size of array($TabDroit)} `Récupération de la cellule la + à droite
SORT ARRAY($TabBas;$TabDroit;$TabHaut;$TabGauche;>)
$LigneFin:=$TabBas{Size of array($TabBas)} `Récupération de la cellule la + basse
`Passons en revue la sélection
For($Colonne;$ColDépart;$ColonneFin)
For($Ligne;$LigneDépart;$LigneFin)
If(Position("$D$20";PV Get cell formula(Zone;$Colonne;$Ligne))>0)
`Verrouillage ?
$CelluleProtégée:=PV Get cell property(Zone;$Colonne;$Ligne;pv style locked)
`Bascule verrouillage/déverrouillage
PV SET CELL PROPERTY(Zone;$Colonne;$Ligne;pv style locked;
Num($CelluleProtégée=0)) `0 <-> 1
End if
End for
End for
End if `Plage(s) sélectionnées ?
PV Get cell property
PV Get range property
PV SET RANGE PROPERTY
Produit : 4D View
Thème : PV Propriété de cellule
Numéro :
15927
Modifié : 4D View 2004
4D View - Langage ( 4D View v15)
Ajouter un commentaire