help macroteur débutant

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton garage
et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un truc
qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il te
faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de gestion
de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le même
traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

tu vois, ta question, c'est un peu comme si je venais te voir dans
ton garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot,
j'ai un truc

qui ne marche pas...

Ou que JPS le Grand demande un bouchon numéro 716 :-)

;-)))
Bouchon de 710.....
710 !!! Clément .....

quoique pour JPS au risque d'avoir un coup de 100, ce serait plutot un verre
de 20......

:-)))
nb: puisque M6NET.FR arrete son service
changement d'adresse : http://www.cerbermail.com/
suivi de : ?oK6IM726nD

@+

"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news:urr7M7%23xDHA.2032@TK2MSFTNGP10.phx.gbl...

tu vois, ta question, c'est un peu comme si je venais te voir dans
ton garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot,
j'ai un truc

qui ne marche pas...

Ou que JPS le Grand demande un bouchon numéro 716 :-)

pas encore très familier avec les procédures, je répond directement puis au
groupe
j'ai un stock théorique par produit (un produit par ligne): pneus, bougies,
courrois, etc... et je suis (suivre) le réel que je rentre manuellement, les
fonctions de base de calcul détermine le réapprovisionnement, que je suis
(commande, réception) puis par une petite macro je rajoute au réel et je
réinitialise : ça marche sur la ligne mais je ne sais pas dire à la macro
comment faire la même chose sur la ligne suivante

ci dessous la macro actuelle

merci

Sub Macro9()

'

' Macro9 Macro

' Macro enregistrée le 21/12/2003 par DUTHOIT

'

' Touche de raccourci du clavier: Ctrl+m

'

Range("N5").Select

Selection.Copy

Range("H5").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:úlse

Range("J5:N5").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("N5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-6]"

Range("I5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub


"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FE5DE0A.EAD156B6@wanadoo.fr...

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton
garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un
truc

qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il
te

faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de
gestion

de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le
même

traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

faites bien les malins, le pape et son éminence grise : de toutes façons, je
vous ai à l'oil...
jps

gee-dee- wrote:

;-)))
Bouchon de 710.....
710 !!! Clément .....

quoique pour JPS au risque d'avoir un coup de 100, ce serait plutot un verre
de 20......

:-)))
nb: puisque M6NET.FR arrete son service
changement d'adresse : http://www.cerbermail.com/
suivi de : ?oK6IM726nD

@+

"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news:urr7M7%23xDHA.2032@TK2MSFTNGP10.phx.gbl...

tu vois, ta question, c'est un peu comme si je venais te voir dans
ton garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot,
j'ai un truc

qui ne marche pas...

Ou que JPS le Grand demande un bouchon numéro 716 :-)

Bonsoir Michel,
En attendant que Jean Paul ai retrouvé le bouchon, je m'immisce pour proposer :

Sub Macro9()
'Macro enregistrée le 21/12/2003 par DUTHOIT
'Modification sur MPFE le 21/12/2003
' Touche de raccourci du clavier: Ctrl+m
Dim l As Long, z As Long '

z = Application.WorksheetFunction.CountA(Range("h:h"))

For l = 5 To z
Range("N" & l).Copy
Range("H" & l).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("J" & l & ":N" & l).ClearContents
Range("N" & l).FormulaR1C1 = "=RC[-2]+RC[-6]"
Range("I" & l).FormulaR1C1 = "=RC[-2]-RC[-1]"
Next l
End Sub

;o))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"michel duthoit" <michel.duthoit@wanadoo.fr> a écrit dans le message de
news:bs4vk9$k2u$1@news-reader3.wanadoo.fr...

pas encore très familier avec les procédures, je répond directement puis au
groupe
j'ai un stock théorique par produit (un produit par ligne): pneus, bougies,
courrois, etc... et je suis (suivre) le réel que je rentre manuellement, les
fonctions de base de calcul détermine le réapprovisionnement, que je suis
(commande, réception) puis par une petite macro je rajoute au réel et je
réinitialise : ça marche sur la ligne mais je ne sais pas dire à la macro
comment faire la même chose sur la ligne suivante

ci dessous la macro actuelle

merci

Sub Macro9()

'

' Macro9 Macro

' Macro enregistrée le 21/12/2003 par DUTHOIT

'

' Touche de raccourci du clavier: Ctrl+m

'

Range("N5").Select

