[Résolu][Calc] Copie résultat de formule et garder résultat

[stevee]

Salut à tous !

Je vous explique mon problème.


J’ai 3 feuilles,
Une feuille « FRUIT » avec la liste de mes fruits représentés par un ID.
Deux feuilles portant des prénom listant les fruits appartenant à chaque personnes.

Lorsque je saisie dans la colonne 1 pour chaque personne l’identifiant d’un fruit les champs se remplissent à l’aide de la formule « RECHERCHEV.

A l'aide de cette macro qui m'a été donnée par Hubert Lambert ( que je remercie encore une fois )

Code : Tout sélectionner

const COLFRUIT = 0
const COLPRENOM = 5
sub affecterfruit(event)
    if event.CellAddress.Column <> COLFRUIT then exit sub
    doc = thiscomponent
    f_fruits = doc.Sheets.getByName("FRUIT")
    prenom = event.Spreadsheet.Name
    id = event.Value
    base_identifiants = f_fruits.getCellRangeByPosition(0,0,0,130).DataArray
    for n = 0 to ubound(base_identifiants)
        if base_identifiants(n)(0) = id then
            f_fruits.getCellByPosition(COLPRENOM,n).setString(prenom)
            exit for
        end if
    next n
end sub

Lorsque j’attribue un FRUIT par son identifiant à une personne que le champs « ATTRIBUÉ A » se remplit automatiquement par le nom de la personne à qui a été attribué l’identifiant du fruit.Et lorsque j’efface la ligne dans la feuille de la personne a laquelle le fruit a été attribué dans ma feuille « FRUIT « le nom de la personne a qui j’ai attribué le fruit reste.

La ou je bloque maintenant c'est que j'aimerais avoir le résultat de la formule (IF) qui se trouve dans la colonne E de chaque personnes (JEAN et MARGE ) dans la colonne "REMARQUE D'APRES LA FEUILLE" et que une fois la ligne du fruit dans les feuilles (JEAN, MARGE ) soit effacé, le résultat dans la colonne "REMARQUE D'APRES LA FEUILLE " reste bien dans la feuille "FRUIT".

J'imagine qu'en adaptant la formule ça peut passé, j'ai essayé de changé la variable " prenom" pour l'adapté a ce que je veux mais je ne suis vraiment pas doué...


Est-ce quelqu’un pourrait m’aider ou a la solution ?(J’ai mis un fichier en PJ en exemple)

Je vous remercie d'avance

[micmac]

Bonjour,

Oo Version 3.4.0 / MAC OS X Lion Version 10.7.5

Votre signature indique que vous disposez d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un choix, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Il est recommandé d'être à jour de la dernière version : https://forum.openoffice.org/fr/forum/v ... m.php?f=38.

Dans votre signature vous devez indiquer :
1- La version exacte de AOO (AOO 4.1.3 par exemple) ;
2- La version exacte du système d'exploitation (MacIntel 10.12.2 par exemple).
Accès direct à votre signature pour la corriger.

Cordialement.

[stevee]

Merci je viens de mettre ma signature à jour

[luky-luke]

Bonjour
Je suis pas sûr d'avoir tout compris
La macro modifiée

Code : Tout sélectionner

const COLFRUIT = 0
const COLPRENOM = 5
const COLREMARQUE = 6

sub affecterfruit(event)
Dim doc As object
Dim LigneRemarque as long, id as long
Dim prenom as string, remarque as string, base_identifiants as variant

    if event.CellAddress.Column <> COLFRUIT then exit sub
    
    LigneRemarque = event.CellAddress.Row
    doc = thiscomponent
    f_fruits = doc.Sheets.getByName("FRUIT")
    prenom = event.Spreadsheet.Name
    Remarque = doc.Sheets.getByName(prenom).getCellByPosition(4,LigneRemarque).getString
    id = event.Value
    base_identifiants = f_fruits.getCellRangeByPosition(0,0,0,130).DataArray
    
    	for n = 0 to ubound(base_identifiants)
        	if base_identifiants(n)(0) = id then
            	f_fruits.getCellByPosition(COLPRENOM,n).setString(prenom)
            	f_fruits.getCellByPosition(COLREMARQUE,n).setString(Remarque)
            	exit for
        	end if
    	next n
end sub

Cordialement
Luke

[stevee]

C'est exactement ce que je voulais je te remercie