[Résolu][Calc] Clic cellule pour écrire dans une autre cellule

[fredo59000]

Hello,

je réessaie de poster. J'avoue ne pas tout comprendre vos règles

Document joint : cas avec un bouton. j'aimerais plutôt cliquer dans une cellule pour afficher son contenu dans une autre cellule

Code : Tout sélectionner

Sub Main(oevt)
Dim oCell as object, labelBouton As String
oCell = thiscomponent.Sheets.GetByName("Feuille1").GetCellRangeByName("A1")
labelBouton = oevt.Source.Model.Label
On Error GoTo ConversionError
oCell.SetValue(CDbl(LabelBouton))
On Error GoTo 0
exit sub
ConversionError:
oCell.SetString(labelBouton)
Resume Next
End Sub

Merci

[rollmops]

Bonjour,

Cliquer sur une cellule amène à changer de cellule. Donc je ne comprends pas ce que vous cherchez à faire.
Si une donnée est saisie par exemple dans A1 et que vous souhaitez reporter sa valeur dans une autre cellule, il suffit de faire

Code : Tout sélectionner

=A1

[fredo59000]

ce serait une plage de cellule avec par exemple
A1 = 1
A2 = 2
A3 = 3
Comme un écran pour composer un numéro de téléphone.
si je sélectionne la case A1 ça copie "1" dans une autre case de mon choix
Je voudrais ne pas passer par un bouton comme dans l'exemple

[rollmops]

Un truc simple est de brancher la macro sur un événement de feuille comme le double clic

[fredo59000]

Ok mais du coup que dois je changer dans ma macro ?

[rollmops]

Ok mais du coup que dois je changer dans ma macro ?

Il vous suffit de modifier la ligne ou vous attribuez la valeur à la cellule au lieu du libellé du bouton.
Vous faites un truc comme

Code : Tout sélectionner

Valeur = oCell.GetValue
Valeur = Valeur +1
oCell.SetValue(Valeur)

Utilisez Xray pour comprendre les méthodes exposées

[fredo59000]

Je ne connaissais pas l'utilisation de l’événement de la feuille. merci pour la découverte mais ça ne répond pas à mon besoin

j'ai mis une image pour mieux comprendre
si je double clique dans la plage A4-A7, ça inscrit la valeur dans la cellule A2
si je double clique dans la plage C4-C7, ça inscrit la valeur dans la cellule C2

[Noonours]

Bonjour Fredo59000, le forum

Essaye ce script, et (comme préconisé par Rollmops) est à brancher sur l'évènement "double-clic" de ta page:

Code : Tout sélectionner

Sub EcrireValeurAuDessus()

Plage1 = "A4:A7" : Plage1Cible = "A2"
Plage2 = "C4:C7" : Plage2Cible = "C2"

oDoc = ThisComponent
oSel = oDoc.CurrentSelection
oFeuil1 = oDoc.Sheets.getByName("Feuille1")
oPlage1 = oFeuil1.GetCellRangeByName(Plage1)
oPlage2 = oFeuil1.GetCellRangeByName(Plage2)

If not oSel.supportsService("com.sun.star.table.Cell") Then Exit Sub

If oSel.queryIntersection(oPlage1.RangeAddress).Count > 0 Then 
	oFeuil1.GetCellRangeByName(Plage1Cible).Value = oSel.Value
ElseIf oSel.queryIntersection(oPlage2.RangeAddress).Count > 0 Then
	oFeuil1.GetCellRangeByName(Plage2Cible).String = oSel.String
Endif

End Sub

Cordialement,

[fredo59000]

Bizarrement ça marche pour la plage 2 voire les autres plages que je crée (quelque soit le libellé)
mais pas la plage 1 qui renvoie un "0" (sauf si la plage contient des chiffres)

[Noonours]

Bonjour

mais pas la plage 1 qui renvoie un "0" (sauf si la plage contient des chiffres)

D'après ton exemple, j'en avais déduit que la première colonne contenait des valeurs et la seconde des chaines de caractères.
Remplace

Code : Tout sélectionner

oFeuil1.GetCellRangeByName(Plage1Cible).Value = oSel.Value

par:

Code : Tout sélectionner

oFeuil1.GetCellRangeByName(Plage1Cible).String = oSel.String

Mais toutes les valeurs chiffrées seront au format texte.
a+

[fredo59000]

ça marche nickel
Merci pour votre aide

[Oukcha]

Sujet résolu ?

• Placez-vous sur le premier message de votre fil de discussion
• En haut à droite de ce message, cliquez sur le bouton du petit crayon pour éditer.
• Modifiez le titre du message en cochant l'icône et en tapant [Résolu] (respectez la graphie donnée) comme illustré ci-dessous :
  
  

Cordialement