| 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
Ajouter un commentaire