couper des lignes et les replacer ailleurs

Bonjour flam, le forum



Une tentative de réponse :

Sub Bouton1_QuandClic()
Dim i As Integer
Dim c As Range


    For Each c In Range('d7:d' & Range('d65536').End(xlUp).Row)
        If c = 'NC' Then
            With Sheets('feuil2')
                derligne = .Range('d65536').End(xlUp).Row + 1
                For i = 0 To 2
                    .Cells(derligne, i + 3) = c.Offset(0, i)
                Next i
                .Cells(derligne, 1) = .Cells(derligne - 1, 1) + 1
            End With
        End If
    Next c
               
End Sub

Cliquez pour agrandir...

salut

BONJOUR HERVE

MERCI BEAUCOUP
POUR CETTE REPONSE déjà très satisfaisante
MAIS

Un problème se pose car comme j'ai des formules dans le tableau de la feuil2
la copie s'effectue après le tableau, à la fin

est-il possible de placer ces données DANS LE TABLEAU
et non pas en dessous ?
Il faudrait pouvoir écraser les formules à la fin ?????

AMICALEMENT


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

re flam



Et si tu effacais les formules avant de lancer la macro, puisse qu'elles sont appelées à être écraser (pov petites formules )

non ?

salut

Salut Hervé

le problème c'est que j'ai des courses différentes avec des effectifs très importants, une liste à n'en plus finir
Le nombre de participants varie à chaque fois
cela me fait trop de manip à chaque fois et je ne peux prévoir avant

J'aimerai que la recopie se fasse dans les dernières lignes du tableau
en écrasant les formules car après je trie tout le tableau en tenant compte des NC

Est-il posiible dans un premier temps de supprimer le contenu des dernières lignes contenant ces formules
correspondant au nombre exact de NC
puis après seulement recopier de la feuil1 vers la feuil2

Je ne suis peut être pas assez clair



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