Discussion :

[drthodt]

Bonjour à tous,
je suis débutant et voici mon problème: j'ai une macro qui me fait un traitement sur une ligne (recopie des infos de la ligne sur la ligne d'un autre fichier).
La macro est prête mais j'aimerais l'améliorer: à savoir lorsque je positionne mon curseur sur une cellule ou une ligne entière,appliquer le traitement par macro à cette ligne-là.
J'ai donc besoin de récupérer le numéro de la ligne dans lequel je me suis placé et le stocker dans un entier.
Le problème: je ne sais pas faire cela,comment dois-je faire?
Merci d'avance pour vos réponses,
t

[wilfried_42]

bonjour

si tu veux que ce numero soit disponible dans tout le classeur

dans un molule, tout en haut, au dessus du premier sub

Public maligne as long

ensuite pour mettre la ligne de la cellule active

maligne=activecell.row

Bonne journée

[drthodt]

Merci pour le code.
J'ai un souci, car ma macro copie des lignes d'un fichier à l'autre et j'ai donc deux fichiers ouverts.
Je fais donc référence à mon premier classeur de cette manière:

Code :

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

1
2
3
4
Set FL1 = ThisWorkbook.ActiveSheet
 
'Identification de la ligne à copier depuis FL1
LigneCourante = FL1.ActiveCell.Row

Et j'obtiens une erreur "membre de méthode ou de données introuvable": le débuger me surligne ActiveCell.Comment corriger l'erreur?

[fred65200]

bonsoir, remplace ta ligne

Code :

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

LigneCourante = FL1.ActiveCell.Row

par la suivante

Code :

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

LigneCourante = Windows(ThisWorkbook.Name).ActiveCell.Row

Dans l'aide (touche F1)

Cette propriété renvoie un objet Range qui représente la cellule active de la fenêtre active (celle qui se trouve au premier plan) ou la fenêtre spécifiée. Si la fenêtre n'affiche aucune feuille de calcul, cette propriété échoue. En lecture seule.

salutations
fred65200

[drthodt]

bonsoir, remplace ta ligne

Code :

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

LigneCourante = FL1.ActiveCell.Row

par la suivante

Code :

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

LigneCourante = Windows(ThisWorkbook.Name).ActiveCell.Row

Dans l'aide (touche F1)


salutations
fred65200

OK ça marche.Je te remercie et mets le topic en résolu.