Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Activer code feuille, pendant éxécution d'une macro

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

6 réponses
Avatar
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
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



Avatar
Jacky
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" 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




Avatar
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







Avatar
Daniel
Ton code fonctionne bien chez moi.
Daniel
"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







Avatar
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" 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
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











Avatar
DC
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" a écrit dans le message de news:
%
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
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