[Calc] Macro non fonctionnelle
Fermé
Maximepierre
Messages postés
4
Date d'inscription
mercredi 16 septembre 2015
Statut
Membre
Dernière intervention
8 septembre 2016
-
26 juil. 2016 à 23:51
yclik Messages postés 3712 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 18 décembre 2024 - 27 juil. 2016 à 11:06
yclik Messages postés 3712 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 18 décembre 2024 - 27 juil. 2016 à 11:06
A voir également:
- [Calc] Macro non fonctionnelle
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Calc recovery - Télécharger - Récupération de données
1 réponse
yclik
Messages postés
3712
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
18 décembre 2024
1 521
27 juil. 2016 à 11:06
27 juil. 2016 à 11:06
Bonjour
Une proposition ci dessous
en associant la macro à l'évènement feuille
Positionner le pointeur sur le nom de l'onglet
clik droit>Evènement de la Feuille
sélectionner Contenu modifié et associer la macro
Une proposition ci dessous
en associant la macro à l'évènement feuille
Positionner le pointeur sur le nom de l'onglet
clik droit>Evènement de la Feuille
sélectionner Contenu modifié et associer la macro
sub ModifO15
' but :modif O15 de la deuxième feuille, Q15 ="Sans métier, Glandeur",
'U4 = en 0 et U13 en 20.
rem variables
dim document as object
dim oSheet as object
' adresse cellule active
CelluleActive = ThisComponent.getCurrentSelection
Dim r as integer
Dim c as integer
dim cellQ15 as string
dim cellU4 as integer
dim cellU13 as integer
r=CelluleActive.CellAddress.Row 'adresse ligne modifiée
c=CelluleActive.CellAddress.Column 'adresse colonne modifiée
'si cellule modifiée col O (14) lig 15 ((14)
if c=14 and r=14 then goto miseajour else goto FIN
miseajour:
adresseQ15="Q15"
oSheet = ThisComponent.sheets.GetByName("Feuille2") ' nom de la feuille
oSheet.getCellRangeByName (adresseQ15).string = ("Sans métier, Glandeur")
adresseU4="U4"
oSheet = ThisComponent.sheets.GetByName("Feuille2")
oSheet.getCellRangeByName (adresseU4).value = 0
adresseU13="U13"
oSheet = ThisComponent.sheets.GetByName("Feuille2")
oSheet.getCellRangeByName (adresseU13).value = 20
FIN:
End sub