Numéro de ligne

[Jack42]

Bonjour,

Je voudrais savoir comment on peut récupérer le numéro de ligne d'une cellue pour pour pouvoir effacer cette cellule voire cette ligne (si possible). Tout ça à l'aide d'une macro. En sachant que la cellule n'est pas toujours la même.

Merci de votre réponse

[Davidc57]

Bonsoir Jack,

Quand tu dit que la cellule n'est pas toujours la même, je pense que tu connais quand même ses coordonnées ??

Exemple, si c'est la cellule C8

Range('C8').select
Numeroligne = selection.row


Pour effacer la ligne 8, tu peux faire comme cela :

Rows(numeroligne & ':' & numeroligne).delete

En espérant t'avoir aidé,

David

Salut,

Peut-être est-ce ça que tu cherches :

x= activecell.row

et pour supprimer la ligne de la cellule active :

Rows(ActiveCell.Row).Delete

AV [MVP Excel]

[Bricofire]

Bonsoir Jack42, Davidc57,

Une double possibilité, dans les codes bien faire attention à différencier effacer et supprimer, mets des données au-dessus et en dessous de la cible et la différence parlera toute seule

Option Explicit

Sub Magic()
Dim Rep As Integer

Rep = MsgBox('la ligne concernée est : ' & ActiveCell.Row & ' voulez vous l'effacer ?', vbYesNo)

If Rep = vbYes Then ActiveCell.EntireRow.ClearContents
End Sub
Sub Magic2()
Dim Rep As Integer

Rep = MsgBox('la ligne concernée est : ' & ActiveCell.Row & ' voulez vous la supprimer ?', vbYesNo)
If Rep = vbYes Then ActiveCell.EntireRow.Delete

End Sub


Si tu veux simplement effacer le contenu de la cellule, dans Magic, tu supprimes EntireRow. entre activeCell et ClearContents

Mieux vaut aussi éviter de sélectionner les cellules inutilement, ça perd beaucoup de temps d’exécution sur des projets.

Bonne soirée,

Brico

[Bricofire]

oups ! Collision

Goto excuse.me AV

bonne soirée,

Brico

[Jack42]

Merci à tous de vos réponses, je vais essayer pour voir si ça marche.

Encore merci