supprimer des lignes aléatoire

[guigui]

hello le forum,

une fois de plus, i need your Help ...

sur une feuille, je trace des contours depuis un USF autours de cellules,
suivant mes choix, mes cadres sont cote à cote mais defois des lignes vides séparent ces cadres.

Je voulais savoir si il y a un moyen de supprimer cet espaces vide sachant qu'il peut etre n'importe ou ?


merci d'avance
Guillaume

 

[Filoo]

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!

 

[guigui]

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)..

 

[Filoo]

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 (Aii)
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