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
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
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
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
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
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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
430d7904$0$1720$8fcfb975@news.wanadoo.fr...
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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
430d7904$0$1720$8fcfb975@news.wanadoo.fr...
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
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
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" a écrit dans le message de news:
%Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%231ohVxUqFHA.564@TK2MSFTNGP12.phx.gbl...
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
430d7904$0$1720$8fcfb975@news.wanadoo.fr...
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
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" a écrit dans le message de news:
%Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de 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
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" a écrit dans le message de
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
estdû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" a écrit dans le message de news:
%Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
430d7904$0$1720$Bonjour à Tous,
Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date
dujour 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
niveaudes 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
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" <da.campion@hotmail.fr> a écrit dans le message de
news:430d94bb$0$1018$8fcfb975@news.wanadoo.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%231ohVxUqFHA.564@TK2MSFTNGP12.phx.gbl...
Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
430d7904$0$1720$8fcfb975@news.wanadoo.fr...
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
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" a écrit dans le message de
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
estdû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" a écrit dans le message de news:
%Bonjour.
Peux-tu poster le code se trouvant dans ta feuille ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
430d7904$0$1720$Bonjour à Tous,
Rentrer une valeur dans la colonne L, à pour effet d'inscrire la date
dujour 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
niveaudes 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