Cette macro travail sur la colonne L en modifiant des valeurs, par
majoration avec un pourcentage et active un code feuille, qui lui inscrit la
date du jour dans la colonne N
Après usage, il serait préférable que la macro n'agisse que sur la zone
Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la colonne
L
Voici 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
End If
Next I
End Sub
La modification devrait être possible, mais pas à mon niveau.
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
Steph_D
"DC" a écrit dans le message de news:430e84a1$0$996$
Après usage, il serait préférable que la macro n'agisse que sur la zone Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la colonne
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
Bonjour DC,
Je te propose ceci : Sub MaMultiplication() Dim Reponse As Integer Dim MaCellule As Range Application.ScreenUpdating = False Reponse = MsgBox("Multiplie par 1.02 la plage sélectionnée.", vbYesNo + vbDefaultButton1) If Reponse = vbYes Then For Each MaCellule In Selection If IsNumeric(MaCellule) And Not (IsEmpty(MaCellule)) Then MaCellule.Value = MaCellule.Value * 1.02 End If Next MaCellule End If Application.ScreenUpdating = True End Sub
Salutations Steph D.
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430e84a1$0$996$8fcfb975@news.wanadoo.fr...
Après usage, il serait préférable que la macro n'agisse que sur la zone
Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la
colonne
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
Bonjour DC,
Je te propose ceci :
Sub MaMultiplication()
Dim Reponse As Integer
Dim MaCellule As Range
Application.ScreenUpdating = False
Reponse = MsgBox("Multiplie par 1.02 la plage sélectionnée.", vbYesNo +
vbDefaultButton1)
If Reponse = vbYes Then
For Each MaCellule In Selection
If IsNumeric(MaCellule) And Not (IsEmpty(MaCellule)) Then
MaCellule.Value = MaCellule.Value * 1.02
End If
Next MaCellule
End If
Application.ScreenUpdating = True
End Sub
"DC" a écrit dans le message de news:430e84a1$0$996$
Après usage, il serait préférable que la macro n'agisse que sur la zone Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la colonne
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
Bonjour DC,
Je te propose ceci : Sub MaMultiplication() Dim Reponse As Integer Dim MaCellule As Range Application.ScreenUpdating = False Reponse = MsgBox("Multiplie par 1.02 la plage sélectionnée.", vbYesNo + vbDefaultButton1) If Reponse = vbYes Then For Each MaCellule In Selection If IsNumeric(MaCellule) And Not (IsEmpty(MaCellule)) Then MaCellule.Value = MaCellule.Value * 1.02 End If Next MaCellule End If Application.ScreenUpdating = True End Sub
Salutations Steph D.
Jacky
Re.. '----------- For Each c In Selection If IsNumeric(c.Value) And c <> "" Then c.Value = c.Value * 1.02 End If Next c '----------- Salutations JJ
"DC" a écrit dans le message de news:430e84a1$0$996$
Bonjour à Tous,
Cette macro travail sur la colonne L en modifiant des valeurs, par majoration avec un pourcentage et active un code feuille, qui lui inscrit la
date du jour dans la colonne N
Après usage, il serait préférable que la macro n'agisse que sur la zone Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la colonne
L
Voici 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 End If Next I End Sub
La modification devrait être possible, mais pas à mon niveau.
Re..
'-----------
For Each c In Selection
If IsNumeric(c.Value) And c <> "" Then
c.Value = c.Value * 1.02
End If
Next c
'-----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430e84a1$0$996$8fcfb975@news.wanadoo.fr...
Bonjour à Tous,
Cette macro travail sur la colonne L en modifiant des valeurs, par
majoration avec un pourcentage et active un code feuille, qui lui inscrit
la
date du jour dans la colonne N
Après usage, il serait préférable que la macro n'agisse que sur la zone
Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la
colonne
L
Voici 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
End If
Next I
End Sub
La modification devrait être possible, mais pas à mon niveau.
Re.. '----------- For Each c In Selection If IsNumeric(c.Value) And c <> "" Then c.Value = c.Value * 1.02 End If Next c '----------- Salutations JJ
"DC" a écrit dans le message de news:430e84a1$0$996$
Bonjour à Tous,
Cette macro travail sur la colonne L en modifiant des valeurs, par majoration avec un pourcentage et active un code feuille, qui lui inscrit la
date du jour dans la colonne N
Après usage, il serait préférable que la macro n'agisse que sur la zone Sélectionnée auparavent, au lieu de travailler sur l'ensemble de la colonne
L
Voici 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 End If Next I End Sub
La modification devrait être possible, mais pas à mon niveau.