Macro qui cherche des 1 et qui travaille si elle e

  • Initiateur de la discussion Initiateur de la discussion alain.bazire@wanadoo.fr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

alain.bazire@wanadoo.fr

Guest
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]
 

Pièces jointes

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
 
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+ 😉
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour