supprimer des lignes aléatoire

Ton problème à l'air assez complexe.....

Il serait pas possible que l'intérieur de tes cadres soient en couleur ou est un format particulier? comme cela on pourrait rechercher les cellules qui n'ont pas ce format et les supprimer !

c'est qu'une piste, mais je peux pas faire mieux à mon niveau.......
Bon courage!

hello le forum, Filoo

Merci pour cette 1ere approche de mon probleme,
Admettons que je mettent une couleur ds mes cadres comme tu le conseil, comme procede t-on ensuite ??

Merci de ton(votre) aide...

guillaume

(Voir ma PJ ds mon 1er post)..

Salut,
ton problème fut original à traiter ! , voici ce que j'ai pondu comme solution (ouvres Visual Basic Editor et copie ce qui suit dans un module):


Sub SupprLignBlanche()
Dim i As Integer

'Paramètrage de i opur qu'il parcours ta feuille de la 1ere ligne à la dernière

For i = 1 To 50
Range("B1").Select
ActiveCell.Offset(i - 1, 0).Select
'Déplace la cellule active de i lignes vers le bas

'Test sur le contenu de la cellule : si vert ok, si pas vert : supprimer la ligne
If ActiveCell.Interior.ColorIndex <> 35 Then
Range(Cells(i, 1), Cells(i, 4)).Select 'selection de (Ai😀i)
Selection.Delete Shift:=xlUp
i = i - 1 'suppression et décalage vers le haut
End If
Next i

End Sub

'Ce code fonctionne avec l'exemlpe que tu as mis en PJ, mais il sera certainement à modifier pour ton cas, comme par exemple mon commpteur qui va jusqu'à 50 mais que tu peux diminuer ou augmenter au besoin (i=1 To 50) ainsi que la selection des cellules à supprimer .... j'ai fait le choix de juste supprimer 4 cellules mais tu peux virer la ligne entière < Rows(i).Select> à la place de<Range(Cells(i, 1), Cells(i, 4)).Select >

Je fais mes tests sur la colonne B car si je l'avais fait en A , cela aurait décalé ta mise en forme de tes cellules....

Pour plus de commentaires, just demand

Bonne journée