Alors j'entre mes données des piles dans la feuille "Formulaire"
et j'utilise une macro qui copie les données dans la feuille "Données" en
tranposant ces valeurs
Voici la macro
Sub Valider()
'
' Valider Macro
'
'
Range("B2:B10").Select
Selection.Copy
Sheets("Données").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne A
soit sélectionné avant de faire le copie-coller tranposé dans la feuille
données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais
pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les
valeurs dans ma page de données
mais je ne sais pas comment faire pour que le calcul ne choississent
seulement un set de pile en particulier puis
qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh &
analyse et aussi efficacité dans le tableau
ci-dessous
Marque Piles Capacité Charge
rapide Charge
lente Break-in Refresh
& analyze Cycle de
charge Efficacité
PowerEx AA Set 1 2700
PowerEx AA Set 10 2700
PowerEx AA Set 2 2500
PowerEx AA Set 3 2500
PowerEx AA Set 4 2500
PowerEx AA Set 5 2500
Energizer AA Set 6 1850
Energizer AA Set 7 1850
Energizer AA Set 8 1850
Energizer AA Set 9 1850
Duracell AAA Set 11 1000
Duracell AAA Set 12 1000
Duracell AAA Set 13 1000
Duracell AAA Set 14 1000
Duracell AAA Set 15 1000
Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui
seront m'aider !
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Données" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne A soit sélectionné avant de faire le copie-coller tranposé dans la feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui seront m'aider !
Merci
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" <p_sylvain@hotmail.com> a écrit dans le message de news:
3xAvh.63683$hn6.467829@weber.videotron.net...
Je suis en train de me faire une feuille Excel pour stocker des
information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restante,
l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire
Tableau Piles
Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire"
et j'utilise une macro qui copie les données dans la feuille "Données" en
tranposant ces valeurs
Voici la macro
Sub Valider()
'
' Valider Macro
'
'
Range("B2:B10").Select
Selection.Copy
Sheets("Données").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne
A soit sélectionné avant de faire le copie-coller tranposé dans la feuille
données. Alors la ligne Range("A3").select n'est pas bonne et je ne
sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon
les valeurs dans ma page de données
mais je ne sais pas comment faire pour que le calcul ne choississent
seulement un set de pile en particulier puis
qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh
& analyse et aussi efficacité dans le tableau
ci-dessous
Marque Piles Capacité Charge
rapide Charge
lente Break-in Refresh
& analyze Cycle de
charge Efficacité
PowerEx AA Set 1 2700
PowerEx AA Set 10 2700
PowerEx AA Set 2 2500
PowerEx AA Set 3 2500
PowerEx AA Set 4 2500
PowerEx AA Set 5 2500
Energizer AA Set 6 1850
Energizer AA Set 7 1850
Energizer AA Set 8 1850
Energizer AA Set 9 1850
Duracell AAA Set 11 1000
Duracell AAA Set 12 1000
Duracell AAA Set 13 1000
Duracell AAA Set 14 1000
Duracell AAA Set 15 1000
Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui
seront m'aider !
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Données" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne A soit sélectionné avant de faire le copie-coller tranposé dans la feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui seront m'aider !
Merci
JB
Bonjour,
Sub ajoute() Sheets("formulaire").[B2:B10].Copy Sheets("donnees").Activate [A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True End Sub
Sub ajoute2() If [B2] <> "" Then Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1, 9).Value = _ Application.Transpose(Sheets("formulaire").[B2:B10]) [B2:B10].ClearContents End If End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" a écrit dans le message de news: 3xAvh.63683$
Je suis en train de me faire une feuille Excel pour stocker des information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restant e, l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire Tableau Piles Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Donné es" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colo nne A soit sélectionné avant de faire le copie-coller tranposé dans l a feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refre sh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici q ui seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
Bonjour,
Sub ajoute()
Sheets("formulaire").[B2:B10].Copy
Sheets("donnees").Activate
[A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True
End Sub
Sub ajoute2()
If [B2] <> "" Then
Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1,
9).Value = _
Application.Transpose(Sheets("formulaire").[B2:B10])
[B2:B10].ClearContents
End If
End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" <p_sylv...@hotmail.com> wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" <p_sylv...@hotmail.com> a écrit dans le message de news:
3xAvh.63683$hn6.467...@weber.videotron.net...
Je suis en train de me faire une feuille Excel pour stocker des
information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restant e,
l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire
Tableau Piles
Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire"
et j'utilise une macro qui copie les données dans la feuille "Donné es" en
tranposant ces valeurs
Voici la macro
Sub Valider()
'
' Valider Macro
'
'
Range("B2:B10").Select
Selection.Copy
Sheets("Données").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colo nne
A soit sélectionné avant de faire le copie-coller tranposé dans l a feuille
données. Alors la ligne Range("A3").select n'est pas bonne et je ne
sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon
les valeurs dans ma page de données
mais je ne sais pas comment faire pour que le calcul ne choississent
seulement un set de pile en particulier puis
qu.il calcule le nombre de charge rapide, charge lente, break-in, refre sh
& analyse et aussi efficacité dans le tableau
ci-dessous
Marque Piles Capacité Charge
rapide Charge
lente Break-in Refresh
& analyze Cycle de
charge Efficacité
PowerEx AA Set 1 2700
PowerEx AA Set 10 2700
PowerEx AA Set 2 2500
PowerEx AA Set 3 2500
PowerEx AA Set 4 2500
PowerEx AA Set 5 2500
Energizer AA Set 6 1850
Energizer AA Set 7 1850
Energizer AA Set 8 1850
Energizer AA Set 9 1850
Duracell AAA Set 11 1000
Duracell AAA Set 12 1000
Duracell AAA Set 13 1000
Duracell AAA Set 14 1000
Duracell AAA Set 15 1000
Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici q ui
seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
Sub ajoute() Sheets("formulaire").[B2:B10].Copy Sheets("donnees").Activate [A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True End Sub
Sub ajoute2() If [B2] <> "" Then Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1, 9).Value = _ Application.Transpose(Sheets("formulaire").[B2:B10]) [B2:B10].ClearContents End If End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" a écrit dans le message de news: 3xAvh.63683$
Je suis en train de me faire une feuille Excel pour stocker des information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restant e, l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire Tableau Piles Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Donné es" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colo nne A soit sélectionné avant de faire le copie-coller tranposé dans l a feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refre sh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici q ui seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
Sylvain
Ouff ! Je n'ai pas tout compris et de la façon que vous avez fait cette macro mais au moins ca fonctionne !
Pourquoi la macro en 2 parties ?
Si je comprend bien dans la feuille données on va d'abors a la cellule A65000 Xlup doit surement remonter a la derniere cellule qui contient une valeur en fesant un offset de 1 ligne
Mais la macro2 avec le resize la je suis completement perdus !
Un gros merci !
Bon maintenant que mes données vont maintenant s'ajouter à la feuille données automatiquement la j'aimerais que dans mon tableau globale des piles que tous les valeurs que j'entre soit calculé pour chaque nom de pile EX: Set 1
Mon tableau est comme ceci
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh Cycle de charge Efficacité
Duracell Set 1 2700 Energizer Set 2 2500 Energizer Set 3 1000
Alors la j'aimerais que le totale de toutes les charges rapides, charge lente, Break-in. Refresh, Cycle de charge, Efficacité soit calculé et ajouter dans mon tableau et ce pour chacun de mes SET de piles. Donc il faut que je filtre les valeurs pour chaque SET de piles de la page de Données puis affiché le résultats dans le tableau et que ce tableau se met a jour automatiquement à chaque fois que j'ajoute des nouvelles données. Ouff !
La colonne "Cycle de charge" est le total du nombre de charge, break in et refresh La colonne Efficacité est la moyenne des 2 valeurs de capacité actuelle / par la capacité réel de la pile
Donc si le "Set 1" sont des piles de 2700 et que j'ai une capacité réelle de 2650 & 2650 apres la charge alors la moyenne est de 2650 divisé par 2700 = 98.1% efficacité. Donc je veux cette valeur dans mon tableau dans la colonne "Efficacité" et ce pour chaque SET de pile que j'ai. (en tout 20 set donc 40 piles)
Voilà à ce je dois en venir avec ma feuille de calcul.
Encore un gros merci pour votre aide !! "JB" a écrit dans le message de news:
Bonjour,
Sub ajoute() Sheets("formulaire").[B2:B10].Copy Sheets("donnees").Activate [A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True End Sub
Sub ajoute2() If [B2] <> "" Then Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1, 9).Value = _ Application.Transpose(Sheets("formulaire").[B2:B10]) [B2:B10].ClearContents End If End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" a écrit dans le message de news: 3xAvh.63683$
Je suis en train de me faire une feuille Excel pour stocker des information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restante, l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire Tableau Piles Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Données" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne A soit sélectionné avant de faire le copie-coller tranposé dans la feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
Ouff ! Je n'ai pas tout compris et de la façon que vous avez fait cette
macro mais au moins ca fonctionne !
Pourquoi la macro en 2 parties ?
Si je comprend bien dans la feuille données on va d'abors a la cellule
A65000
Xlup doit surement remonter a la derniere cellule qui contient une valeur
en fesant un offset de 1 ligne
Mais la macro2
avec le resize la je suis completement perdus !
Un gros merci !
Bon maintenant que mes données vont maintenant s'ajouter à la feuille
données automatiquement la j'aimerais
que dans mon tableau globale des piles que tous les valeurs que j'entre soit
calculé pour chaque nom de pile
EX: Set 1
Mon tableau est comme ceci
Marque Piles Capacité Charge rapide Charge lente
Break-in Refresh Cycle de charge Efficacité
Duracell Set 1 2700
Energizer Set 2 2500
Energizer Set 3 1000
Alors la j'aimerais que le totale de toutes les charges rapides, charge
lente, Break-in. Refresh, Cycle de charge, Efficacité soit calculé
et ajouter dans mon tableau et ce pour chacun de mes SET de piles. Donc il
faut que je filtre les valeurs pour chaque SET de piles
de la page de Données puis affiché le résultats dans le tableau et que ce
tableau se met a jour automatiquement à chaque fois que j'ajoute des
nouvelles données. Ouff !
La colonne "Cycle de charge" est le total du nombre de charge, break in et
refresh
La colonne Efficacité est la moyenne des 2 valeurs de capacité actuelle /
par la capacité réel de la pile
Donc si le "Set 1" sont des piles de 2700 et que j'ai une capacité réelle de
2650 & 2650 apres la charge
alors la moyenne est de 2650 divisé par 2700 = 98.1% efficacité. Donc je
veux cette valeur dans mon tableau
dans la colonne "Efficacité" et ce pour chaque SET de pile que j'ai. (en
tout 20 set donc 40 piles)
Voilà à ce je dois en venir avec ma feuille de calcul.
Encore un gros merci pour votre aide !!
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1170140713.554343.266530@j27g2000cwj.googlegroups.com...
Bonjour,
Sub ajoute()
Sheets("formulaire").[B2:B10].Copy
Sheets("donnees").Activate
[A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True
End Sub
Sub ajoute2()
If [B2] <> "" Then
Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1,
9).Value = _
Application.Transpose(Sheets("formulaire").[B2:B10])
[B2:B10].ClearContents
End If
End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" <p_sylv...@hotmail.com> wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" <p_sylv...@hotmail.com> a écrit dans le message de news:
3xAvh.63683$hn6.467...@weber.videotron.net...
Je suis en train de me faire une feuille Excel pour stocker des
information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restante,
l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire
Tableau Piles
Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire"
et j'utilise une macro qui copie les données dans la feuille "Données"
en
tranposant ces valeurs
Voici la macro
Sub Valider()
'
' Valider Macro
'
'
Range("B2:B10").Select
Selection.Copy
Sheets("Données").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub
La je veux quie dans la macro que la premiere cellule vide dans la
colonne
A soit sélectionné avant de faire le copie-coller tranposé dans la
feuille
données. Alors la ligne Range("A3").select n'est pas bonne et je ne
sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon
les valeurs dans ma page de données
mais je ne sais pas comment faire pour que le calcul ne choississent
seulement un set de pile en particulier puis
qu.il calcule le nombre de charge rapide, charge lente, break-in,
refresh
& analyse et aussi efficacité dans le tableau
ci-dessous
Marque Piles Capacité Charge
rapide Charge
lente Break-in Refresh
& analyze Cycle de
charge Efficacité
PowerEx AA Set 1 2700
PowerEx AA Set 10 2700
PowerEx AA Set 2 2500
PowerEx AA Set 3 2500
PowerEx AA Set 4 2500
PowerEx AA Set 5 2500
Energizer AA Set 6 1850
Energizer AA Set 7 1850
Energizer AA Set 8 1850
Energizer AA Set 9 1850
Duracell AAA Set 11 1000
Duracell AAA Set 12 1000
Duracell AAA Set 13 1000
Duracell AAA Set 14 1000
Duracell AAA Set 15 1000
Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui
seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le texte des
messages précédents -
Ouff ! Je n'ai pas tout compris et de la façon que vous avez fait cette macro mais au moins ca fonctionne !
Pourquoi la macro en 2 parties ?
Si je comprend bien dans la feuille données on va d'abors a la cellule A65000 Xlup doit surement remonter a la derniere cellule qui contient une valeur en fesant un offset de 1 ligne
Mais la macro2 avec le resize la je suis completement perdus !
Un gros merci !
Bon maintenant que mes données vont maintenant s'ajouter à la feuille données automatiquement la j'aimerais que dans mon tableau globale des piles que tous les valeurs que j'entre soit calculé pour chaque nom de pile EX: Set 1
Mon tableau est comme ceci
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh Cycle de charge Efficacité
Duracell Set 1 2700 Energizer Set 2 2500 Energizer Set 3 1000
Alors la j'aimerais que le totale de toutes les charges rapides, charge lente, Break-in. Refresh, Cycle de charge, Efficacité soit calculé et ajouter dans mon tableau et ce pour chacun de mes SET de piles. Donc il faut que je filtre les valeurs pour chaque SET de piles de la page de Données puis affiché le résultats dans le tableau et que ce tableau se met a jour automatiquement à chaque fois que j'ajoute des nouvelles données. Ouff !
La colonne "Cycle de charge" est le total du nombre de charge, break in et refresh La colonne Efficacité est la moyenne des 2 valeurs de capacité actuelle / par la capacité réel de la pile
Donc si le "Set 1" sont des piles de 2700 et que j'ai une capacité réelle de 2650 & 2650 apres la charge alors la moyenne est de 2650 divisé par 2700 = 98.1% efficacité. Donc je veux cette valeur dans mon tableau dans la colonne "Efficacité" et ce pour chaque SET de pile que j'ai. (en tout 20 set donc 40 piles)
Voilà à ce je dois en venir avec ma feuille de calcul.
Encore un gros merci pour votre aide !! "JB" a écrit dans le message de news:
Bonjour,
Sub ajoute() Sheets("formulaire").[B2:B10].Copy Sheets("donnees").Activate [A65000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True End Sub
Sub ajoute2() If [B2] <> "" Then Sheets("donnees").[A65000].End(xlUp).Offset(1, 0).Resize(1, 9).Value = _ Application.Transpose(Sheets("formulaire").[B2:B10]) [B2:B10].ClearContents End If End Sub
http://cjoint.com/?bEifabdg1y
Cordialement JB
On 30 jan, 06:19, "Sylvain" wrote:
Oups les tableaux n'apparaissent pas dans le forum !!!
"Sylvain" a écrit dans le message de news: 3xAvh.63683$
Je suis en train de me faire une feuille Excel pour stocker des information sur mes piles rechargeables (40 total)
Alors je veux sauvegarder la date, la capacité, la capacité restante, l'efficacité, etc... de mes piles rechargebles.
j'ai créer une feuilles excel avec ces feuilles:
Formulaire Tableau Piles Données
Je nomme mes piles en paire: Set 1, Set 2, Set 3 etc...
Alors j'entre mes données des piles dans la feuille "Formulaire" et j'utilise une macro qui copie les données dans la feuille "Données" en tranposant ces valeurs
Voici la macro
Sub Valider() ' ' Valider Macro '
' Range("B2:B10").Select Selection.Copy Sheets("Données").Select Range("A1").Select Selection.End(xlDown).Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
La je veux quie dans la macro que la premiere cellule vide dans la colonne A soit sélectionné avant de faire le copie-coller tranposé dans la feuille données. Alors la ligne Range("A3").select n'est pas bonne et je ne sais pas par quoi la remplacé.
Quelqu'un pourrais m'aider ?
J'aimerais par la suite que ma page Tableau Piles se mette a jours selon les valeurs dans ma page de données mais je ne sais pas comment faire pour que le calcul ne choississent seulement un set de pile en particulier puis qu.il calcule le nombre de charge rapide, charge lente, break-in, refresh & analyse et aussi efficacité dans le tableau ci-dessous
Marque Piles Capacité Charge rapide Charge lente Break-in Refresh & analyze Cycle de charge Efficacité PowerEx AA Set 1 2700 PowerEx AA Set 10 2700 PowerEx AA Set 2 2500 PowerEx AA Set 3 2500 PowerEx AA Set 4 2500 PowerEx AA Set 5 2500 Energizer AA Set 6 1850 Energizer AA Set 7 1850 Energizer AA Set 8 1850 Energizer AA Set 9 1850 Duracell AAA Set 11 1000 Duracell AAA Set 12 1000 Duracell AAA Set 13 1000 Duracell AAA Set 14 1000 Duracell AAA Set 15 1000 Duracell AAA Set 16 1000
Pour moi ca me semble compliqué mais je sais qu.il y a des pros ici qui seront m'aider !
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