Selection.Copy

Range("H5").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:úlse

Range("J5:N5").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("N5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-6]"

Range("I5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub


"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FE5DE0A.EAD156B6@wanadoo.fr...

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton
garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un
truc

qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il
te

faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de
gestion

de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le
même

traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

bon, ça y est, j'ai le bouchon, philippe, par contre je n'arrive pas à changer de
ligne avec ta proc : je reste sur H5, le Next ne me donnant pas l'impression de
marcher...
moi, j'ai fait un autre truc, que j'ai soumis à michel, basé sur des références
relatives...
à suivre
jps

"Philippe.R" wrote:

Bonsoir Michel,
En attendant que Jean Paul ai retrouvé le bouchon, je m'immisce pour proposer :

Sub Macro9()
'Macro enregistrée le 21/12/2003 par DUTHOIT
'Modification sur MPFE le 21/12/2003
' Touche de raccourci du clavier: Ctrl+m
Dim l As Long, z As Long '

z = Application.WorksheetFunction.CountA(Range("h:h"))

For l = 5 To z
Range("N" & l).Copy
Range("H" & l).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("J" & l & ":N" & l).ClearContents
Range("N" & l).FormulaR1C1 = "=RC[-2]+RC[-6]"
Range("I" & l).FormulaR1C1 = "=RC[-2]-RC[-1]"
Next l
End Sub

;o))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"michel duthoit" <michel.duthoit@wanadoo.fr> a écrit dans le message de
news:bs4vk9$k2u$1@news-reader3.wanadoo.fr...

pas encore très familier avec les procédures, je répond directement puis au
groupe
j'ai un stock théorique par produit (un produit par ligne): pneus, bougies,
courrois, etc... et je suis (suivre) le réel que je rentre manuellement, les
fonctions de base de calcul détermine le réapprovisionnement, que je suis
(commande, réception) puis par une petite macro je rajoute au réel et je
réinitialise : ça marche sur la ligne mais je ne sais pas dire à la macro
comment faire la même chose sur la ligne suivante

ci dessous la macro actuelle

merci

Sub Macro9()

'

' Macro9 Macro

' Macro enregistrée le 21/12/2003 par DUTHOIT

'

' Touche de raccourci du clavier: Ctrl+m

'

Range("N5").Select

Selection.Copy

Range("H5").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:úlse

Range("J5:N5").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("N5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-6]"

Range("I5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub


"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FE5DE0A.EAD156B6@wanadoo.fr...

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton
garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un
truc

qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il
te

faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de
gestion

de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le
même

traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

Bonsoir Jean Paul,

je reste sur H5, le Next ne me donnant pas l'impression de marcher...
Curieux ça fonctionne pourtant bien chez moi !?!

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:3FE62B15.730A7C6A@wanadoo.fr...

bon, ça y est, j'ai le bouchon, philippe, par contre je n'arrive pas à changer de
ligne avec ta proc : je reste sur H5, le Next ne me donnant pas l'impression de
marcher...
moi, j'ai fait un autre truc, que j'ai soumis à michel, basé sur des références
relatives...
à suivre
jps

"Philippe.R" wrote:

Bonsoir Michel,
En attendant que Jean Paul ai retrouvé le bouchon, je m'immisce pour proposer :

Sub Macro9()
'Macro enregistrée le 21/12/2003 par DUTHOIT
'Modification sur MPFE le 21/12/2003
' Touche de raccourci du clavier: Ctrl+m
Dim l As Long, z As Long '

z = Application.WorksheetFunction.CountA(Range("h:h"))

For l = 5 To z
Range("N" & l).Copy
Range("H" & l).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("J" & l & ":N" & l).ClearContents
Range("N" & l).FormulaR1C1 = "=RC[-2]+RC[-6]"
Range("I" & l).FormulaR1C1 = "=RC[-2]-RC[-1]"
Next l
End Sub

;o))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"michel duthoit" <michel.duthoit@wanadoo.fr> a écrit dans le message de
news:bs4vk9$k2u$1@news-reader3.wanadoo.fr...

pas encore très familier avec les procédures, je répond directement puis au
groupe
j'ai un stock théorique par produit (un produit par ligne): pneus, bougies,
courrois, etc... et je suis (suivre) le réel que je rentre manuellement, les
fonctions de base de calcul détermine le réapprovisionnement, que je suis
(commande, réception) puis par une petite macro je rajoute au réel et je
réinitialise : ça marche sur la ligne mais je ne sais pas dire à la macro
comment faire la même chose sur la ligne suivante

