|
|
|
|
|
|
|
|
|
|
version 6.8
PV FIXER FORMULE CELLULE (zone; colonne; ligne; formule)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D View |
| colonne | Entier long | | Numéro de colonne de la cellule |
| ligne | Entier long | | Numéro de ligne de la cellule |
| formule | Alpha | | Formule |
Description
La commande PV FIXER FORMULE CELLULE place formule dans la cellule désignée par colonne et ligne.
Exemple
L'exemple suivant crée une incrémentation vers le bas à partir d'une cellule de type numérique. Si la valeur de cette dernière est modifiée ultérieurement, l'incrémentation se mettra à jour automatiquement par l'action des formules que nous plaçons dans les cellules avec PV FIXER FORMULE CELLULE.
C_ENTIER($NombreCopies) `Le nombre de copies à effectuer
C_ENTIER LONG($Colonne;$Ligne) `Coordonnées de la cellule à recopier
C_ENTIER($Indice) `Indice de boucle
C_TEXTE($Nom) `Nom de la cellule de départ
PV LIRE CELLULE COURANTE (Zone;$Colonne;$Ligne)
Si (PV Lire type valeur cellule (Zone;$Colonne;$Ligne)=pv type valeur nombre) `Vérification du type
$NombreCopies:=Num(Demander("Combien de cellules vers le bas désirez-vous
incrémenter ?";"5")) `5 par défaut
Si ($NombreCopies>0) `Validé
$Nom:=PV Lire nom cellule (Zone;$Colonne;$Ligne) `Récupération du nom
Si ($Nom="") `Pas de nom ?
$Nom:="COL"+Chaine($Colonne)+"LI"+Chaine($Ligne) `À présent elle en a un
PV FIXER NOM CELLULE(Zone;$Colonne;$Ligne;$Nom) `nom de type "COL2LI3"
Fin de si
Boucle ($Indice;$Ligne+1;$Ligne+$NombreCopies) `$NombreCopies boucle(s)
PV FIXER FORMULE CELLULE (Zone;$Colonne;$Indice;"="+$Nom+"+"
+Chaine($Indice-$Ligne)) `Incrémentation
Fin de boucle
Fin de si
Sinon `Type incorrect
ALERTE("La cellule de départ doit être de type numérique")
Fin de si
Références
PV Lire formule cellule, PV Lire type valeur cellule.
|
|
|
|
|
|
|
|
|
|