bonjour,
je voudrais incrémenter une valeur par une macro à partir d'un maximum
jusqu'au minimum ligne par ligne.
valeur maximum en A45
valeur minimum en B45
cellule de départ A46
incrémentation -50
merci
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
Denis Michon
Bonjour Olivier,
Sous réserve d'avoir compris ta demande,
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu dans la colonne A, atteigne le minimum de la cellule B45
'-------------------- Sub Incrémenter()
Dim A As Long A = (Range("A45") / -50) + 1 Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)" Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub '--------------------
Salutations!
"olivier" a écrit dans le message de news:40952ff4$0$13081$ bonjour, je voudrais incrémenter une valeur par une macro à partir d'un maximum jusqu'au minimum ligne par ligne. valeur maximum en A45 valeur minimum en B45 cellule de départ A46 incrémentation -50 merci
Bonjour Olivier,
Sous réserve d'avoir compris ta demande,
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu
dans la colonne A, atteigne le minimum de la cellule B45
'--------------------
Sub Incrémenter()
Dim A As Long
A = (Range("A45") / -50) + 1
Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)"
Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub
'--------------------
Salutations!
"olivier" <olivier.daheron@free.fr> a écrit dans le message de news:40952ff4$0$13081$636a15ce@news.free.fr...
bonjour,
je voudrais incrémenter une valeur par une macro à partir d'un maximum
jusqu'au minimum ligne par ligne.
valeur maximum en A45
valeur minimum en B45
cellule de départ A46
incrémentation -50
merci
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu dans la colonne A, atteigne le minimum de la cellule B45
'-------------------- Sub Incrémenter()
Dim A As Long A = (Range("A45") / -50) + 1 Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)" Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub '--------------------
Salutations!
"olivier" a écrit dans le message de news:40952ff4$0$13081$ bonjour, je voudrais incrémenter une valeur par une macro à partir d'un maximum jusqu'au minimum ligne par ligne. valeur maximum en A45 valeur minimum en B45 cellule de départ A46 incrémentation -50 merci
michdenis
La première ligne de la procédure devrait plutôt être :
A = (Range("A45") - Range("B45")) / -50
Salutations!
Sous réserve d'avoir compris ta demande,
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu dans la colonne A, atteigne le minimum de la cellule B45
'-------------------- Sub Incrémenter()
Dim A As Long A = (Range("A45") / -50) + 1 Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)" Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub '--------------------
Salutations!
"olivier" a écrit dans le message de news:40952ff4$0$13081$ bonjour, je voudrais incrémenter une valeur par une macro à partir d'un maximum jusqu'au minimum ligne par ligne. valeur maximum en A45 valeur minimum en B45 cellule de départ A46 incrémentation -50 merci
La première ligne de la procédure devrait plutôt être :
A = (Range("A45") - Range("B45")) / -50
Salutations!
Sous réserve d'avoir compris ta demande,
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu
dans la colonne A, atteigne le minimum de la cellule B45
'--------------------
Sub Incrémenter()
Dim A As Long
A = (Range("A45") / -50) + 1
Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)"
Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub
'--------------------
Salutations!
"olivier" <olivier.daheron@free.fr> a écrit dans le message de news:40952ff4$0$13081$636a15ce@news.free.fr...
bonjour,
je voudrais incrémenter une valeur par une macro à partir d'un maximum
jusqu'au minimum ligne par ligne.
valeur maximum en A45
valeur minimum en B45
cellule de départ A46
incrémentation -50
merci
La première ligne de la procédure devrait plutôt être :
A = (Range("A45") - Range("B45")) / -50
Salutations!
Sous réserve d'avoir compris ta demande,
Incrémenter d'un pas de valeur -50 , les cellules de la colonne A en débutant en A46 , jusqu'à ce que la valeur contenu dans la colonne A, atteigne le minimum de la cellule B45
'-------------------- Sub Incrémenter()
Dim A As Long A = (Range("A45") / -50) + 1 Range("A46").Resize(Abs(A)).Formula = "¤5+(-50)" Range("A46").Resize(Abs(A)) = Range("A46").Resize(Abs(A)).Value
End Sub '--------------------
Salutations!
"olivier" a écrit dans le message de news:40952ff4$0$13081$ bonjour, je voudrais incrémenter une valeur par une macro à partir d'un maximum jusqu'au minimum ligne par ligne. valeur maximum en A45 valeur minimum en B45 cellule de départ A46 incrémentation -50 merci