ci dessous la macro actuelle

merci

Sub Macro9()

'

' Macro9 Macro

' Macro enregistrée le 21/12/2003 par DUTHOIT

'

' Touche de raccourci du clavier: Ctrl+m

'

Range("N5").Select

Selection.Copy

Range("H5").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:úlse

Range("J5:N5").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("N5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-6]"

Range("I5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub


"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FE5DE0A.EAD156B6@wanadoo.fr...

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton
garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un
truc

qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il
te

faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de
gestion

de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le
même

traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

ah bon
juste un mot : tu préinstalles des données dans quelles cellules pour ton test?
à suivre
jps

"Philippe.R" wrote:

Bonsoir Jean Paul,

je reste sur H5, le Next ne me donnant pas l'impression de marcher...
Curieux ça fonctionne pourtant bien chez moi !?!

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:3FE62B15.730A7C6A@wanadoo.fr...

bon, ça y est, j'ai le bouchon, philippe, par contre je n'arrive pas à changer de
ligne avec ta proc : je reste sur H5, le Next ne me donnant pas l'impression de
marcher...
moi, j'ai fait un autre truc, que j'ai soumis à michel, basé sur des références
relatives...
à suivre
jps

"Philippe.R" wrote:

Bonsoir Michel,
En attendant que Jean Paul ai retrouvé le bouchon, je m'immisce pour proposer :

Sub Macro9()
'Macro enregistrée le 21/12/2003 par DUTHOIT
'Modification sur MPFE le 21/12/2003
' Touche de raccourci du clavier: Ctrl+m
Dim l As Long, z As Long '

z = Application.WorksheetFunction.CountA(Range("h:h"))

For l = 5 To z
Range("N" & l).Copy
Range("H" & l).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("J" & l & ":N" & l).ClearContents
Range("N" & l).FormulaR1C1 = "=RC[-2]+RC[-6]"
Range("I" & l).FormulaR1C1 = "=RC[-2]-RC[-1]"
Next l
End Sub

;o))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"michel duthoit" <michel.duthoit@wanadoo.fr> a écrit dans le message de
news:bs4vk9$k2u$1@news-reader3.wanadoo.fr...

pas encore très familier avec les procédures, je répond directement puis au
groupe
j'ai un stock théorique par produit (un produit par ligne): pneus, bougies,
courrois, etc... et je suis (suivre) le réel que je rentre manuellement, les
fonctions de base de calcul détermine le réapprovisionnement, que je suis
(commande, réception) puis par une petite macro je rajoute au réel et je
réinitialise : ça marche sur la ligne mais je ne sais pas dire à la macro
comment faire la même chose sur la ligne suivante

ci dessous la macro actuelle

merci

Sub Macro9()

'

' Macro9 Macro

' Macro enregistrée le 21/12/2003 par DUTHOIT

'

' Touche de raccourci du clavier: Ctrl+m

'

Range("N5").Select

Selection.Copy

Range("H5").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:úlse

Range("J5:N5").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("N5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-6]"

Range("I5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub


"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FE5DE0A.EAD156B6@wanadoo.fr...

bonjour michel
tu vois, ta question, c'est un peu comme si je venais te voir dans ton
garage

et que je te dise : tu voudrais pas jeter un oeil sous mon capot, j'ai un
truc

qui ne marche pas...
si tu veux qu'une bonne âme mette le nez dans le moteur de tes macros, il
te

faut être plus précis dans la formulation de ta question...
jps

michel duthoit wrote:

après avoir bien sué, j'ai réussi à faire une très courte macro de
gestion

de petit stock garage entretien : ça marche en mettant à jour après
réapprovisionnement .... mais comment dire à la macro d'appliquer le
même

traitement de mise à jour sur d'autres lignes
merci à la bonne âme passant par là
md

Comme (apparement ?) tes données "stables" sont en G5:Gx, ça pourrait se résumer
à :

Sub zzzz()
For i = 5 To [G65536].End(3).Row
Range("H" & i) = Range("N" & i)
Range("N" & i) = "=L" & i & "+H" & i
Range("I" & i) = "=G" & i & "-H" & i
Next
Range("J5:M" & i) = ""
End Sub

AV