Effacer ligne selon reference

[Geraldine]

Bonjour,

J'ai un petit souci de code sur, voir le fichier joint, je veux que le bouton "supprimer" efface la ligne selon la reference en a1

merci à tous,

geraldine

 

[Pierrot93]

Re : Effacer ligne selon reference

Bonjour Geraldine,

si j'ai bien compris... pas sur... essaye peut être come ceci :

Dim x As Range
Set x = Range("A13:A28").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 4).ClearContents

bon après midi
@+

 

[Geraldine]

Re : Effacer ligne selon reference

re pierrot et merci,

sur le code ça efface uniquement la colonne E, je reflechis afin d'adapter .... quoi si mon etat psycologique me le permet 😱

If Not x Is Nothing Then x.Offset(0, [COLOR="Red"]4[/COLOR]).ClearContents

@ merci bonne journée

 

[Pierrot93]

Re : Effacer ligne selon reference

Re

pour toutes les autres cellules de la ligne, sauf colonne A :

Dim x As Range
Set x = Range("A13:A28").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Range(x.Offset(0, 1), x.Offset(0, 10)).ClearContents

@+

edition tu peux enlever le 1er offset pour effacer également la cellule en colonne A

 

[Geraldine]

Re : Effacer ligne selon reference

ok merci pierrot,

c'est la ligne complete que je veux effacer (colonne a aussi), je vais mettre comme cela

If Not x Is Nothing Then Range(x.Offset(0, 0), x.Offset(0, 10)).ClearContents

merci et bonne fin de journée,
Géraldinement

 

[Pierrot93]

Re : Effacer ligne selon reference

Re

tu peux aussi faire ainsi :

If Not x Is Nothing Then Range(x, x.Offset(0, 10)).ClearContents

@+

 

[Geraldine]

Re : Effacer ligne selon reference

bonjour pierrot,

mais bien sure c'est une evidence, j'y avais pensé, hum hum ...mais je voulais être sûre de tes compétences, et elles me paraissent bonnes.
J'ai retenu ton code :

If Not x Is Nothing Then Range(x, x.Offset(0, 10)).GegeestContenteMerci