Supprimer une ou plusieurs ligne si......

[Guido]

Bonsoir

J'aimerais supprimer les lignes si seulement du texte dans les celulles

et garder les lignes avec de N°.Plage B1 à I 75.

Merci d'avance.

Guido

 

[myDearFriend!]

Re : Supprimer une ou plusieurs ligne si......

Bonsoir Guido,

Si toi compris... moi non !

Cordialement,

 

[Guido]

Re : Supprimer une ou plusieurs ligne si......

Re
voici un fichier
merci

Guido

 

[Excel-lent]

Re : Supprimer une ou plusieurs ligne si......

Bonsoir Guido,

Je commence tout juste à apprendre le VBA, je ne connais pas encore le code qui permet de faire ça

Sub SupressionLigne()
'Si les cellules (ANumligne:ZZZNumligne) contiennent du texte : supression de la ligne
Dim NumLigne As Byte
Dim N As Byte

NumLigne = InputBox("quelle est la dernière ligne de ton tableau (inscrire en chiffre) ?")

With ActiveSheet

For N = 1 To NumLigne
If [formule pour tester si les cellules de la ligne contiennent du texte] Then
Rows(N).Select
Selection.Delete Shift:=xlUp
NumLigne = NumLigne - 1
Else
N = N + 1
End If
Next N
End With
End Sub


La solution doit surement être sur le forum. A moins qu'un spécialiste du VBA vienne corriger et compléter ma solution.

L'union fait la force 🙂

 

[allegro50]

Re : Supprimer une ou plusieurs ligne si......

Bonsoir Guido, Forum

Ce code detruira les lignes alpha (comme ds ta 1ere demande) mais pas les lignes impaires (comme ds ta 2eme demande)
Alors dis nous

Sub detruit_lignes_alpha()
Dim i%
Dim n%
n = Range("B65500").End(xlUp).Row
For i = 1 To n
If Not IsNumeric(Range("B" & i)) Then
Application.Range("B" & i).EntireRow.Delete
End If
Next
End Sub

 

[Guido]

Re : Supprimer une ou plusieurs ligne si......

Bonsoir

c'est le fichier qui prime pour la solution,

merci

Guido