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...
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
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
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