Macro qui cherche des 1 et qui travaille si elle e

[alain.bazire@wanadoo.fr]

Bonsoir a toutes et tous. Voila,j'ai un fichier dans lequel dans la colonne,N il y a des 1 dans descellules toujours i^paires,je desirerais que lorsqu'une macro trouve un 1 elle copie la plage située en A;J immediatement superieure que la macro colle cette plage en O puis qu'elle colle la ligne de la plage inferieure sur la ligne superieure et inversement. Pas facile a expliquer. Les 1 ne sont pas tous evidement equdistants.Pour l'instant je le fais avec un filltrer mais quand il y a 20000 lignes tres tres long.Je n'ai pas ete clair voir l fichier joint toto. Merci de votre aide .Alain [file name=toto_20060510223025.zip size=41565]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toto_20060510223025.zip[/file]

 

[globinours]

Bonjour alain,

Tu peux essayer cette macro, ça devrait le faire.

Sub essai()
Dim cellule As Range
Application.ScreenUpdating = False
Columns('N:N').Select
For Each cellule In Selection
i = cellule.Row
If Cells(i, 1).Text = '' Then Exit Sub
If cellule.Text = '1' Then
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i + 3, 1).Select
Selection.Insert Shift:=xlDown
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next cellule
Range('A1').Select
Application.ScreenUpdating = True

End Sub

 

[pierrejean]

bonjour alain

bonjour globinours

ma version (un peu plus concise) [file name=toto_20060511090327.zip size=40469]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toto_20060511090327.zip[/file]

 

[Charly2]

Bonjour Alain, bonjour Globinours, bonjour Pierre,
Bonjour à toutes et à tous

Bon, puisqu'Alain n'est pas encore revenu dire ce qu'il pensait de vos propositions, j'en ajoute une autre

[file name=AlainBazire_Cherche1.zip size=28290]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AlainBazire_Cherche1.zip[/file]

A+