Discussion :

[schwoby]

Bonjour,

Dans le cadre d'une macro me permettant de transférer sous word des données excel, je me demande comment identifer une cellule non fixe.

Je m'explique : je souhaite que ce soit systématiquement les données de la dernière ligne de ma colonne de ma base excel qui soit imprimer :

si je défini par :
text = [A1], ce sera toujours la même chose qui sera introduite, même si je rajoute des lignes à mon tableau.

Je voudrais exprimer un truc du style "toujour la cellule de la colonne A sur la dernière ligne,", ca ferait un truc comme "CurLine, column A", mais bon je ne sais pas comment faire. un avis ?

Merci

[edelweisseric]

Bonsoir à tous
Bonsoir schwoby

Je n'ai pas très bien compris ce que tu cherchais, mais peut être une piste avec ces quelques lignes de code :

derligne = Range("a65536").End(xlUp).Row 'te donne le n° de la dernière ligne occupée
deradresse = Range("a65536").End(xlUp).address 'te donne l'adresse de la dernière ligne occupée : $A$25
deradresse = Range("a65536").End(xlUp).address(0,0) 'te donne l'adresse de la dernière ligne occupée : A25

donc si tu veux récupérer les x cellules de la dernière ligne occupée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Sub copie()
 derligne_01 = Range("a65536").End(xlUp).Row
 à_copier = Range("A" & derligne_01 & ":" & "D" & derligne_01).Copy
 End Sub

j'ai mis "à_copier" juste pour te faire voir que tu sélectionnes bien les x cellules (dans mon exemple Ax à Dx)

J'espère que cela t'aidera

Eric

[Gorfael]

Bonjour,

Dans le cadre d'une macro me permettant de transférer sous word des données excel, je me demande comment identifer une cellule non fixe.

Je m'explique : je souhaite que ce soit systématiquement les données de la dernière ligne de ma colonne de ma base excel qui soit imprimer :

si je défini par :
text = [A1], ce sera toujours la même chose qui sera introduite, même si je rajoute des lignes à mon tableau.

Je voudrais exprimer un truc du style "toujour la cellule de la colonne A sur la dernière ligne,", ca ferait un truc comme "CurLine, column A", mais bon je ne sais pas comment faire. un avis ?

Merci

Salut
text = [A65536].end(xlup)
A+