redistribuer un tcd

bonjour Le Lauxeti,

Sub redistribuer()
dp = Range("A2")
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If c = 0 Then
Range(c.Address) = dp
Else
dp = c
End If
Next
End Sub

isabelle

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

Bonjour, *lauxeti*

Les intitulés (Bouteille, Flacon... sont en colonne A), sinon adapter :

Sub RecopieVersLeBas() 'D'après JB MPFE
'recopie les infos dans A, chanement à chaque nouvelle valeur

Dim n As Integer 'maxi : - 32768 à + 32767
Dim i As Integer
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
n = [a65000].End(xlUp).Row
Range("a1").Select
i = 0
Do While i < n
If ActiveCell = "" Then ActiveCell = ActiveCell.Offset(-1, 0)
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
Application.Calculation = xlAutomatic
Calculate
Application.ScreenUpdating = True
End Sub


--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

Bonsoir,

Sans boucle: http://cjoint.com/?lDvKIf4Kpt

[A:A].SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1", [A65000].End(xlUp)).Value = Range("A1",
[A65000].End(xlUp)).Value

ou

Range("A2", [B65000].End(xlUp).Offset(0,
-1)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2", [A65000].End(xlUp)).Value = Range("A2",
[A65000].End(xlUp)).Value

Cordialement JB

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

Bonsoir,

Et n'y aurait il donc point un total général à ce beau tcd
qu'on y fasse un doubleclic dessus pour voir!?

Cdlt.
lSteph

lauxeti a émis l'idée suivante :

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

--
- -

Double clique sur le total général (dernière cellule en bas à
droite, s'il y a une totalisation) revient à générer une feuille
détail.

Ca semble trop simple, mais c'est ce que j'utilise car on m'envoie un
tableau tous les mois que je doit intégrer dans une base de données.

Bonsoir,

Sans boucle: http://cjoint.com/?lDvKIf4Kpt

[A:A].SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1", [A65000].End(xlUp)).Value = Range("A1",
[A65000].End(xlUp)).Value

ou

Range("A2", [B65000].End(xlUp).Offset(0,
-1)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2", [A65000].End(xlUp)).Value = Range("A2",
[A65000].End(xlUp)).Value

Cordialement JB

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

salut Steph,

j'ai créé un tcd à partir de la base de donné "Comptoir" table "Clients"
j'ai mis en champ de ligne "Pays" et "Contact" et en champ de données "nombre de Contact"
lorsque je fais un double click sur Total"
j'ai le message "Impossible d'afficher ou de masquer le détail pour cette sélection"

quéséqué sé passe, t'as une idée?
isabelle

Bonsoir,

Et n'y aurait il donc point un total général à ce beau tcd
qu'on y fasse un doubleclic dessus pour voir!?

Cdlt.
lSteph

lauxeti a émis l'idée suivante :

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

Bonjour,
C'est sur le montant correspondant à ce total
qu'il convient de cliquer et non sur le mot total.

Cdlt.

lSteph


isabelle a présenté l'énoncé suivant :

salut Steph,

j'ai créé un tcd à partir de la base de donné "Comptoir" table "Clients"
j'ai mis en champ de ligne "Pays" et "Contact" et en champ de données "nombre
de Contact"
lorsque je fais un double click sur Total"
j'ai le message "Impossible d'afficher ou de masquer le détail pour cette
sélection"

quéséqué sé passe, t'as une idée?
isabelle

Bonsoir,

Et n'y aurait il donc point un total général à ce beau tcd
qu'on y fasse un doubleclic dessus pour voir!?

Cdlt.
lSteph

lauxeti a émis l'idée suivante :

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

--
- -

Bonjour,

c'est bien ce qu'il me semble...
(tellement que je ne sais si on voit mon post 29/11 23:04)
...heureux de partager cette simplicité.

Cdlt.

lSteph

constant.frederic@gmail.com a utilisé son clavier pour écrire :

Double clique sur le total général (dernière cellule en bas à
droite, s'il y a une totalisation) revient à générer une feuille
détail.

Ca semble trop simple, mais c'est ce que j'utilise car on m'envoie un
tableau tous les mois que je doit intégrer dans une base de données.

Bonsoir,

Sans boucle: http://cjoint.com/?lDvKIf4Kpt

[A:A].SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1", [A65000].End(xlUp)).Value = Range("A1",
[A65000].End(xlUp)).Value

ou

Range("A2", [B65000].End(xlUp).Offset(0,
-1)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2", [A65000].End(xlUp)).Value = Range("A2",
[A65000].End(xlUp)).Value

Cordialement JB

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

--
- -

Bonjour,
C'est sur le montant correspondant à ce total
qu'il convient de Doublecliquer et non sur le mot total.

Cdlt.

lSteph




isabelle a couché sur son écran :

salut Steph,

j'ai créé un tcd à partir de la base de donné "Comptoir" table "Clients"
j'ai mis en champ de ligne "Pays" et "Contact" et en champ de données "nombre
de Contact"
lorsque je fais un double click sur Total"
j'ai le message "Impossible d'afficher ou de masquer le détail pour cette
sélection"

quéséqué sé passe, t'as une idée?
isabelle

Bonsoir,

Et n'y aurait il donc point un total général à ce beau tcd
qu'on y fasse un doubleclic dessus pour voir!?

Cdlt.
lSteph

lauxeti a émis l'idée suivante :

Bonsoir,

Je reçois hebdomadairement un tcd, je desirerais redistribuer ce tcd
en base de données

Ex:

Bouteille lait 5
vin 6
eau 10
Flacon lait 5
vin 6
eau 10

en
Bouteille lait 5
Bouteille vin 6
Bouteille eau 10
Flacon lait 5
Flacon vin 6
Flacon eau 10

comment faire ??

Merci
Le Lauxeti

--
- -

Bonjour,

c'est bien ce qu'il me semble...
(tellement que je ne sais si on voit mon post 29/11 23:04)

Bonsoir,

Si, si, on voit, en tout cas sur le serveur de MS et depuis un quart
d'heure plus tard !

--
François L