suppression ligne si cellule commence par...

[Maximom]

Bonjour,
Mes connaissances sur Excel sont très limitées, mais actuellement, je suis obligé de mettre en forme des tableaux contenant de nombreuses lignes(+ de 10000)

Il se trouve que dans mon tableau, j'ai sur la colonne A des cellules qui commence par 'famille Durand (suivi de centaines de prénoms différents)'

ce qui ressemble à ceci:

Famille Durand Jacques
Famille Durand Pierre
Famille Durand Paul...

Je souhaiterai supprimer toutes les lignes de mon tableau ou il y a une cellule qui commence par 'Famillle Durand'

J'ai bien trouvé ceci, mais cela ne fonctionne que pour 'Famille Durand' et non 'Famille Durand ...'

For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = 'Famille Durand' Then Cells(i, 1).EntireRow.Delete
Next

Merci de toute l'aide que vous pouvez m'apporter

 

[porcinet82]

Salut Maximom,

Je n'ai pas tester mais ca doit etre quelque chose du genre:

Sub supp()
dim i as byte

For i=1 to range('a65536').end(xlup).row
  if left(cells(i,1).value,14)='Famille Durand' then
     rows(i).delete
     i=i-1
  end if
next i
End sub

Bonne nuit

@+

 

[PascalXLD]

Bonjour

Allez une autre solution en bouclant à l'envers et avec Like (déclaration integer car 10000 lignes 😉 )

Sub supp()
dim i as Integer

For i=range('a65536').end(xlup).row to 1 step -1
if range('A' & i) like 'Famille Durand*' then rows(i).delete
next i

End sub

Bonne journée

Message édité par: Pascal76, à: 13/01/2006 08:07

 

[Beni]

Je suis encore moins experte...et comment dois-je faire pour faire tourner ce programme ? Je ne sais même pas faire une macro...

Pascal76 écrit:

Bonjour

Allez une autre solution en bouclant à l'envers et avec Like (déclaration integer car 10000 lignes 😉 )

Sub supp()
dim i as Integer

For i=range('a65536').end(xlup).row to 1 step -1
if range('A' & i) like 'Famille Durand*' then rows(i).delete
next i

End sub

Bonne journéeMessage édité par: Pascal76, à: 13/01/2006 08:07

 

[porcinet82]

Salut Beni, Pascal76,

Bien vu pour la déclaration!!! :sick:
J'avais deja vu dans certaines macro le like, mais je ne connaissait pas son utilité et bien grace a toi c'est chose faite.

Beni, pour utiliser une macro, tu fais Outils\\Macro\\Visual Basic Editor (ou Alt+F11). ensuite, tu insères un module (Insertion\\Module) et tu copie/colle la macro dedans. ensuite, il te reste plus qu'a appuyer sur l'icone excuter la macro (bouton de type lecture).

Si tu veux plus de renseignements, refais signe.

@+

 

[Maximom]

Merci, ça marche!

Sub supp()
Dim i As Integer

For i = Range('C65536').End(xlUp).Row To 1 Step -1
If Range('C' & i) Like 'terme a supprimer*' Then Rows(i).Delete
Next i

End Sub

Bravo opur la rapidité de réponse!