Numéro de ligne

D

Davidc57

XLDnaute Occasionnel

• 6 Avril 2006

• #2

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

 

Vote positif 0 Vote négatif

A

AV

Guest

• 6 Avril 2006

• #3

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]

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 6 Avril 2006

• #4

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

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 6 Avril 2006

• #5

oups ! Collision

Goto excuse.me AV

bonne soirée,

Brico

 

Vote positif 0 Vote négatif

J

Jack42

XLDnaute Nouveau

• 6 Avril 2006

• #6

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

Encore merci

 

Vote positif 0 Vote négatif