Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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..
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
merci impeccable
"isabelle" a écrit dans le message de 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
merci impeccable
"isabelle" <i@v.org> a écrit dans le message de
news:ilap5u$e1m$1@speranza.aioe.org...
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..
"isabelle" a écrit dans le message de 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..