transformation tableau en base

Le
en
Bonjour

j'ai besoin d'aide car je cherche un moyen simple pour convertir un tableau
double entrée en format base de données


cj explication du besoin.
http://www.cijoint.fr/cjlink.php?file=cj201103/cijR1jsBU2.xls


mon nombre de colonne peut varier et le nombre de ligne peut atteindre
1000..

merci pour aide à venir

Ben
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23194131
bonjour Ben,

le résultat est mit sur la feuille 2

Sub Macro1()
Dim x As Integer, i As Integer, y As Integer
x = 1
With Sheets("Feuil2")
.Range("A1") = "Date"
.Range("B1") = "Heure"
.Range("C1") = "Valeur"
For i = 5 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
For y = 2 To Sheets("Feuil1").Range("IV4").End(xlToLeft).Column
If Not Sheets("Feuil1").Cells(i, y) = Empty Then
x = x + 1
.Range("A" & x) = Sheets("Feuil1").Cells(i, 1)
.Range("B" & x) = Sheets("Feuil1").Cells(4, y)
.Range("C" & x) = Sheets("Feuil1").Cells(i, y)
End If
Next
Next
End With
End Sub

isabelle

Le 2011-03-10 06:45, en a écrit :
Bonjour

j'ai besoin d'aide car je cherche un moyen simple pour convertir un
tableau double entrée en format base de données


cj explication du besoin.
http://www.cijoint.fr/cjlink.php?file=cj201103/cijR1jsBU2.xls


mon nombre de colonne peut varier et le nombre de ligne peut atteindre
1000..

merci pour aide à venir

Ben



en
Le #23194401
merci impeccable


"isabelle" news:ilap5u$e1m$
bonjour Ben,

le résultat est mit sur la feuille 2

Sub Macro1()
Dim x As Integer, i As Integer, y As Integer
x = 1
With Sheets("Feuil2")
.Range("A1") = "Date"
.Range("B1") = "Heure"
.Range("C1") = "Valeur"
For i = 5 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
For y = 2 To Sheets("Feuil1").Range("IV4").End(xlToLeft).Column
If Not Sheets("Feuil1").Cells(i, y) = Empty Then
x = x + 1
.Range("A" & x) = Sheets("Feuil1").Cells(i, 1)
.Range("B" & x) = Sheets("Feuil1").Cells(4, y)
.Range("C" & x) = Sheets("Feuil1").Cells(i, y)
End If
Next
Next
End With
End Sub

isabelle

Le 2011-03-10 06:45, en a écrit :
Bonjour

j'ai besoin d'aide car je cherche un moyen simple pour convertir un
tableau double entrée en format base de données


cj explication du besoin.
http://www.cijoint.fr/cjlink.php?file=cj201103/cijR1jsBU2.xls


mon nombre de colonne peut varier et le nombre de ligne peut atteindre
1000..

merci pour aide à venir

Ben



Publicité
Poster une réponse
Anonyme