Discussion :

[nhan57]

Bonjour,
voila je vous explique mon problème j'essai dans une feuille de selectionner une cellule active et a partir de celle ci copier de la cellule active à la cellule J le contenu et le coller dans une autre feuille

J'ai pondu ce code mais j'ai une erreur au niveau de la ligne en rouge

option Explicit
Sub copie_colle
Dim Feuille1 As Object, Feuille2 As Object
Dim MaZone As Object, MaCopie As Object
Dim CelluleActive as Object
dim ligne as integer, colonne as integer

Feuille1 = ThisComponent.sheets.getByName("Compte rendu")
Feuille2 = ThisComponent.sheets.getByName("Actions")
CelluleActive = ThisComponent.CurrentSelection
Ligne = CelluleActive.CellAddress.row
MaZone = Feuille1.GetCellRangeByPosition(0,ligne,9,0)'"celluleactive:J"Feuille1
Feuille2.Rows.insertByIndex(0,1)' o pour la position, 1 pour le nombre de ligne
MaCopie = Feuille2.GetCellByPosition(0,0)'A1 en feuille2
Feuille2.copyRange(MaCopie.CellAddress,MaZone.RangeAddress)'la copie
end sub

Quelqu'un pour m'aider s'il vous plait? merci d'avance

[zoom61]

Salut,

Je viens de tester ton code et cela fonctionne correctement

Peux-tu renommer ta feuille "Compte rendu", pour qu'il n'y est pas d'espace ? Et voir si ton code fonctionne !

@+.

[zoom61]

Où es-tu ? As-tu réussi avec les infos fournies.