recuperer donné

Cuistoy

XLDnaute Occasionnel
bonsoir le forum

je voudrais mettre des donné qui ce trouve feuille 1 de A1 à AA1

dans feuille 2 de A1 à A50 sans qu'il ny est de doublon

que faut il utilisé formule ou code VBa

merci de vos reponce
 

porcinet82

XLDnaute Barbatruc
Salut Cuistoy,

Voici une solution qui devrait fonctionner.

Code:
Sub test()
Dim i As Byte, j As Byte
Dim val As Variant

For j = 1 To Range('IV1').End(xlToLeft).Column
    For i = 1 To Range('IV1').End(xlToLeft).Column
        Cells(i, 1).Value = Cells(1, j).Value
        j = j + 1
    Next i
Next j

For k = 1 To Range('A65536').End(xlUp).Row
    val = Cells(k, 1).Value
    For m = 2 To 7
        m = m + l
        If val = Cells(m, 1).Value Then
            Rows(m).Delete
        End If
    Next m
    l = l + 1
Next k
End Sub

@+

Message édité par: porcinet82, à: 13/01/2006 00:03
 

ChTi160

XLDnaute Barbatruc
Salut Cuistoy
bonsoir porcinet82

en pièce jointe une autre façon de faire [file name=Transfert_ligne.zip size=8931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_ligne.zip[/file]
 

Pièces jointes

  • Transfert_ligne.zip
    8.7 KB · Affichages: 11

Cuistoy

XLDnaute Occasionnel
bonsoir le forum, ChTi160 porcinet82

merci de vos reponce

j'ai mis un fichier je voudrais que la ligne 1, 4 , 5

sur feuil 2 en colone A

et la ligne 2, 3 en feuille 3 colone A

merci pour vôtre aide

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

Pièces jointes

  • Classeur1_20060113213935.zip
    1.7 KB · Affichages: 13

ChTi160

XLDnaute Barbatruc
Salut Cuistoy

je pense que tu aurais du mettre dans les feuilles 2 et 3 le résultat excompté
car tu parles de lignes 1 3 5 et ensuite 2 et 4 mais tes données sont sur les lignes 10 à 27
arfff tu sais,on n'est dur de la comprenette Lol
merci d'affiner,comme dirait le Fromager
a très bientôt
 

Cuistoy

XLDnaute Occasionnel
desolé je me suit trompé de classeur

voilà et mille excuse

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

Pièces jointes

  • essai_20060114171332.zip
    33.9 KB · Affichages: 13

ChTi160

XLDnaute Barbatruc
re
en pièce jointe une possiblité

tiens nous au courant [file name=essai_Cuistoy.zip size=41365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_Cuistoy.zip[/file]
 

Pièces jointes

  • essai_Cuistoy.zip
    40.4 KB · Affichages: 11

Cuistoy

XLDnaute Occasionnel
merci pour ton aide

je suis en train de crée un planning de production des menu sont etablie pour le mois
donc je doit reprendre ces menu et tout recopier les menu je voulais donc faire un copier coller des feuille de menu sur ma tram de planning et faire un transphere des données sur mes planning il y a donc 10 feuille de planning sa mevitera de perdre du temps j'ai un fichier exel mais il est trop lourd pour le mettre sur le forum
si sa te dit je peu te lenvoyer par mail avec des explication
 

Statistiques des forums

Discussions
312 268
Messages
2 086 672
Membres
103 363
dernier inscrit
brian0496