XL 2010 afficher lignes vers Colonnes d'autre feuille

[yahya belbachir]

Bonjour
j'ai un petit probléme en vous expliquant clairement que:
j'ai une feuille (Data) dess donnée en ligne ex:
du :A1: à IN1
du A jusqu'à j ,pas de probléme, je coince pour afficher des colonnes, de la feuille1
B13=I2 , C13=j2 etc...
B14=N2 , C14 = K2 , D14= L2 etc...

si vous vous avez une idée et merci

 

[sylvanu]

Bonjour Yahya,
Un essai en PJ.
J'ai rajouté :

    For i = 2 To 6
        Cells(13, i) = Sheets("Data").Cells(lg, 7 + i)
    Next i

J'ai supposé qu'il n'y avait qu'une ligne à transférer, et que les colonnes concernaient Ref1.

AddOn : Au cas où il faudrait transférer toute la ligne alors utilisez la V2.
J'ai rajouté :

    Range("B13:F1000").ClearContents
    Ligne = 13
    colonne = 8
    While Sheets("Data").Cells(lg, colonne + 1) <> ""
        For i = 1 To 5
            Cells(Ligne, i + 1) = Sheets("Data").Cells(lg, colonne + i).Value
        Next i
        Ligne = Ligne + 1
        colonne = colonne + 5
    Wend

 

[yahya belbachir]

Bonjour Yahya,
Un essai en PJ.
J'ai rajouté :

    For i = 2 To 6
        Cells(13, i) = Sheets("Data").Cells(lg, 7 + i)
    Next i

J'ai supposé qu'il n'y avait qu'une ligne à transférer, et que les colonnes concernaient Ref1.

AddOn : Au cas où il faudrait transférer toute la ligne alors utilisez la V2.
J'ai rajouté :

    Range("B13:F1000").ClearContents
    Ligne = 13
    colonne = 8
    While Sheets("Data").Cells(lg, colonne + 1) <> ""
        For i = 1 To 5
            Cells(Ligne, i + 1) = Sheets("Data").Cells(lg, colonne + i).Value
        Next i
        Ligne = Ligne + 1
        colonne = colonne + 5
    Wend

OUI,c'est parfait,c'est super merci infiniment SYLVANU.

 

[yahya belbachir]

OUI,c'est parfait,c'est super merci infiniment SYLVANU.

Bonjour Cher ami
je reviens vers vous avec le même fichier bien sûr,je vous demande mes excuses, ensuite:
je demande votre soutien de me trouver une solution,mon problème est:
dans la feuille2 si je tape dans la cellule ("A1") un numéro qui existe dans la page ("Data") il me renvois clairement les données exacte.grâce à votre solution c'est bien clair.
et si je veux par contre modifier directement des données de la feuille2 est il possible de transférer les modification vers la feuille Data, on utilisons une bouton de modification?
mon fichier çi joint pour expliquer mieux.
je vous remercie d'avance Monsieur .
Amicalement
YAHYA