XL 2010 afficher lignes vers Colonnes d'autre feuille

yahya belbachir

XLDnaute Occasionnel
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
 

Pièces jointes

  • teste.xlsm
    27.2 KB · Affichages: 10

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yahya,
Un essai en PJ.
J'ai rajouté :
VB:
    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é :
VB:
    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
 

Pièces jointes

  • teste.xlsm
    24.3 KB · Affichages: 1
  • teste2.xlsm
    25.4 KB · Affichages: 3
Dernière édition:

yahya belbachir

XLDnaute Occasionnel
Bonjour Yahya,
Un essai en PJ.
J'ai rajouté :
VB:
    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é :
VB:
    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

XLDnaute Occasionnel
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
 

Pièces jointes

  • TEST3.xlsm
    27 KB · Affichages: 2

Discussions similaires

Réponses
1
Affichages
1 K
J
Réponses
7
Affichages
1 K
Je débute
J
A
Réponses
6
Affichages
1 K
A

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088