[Résolu][Calc] Valeur d’entrée ou sortie de cellules

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

[Résolu][Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

Bonjour la communauté
Nouveau sur le forum et sur les forums en general
J'ai fichier excel avec une macro Vba (Macro trouvé sur des forums il y a quelques années ,mais fondamentalement je ne comprend pas tout)
que je veux passer en format libreoffice calc
Avantage pour moi le partage de document a plusieurs utilisateur .
Ma macro sert a faire un calcul sur une cellule (H) par rapport au valeur d’entrée ou sortie des cellules (I,J,K)tout en pouvant modifier la valeur (H) a ma guise
les valeurs des cellules(I,J,K)ne sont pris en compte qu'a la saisie
depuis quelques jours j'essaye modifier ma macro en basic .mais plus j'avance plus je recule et m'y perd.

si quelqu'un maitrise les 2 langages ce serait top

Code : Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I2:I1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value - Cells(Target.Row, 9)
End If
If Not Intersect(Target, Range("J2:J1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value + Cells(Target.Row, 10)
End If
If Not Intersect(Target, Range("K2:K1000")) Is Nothing Then
Cells(Target.Row, 8).Value = Cells(Target.Row, 8).Value - Cells(Target.Row, 11)
End If
End Sub

Merci
Roger
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
LibreOffice 7.1 sous windows 8.1
Avatar de l’utilisateur
Bidouille
RespOOnsable forum
RespOOnsable forum
Messages : 12230
Inscription : 08 nov. 2005 16:23
Localisation : Caen, France

Re: convertir vba excel

Message par Bidouille »

Bonjour,

Déplacement dans la bonne section du forum, veuillez lire les intitulés en page d'accueil pour poster au bon endroit la prochaine fois.

Titre modifié pour refléter le problème exposé qui est en général la réponse à :
Qu'est-ce que je veux éviter/obtenir ?
Lire nos règles quant à l'utilité d'un titre explicite : https://forum.openoffice.org/fr/forum/v ... 1002#p1002

Comme d'habitude, vous venez de poser la question qui tue. Lire par exemple ce sujet récent où l'on voit qu'il s'agit d'une impasse.
Avatar de l’utilisateur
jeanmimi
Grand Maître de l'OOffice
Grand Maître de l'OOffice
Messages : 16960
Inscription : 03 mars 2006 16:02
Localisation : Venise verte

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par jeanmimi »

Bonour,
J'ai l'impression que ta macro est interprétée sur ma configuration.
Si je change un nombre dans l'une des colonnes I,J ou K le nombre en H est bien recalculé.
Je peux aussi changer un nombre en H. Si ensuite, je change un nombre dans l'une des colonnes I,J ou K le nombre en H est bien recalculé.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
LibreOffice : Version : 24.2 (x64)(12 avril 2024)
Adoptium JRE ou Oracle JRE (x64), Windows 10, Thunderbird, Firefox
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

bonjour
c'est possible mais elle ne fonctionne plus quand on la converti au format ods
vu que c'est un format Vba excel
cordialement
Roger
LibreOffice 7.1 sous windows 8.1
Avatar de l’utilisateur
jeanmimi
Grand Maître de l'OOffice
Grand Maître de l'OOffice
Messages : 16960
Inscription : 03 mars 2006 16:02
Localisation : Venise verte

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par jeanmimi »

SI j'ouvre le fichier xls dans Calc, la Macro fonctionne.
Si j'enregistre le fichier en ods mais sans le fermer, la Macro continue à fonctionner.
Si j'enregistre le fichier en ods puis que je le ferme puis que je l'ouvre en ods, la Macro ne fonctionne plus : :marto:
LibreOffice : Version : 24.2 (x64)(12 avril 2024)
Adoptium JRE ou Oracle JRE (x64), Windows 10, Thunderbird, Firefox
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

Le problème est là.
C'est pour cela que j'aimerait reécrire cette macro en format libreoffice basic.
Vu que le partage de fichiers a plusieurs utilisateurs ne marche sur libreoffice calc.
Merci d'y avoir jeté un coup d'oeil
LibreOffice 7.1 sous windows 8.1
Avatar de l’utilisateur
Dolev
InconditiOOnnel
InconditiOOnnel
Messages : 951
Inscription : 19 août 2018 05:20

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Dolev »

Bonjour,

Ta macro VBA fait appel à Intersect.
Lire donc ceci
Open Office 4.1.15 sous Windows 11
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

Bonjour.
Merci pour la réponse.
Cette info du forum je l'avais trouvé.
Mais je bloque sur les les cellules qui me rapporte a la colonne désigné.
Je n'arrive pas a faire le lien.
J'ai bêtement essayer de rajouter mes calculs apres la sélection de ma colonne.
J'ai essayé les 2 format mis dans le forum.
Je planche encore sur le problème.
LibreOffice 7.1 sous windows 8.1
Avatar de l’utilisateur
Dolev
InconditiOOnnel
InconditiOOnnel
Messages : 951
Inscription : 19 août 2018 05:20

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Dolev »

Roger85 a écrit :Cette info du forum je l'avais trouvé.
Ah ? Et pourquoi ne pas l'avoir préciser au départ ? :?

Le mécanisme de récupération de la sélection modifiée passe par les évènements :
https://wiki.openoffice.org/wiki/FR/Doc ... ide/Events
Pour le reste, on ne peut que recommander l'usage de XRay pour l'analyse de ce qu'on reçoit par passage de paramètre.
Open Office 4.1.15 sous Windows 11
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

Bonjour.
Le pourquoi c'est que j'ai fait tellement d'essais que a force je m'y suis perdu.
Je vais me pencher sur ton lien.
Mais perso .je n'ai pas tout compris.
Mon problème c'est que je visualise ce que je veux sans savoir l'expliqué.
A l'époque j'avait traîner sur le net où j'avais trouvé cette macro en Vba.
C'est des langages que j'ai du mal a comprendre le cheminement. Donc pour l'écrire je te dis pas le problème.
Merci pour la réponse
Roger
LibreOffice 7.1 sous windows 8.1
Avatar de l’utilisateur
Dolev
InconditiOOnnel
InconditiOOnnel
Messages : 951
Inscription : 19 août 2018 05:20

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Dolev »

Pour avancer sur ton problème, peux-tu attacher des captures d'écran pour montrer ce qui se passe ?
Roger85 a écrit :Ma macro sert a faire un calcul sur une cellule (H) par rapport au valeur d’entrée ou sortie des cellules (I,J,K)tout en pouvant modifier la valeur (H) a ma guise
les valeurs des cellules(I,J,K)ne sont pris en compte qu'a la saisie
Nous donner un ou deux exemples concrets sur ton classeur.
Open Office 4.1.15 sous Windows 11
Roger85
Fraîchement OOthentifié
Messages : 6
Inscription : 31 oct. 2021 12:37

Re: [Calc] Valeur d’entrée ou sortie de cellules

Message par Roger85 »

Ok je vais faire ça.
Mais ce ne sera sûrement pas avant le week-end prochain.
Reprise du travail après un arrêt donc moins de temps.
Merci
LibreOffice 7.1 sous windows 8.1