Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau
ayant en col A :
actor ou partener dans le contenu des cellules A1:Ax
ex:
1 travail aaaaaaaa
1 actor bbbbbbbb
2 partener cccccccccc
3 boulot zzzzzzzzzzzzzzz
1 partener rrrrrrrrrrr
2 actor tttttttttt
3 actor uuuuuuuuuu
pour avoir apres
1 travail aaaaaaaa
3 boulot zzzzzzzzzzzzzzz
Avez vous des id=E9es ?
Merci de vos reponses
Le Lauxeti
Le Lauxeti
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub SupLignes3() Application.ScreenUpdating = False For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener*" Then Rows(i).Delete Next i End Sub
JB http://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti wrote:
Bonjour,
Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau ayant en col A :
actor ou partener dans le contenu des cellules A1:Ax
ex: 1 travail aaaaaaaa 1 actor bbbbbbbb 2 partener cccccccccc 3 boulot zzzzzzzzzzzzzzz 1 partener rrrrrrrrrrr 2 actor tttttttttt 3 actor uuuuuuuuuu pour avoir apres 1 travail aaaaaaaa 3 boulot zzzzzzzzzzzzzzz
Avez vous des idées ? Merci de vos reponses Le Lauxeti Le Lauxeti
Bonjour,
Sub SupLignes3()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener*"
Then Rows(i).Delete
Next i
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti <ybru...@wanadoo.fr> wrote:
Bonjour,
Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau
ayant en col A :
actor ou partener dans le contenu des cellules A1:Ax
ex:
1 travail aaaaaaaa
1 actor bbbbbbbb
2 partener cccccccccc
3 boulot zzzzzzzzzzzzzzz
1 partener rrrrrrrrrrr
2 actor tttttttttt
3 actor uuuuuuuuuu
pour avoir apres
1 travail aaaaaaaa
3 boulot zzzzzzzzzzzzzzz
Avez vous des idées ?
Merci de vos reponses
Le Lauxeti
Le Lauxeti
Sub SupLignes3() Application.ScreenUpdating = False For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener*" Then Rows(i).Delete Next i End Sub
JB http://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti wrote:
Bonjour,
Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau ayant en col A :
actor ou partener dans le contenu des cellules A1:Ax
ex: 1 travail aaaaaaaa 1 actor bbbbbbbb 2 partener cccccccccc 3 boulot zzzzzzzzzzzzzzz 1 partener rrrrrrrrrrr 2 actor tttttttttt 3 actor uuuuuuuuuu pour avoir apres 1 travail aaaaaaaa 3 boulot zzzzzzzzzzzzzzz
Avez vous des idées ? Merci de vos reponses Le Lauxeti Le Lauxeti
lauxeti
On 22 jan, 14:29, JB wrote:
Bonjour,
Sub SupLignes3() Application.ScreenUpdating = False For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener* " Then Rows(i).Delete Next i End Sub
JBhttp://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti wrote:
> Bonjour,
> Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau > ayant en col A :
> actor ou partener dans le contenu des cellules A1:Ax
> ex: > 1 travail aaaaaaaa > 1 actor bbbbbbbb > 2 partener cccccccccc > 3 boulot zzzzzzzzzzzzzzz > 1 partener rrrrrrrrrrr > 2 actor tttttttttt > 3 actor uuuuuuuuuu > pour avoir apres > 1 travail aaaaaaaa > 3 boulot zzzzzzzzzzzzzzz
> Avez vous des idées ? > Merci de vos reponses > Le Lauxeti > Le Lauxeti- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup impeccable
Le Lauxeti
On 22 jan, 14:29, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Sub SupLignes3()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener* "
Then Rows(i).Delete
Next i
End Sub
JBhttp://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti <ybru...@wanadoo.fr> wrote:
> Bonjour,
> Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau
> ayant en col A :
> actor ou partener dans le contenu des cellules A1:Ax
> ex:
> 1 travail aaaaaaaa
> 1 actor bbbbbbbb
> 2 partener cccccccccc
> 3 boulot zzzzzzzzzzzzzzz
> 1 partener rrrrrrrrrrr
> 2 actor tttttttttt
> 3 actor uuuuuuuuuu
> pour avoir apres
> 1 travail aaaaaaaa
> 3 boulot zzzzzzzzzzzzzzz
> Avez vous des idées ?
> Merci de vos reponses
> Le Lauxeti
> Le Lauxeti- Masquer le texte des messages précédents -
Sub SupLignes3() Application.ScreenUpdating = False For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*actor*" Or Cells(i, 1) Like "*partener* " Then Rows(i).Delete Next i End Sub
JBhttp://boisgontierjacques.free.fr/
On 22 jan, 14:22, lauxeti wrote:
> Bonjour,
> Je souhaiterais supprimer , en VBA, toutes les lignes d'un tableau > ayant en col A :
> actor ou partener dans le contenu des cellules A1:Ax
> ex: > 1 travail aaaaaaaa > 1 actor bbbbbbbb > 2 partener cccccccccc > 3 boulot zzzzzzzzzzzzzzz > 1 partener rrrrrrrrrrr > 2 actor tttttttttt > 3 actor uuuuuuuuuu > pour avoir apres > 1 travail aaaaaaaa > 3 boulot zzzzzzzzzzzzzzz
> Avez vous des idées ? > Merci de vos reponses > Le Lauxeti > Le Lauxeti- Masquer le texte des messages précédents -