[Résolu][Calc] Ecrire dans cellule avec adresse spécifiée

[Marca]

Bonjour, je débute dans openoffice et essai des macros.
Je souhaiterai pouvoir écrire dans une cellule une valeur en fonction de l'adresse contenu dans une autre. Un peu du style à la fonction adress mais en macro.
Si vous avez des infos je suis preneur car je rame.
En vous souhaitant une bonne journée à tous.
D'avance merci.

[Bidouille]

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://forum.openoffice.org/fr/forum/su ... html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

[Dude]

C'est ça que tu veux faire ?

[Marca]

Bonsoir à vous,
@ Bidouille : Veillez m'excusez et je le ferai la prochaine fois.
@ Dude: Merci de la réponse mais je vois que j'ai été super vague.

Dans la feuile1 par exemple, j'ai une cellule B8 qui contient du texte, ou une valeur. Dans la cellule A5, il y a la valeur $D$10 (mais qui varie) et je souhaiterai que la macro copie la valeur de B8 dans la cellule $D$10 (A5).

D'avance merci.
Cordialement
Marca

[Piaf]

Bonjour
Comme d'habitude, pas forcement tout compris

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, maFeuille as Object
	oDoc = thisComponent
	maFeuille = oDoc.Sheets(0)
	If maFeuille.getCellRangeByName("B8").Type = 1 Then
		maFeuille.getCellRangeByName(maFeuille.getCellRangeByName("A5").String).Value = maFeuille.getCellRangeByName("B8").Value	
	ElseIf maFeuille.getCellRangeByName("B8").Type = 2 Then
		maFeuille.getCellRangeByName(maFeuille.getCellRangeByName("A5").String).String = maFeuille.getCellRangeByName("B8").String
	End If	
End Sub

Cette procédure recopie la valeur ou le texte de la cellule B8 dans la cellule donnée par l'adresse de la cellule A5 (dans l'exemple la cellule D10).
A+

[Marca]

Re-bonsoir,
Merci le code fonctionne pour ce dont j'ai besoin.
Que du bonheur, merci à vous. Cela fonctionne.
Au top.

[Résolu]