Activer code feuille, pendant éxécution d'une macro

Le
DC
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date du
jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au niveau
des dates.

Peut-on y remédier.?Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!Merci d'avance..DC
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #2969301
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" 430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date du
jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au niveau
des dates.

Peut-on y remédier.?.....................Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC



Jacky
Le #2969291
Bonjour DC

Pour mettre la date du jour dans la cellule correspondante de la colonne N
dans cette macro :
'---------
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
Range("N" & I) = Date '''''''''''''''' a mettre au format désiré
End If
Next I
'----------
JJ

"DC" news:430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date du
jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au niveau
des dates.

Peut-on y remédier.?.....................Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC




DC
Le #2969181
Bonjour à Tous.........Bonjour Daniel et Jacky,

Pour toi Daniel, Voici le code feuille en question.

Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String

If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True

Et toi Jacky, je n'est certainement pas réussi à complèter correctement le
format (les syntaxes) de ta ligne supplémentaire, car à l'éxécution la
colonne L fonctionne bien, mais la colonne N s'éfface complètement ceci est
dût à mon coté débutant.

Aussi, j'ai mis pour Daniel le code feuille qui contient le format désiré,
peut-ètre que tu vas pouvair m'enlever une épine du pied.

Salutation.!............Merci d'avance.............DC


End Sub
"Daniel" %
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" 430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date du
jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au niveau
des dates.

Peut-on y remédier.?.....................Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC







Daniel
Le #2969141
Ton code fonctionne bien chez moi.
Daniel
"Daniel" %
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" 430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date du
jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au niveau
des dates.

Peut-on y remédier.?.....................Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC







Jacky
Le #2968901
Re...
zz dans le module de la feuille, c'est la signature de AV ;-))
Essaie comme ceci:
'-----------
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
Range("N" & I).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next I
'------------
Salutations
JJ

"DC" news:430d94bb$0$1018$
Bonjour à Tous.........Bonjour Daniel et Jacky,

Pour toi Daniel, Voici le code feuille en question.

Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String

If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True

Et toi Jacky, je n'est certainement pas réussi à complèter correctement le
format (les syntaxes) de ta ligne supplémentaire, car à l'éxécution la
colonne L fonctionne bien, mais la colonne N s'éfface complètement ceci
est

dût à mon coté débutant.

Aussi, j'ai mis pour Daniel le code feuille qui contient le format désiré,
peut-ètre que tu vas pouvair m'enlever une épine du pied.

Salutation.!............Merci d'avance.............DC


End Sub
"Daniel" %
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" 430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date
du



jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au
niveau



des dates.

Peut-on y remédier.?.....................Voici la macro en question qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC











DC
Le #2966911
Bonjour à Tous..............Bonjour Jacky,

En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je
l'utilise ( Merci AV )

Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
l'on change avec cette macro les valeurs dans la colonne L

C'est moi qui avait mal construit la commande d'éxécution
et qui m'étonnais que ça ne fonctionne pas.

Merci, pour tout le travail que ça représente.

Salutation.!........encore un grand Merci.!........DC


"Jacky" %
Re...
zz dans le module de la feuille, c'est la signature de AV ;-))
Essaie comme ceci:
'-----------
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
Range("N" & I).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
End If
Next I
'------------
Salutations
JJ

"DC" news:430d94bb$0$1018$
Bonjour à Tous.........Bonjour Daniel et Jacky,

Pour toi Daniel, Voici le code feuille en question.

Private Sub Worksheet_Change(ByVal zz As Range)
Dim MaDate As String

If zz.Column <> 12 Then Exit Sub
Application.EnableEvents = False
MaDate = Application.Proper(Format(Date, "dd mmmm yyyy"))
zz(1, 3).FormulaLocal = "=NOMPROPRE(""" & MaDate & """)"
Application.EnableEvents = True

Et toi Jacky, je n'est certainement pas réussi à complèter correctement
le
format (les syntaxes) de ta ligne supplémentaire, car à l'éxécution la
colonne L fonctionne bien, mais la colonne N s'éfface complètement ceci
est

dût à mon coté débutant.

Aussi, j'ai mis pour Daniel le code feuille qui contient le format
désiré,
peut-ètre que tu vas pouvair m'enlever une épine du pied.

Salutation.!............Merci d'avance.............DC


End Sub
"Daniel" %
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" 430d7904$0$1720$
Bonjour à Tous,

Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date
du



jour dans la colonne N et ceci sur n'importe qu'elle ligne.

Nous devons ce résultat au code feuille.

Par contre, si je change l'ensemble des valeurs par une macro avec un
pourcentage majorateur, le code feuille ne fait plus son boulot au
niveau



des dates.

Peut-on y remédier.?.....................Voici la macro en question
qui
majore les prix unitaires.

Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'


For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("L" & I)) And Range("L" & I) <> "" Then
Range("L" & I).Value = Range("L" & I).Value * 1.02
End If
Next I
End Sub

Salutations.!............Merci d'avance...........DC















Publicité
Poster une réponse
Anonyme