VBA - ajouter une valeur aux données d'une colonne

Guillaumega

XLDnaute Impliqué
Bonjour,

Je cherche à ajouter 0,25 aux cellules non vides (contenant des valeurs numériques) de la plage A10:A65536.
Sauriez vous comment on fait s'il vous plait?

En vous remerciant par avance,
Cordialement,
Guillaumega
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : VBA - ajouter une valeur aux données d'une colonne

Bonjour,


Manuellement:
-0,25 dans une cellule
-Edition/Copier
-Sélectionner A10:A65000
-Edition/Atteindre
-Constantes
-Edition/collage spécial/Addition



Code:
 For Each c In [A10:A65000].SpecialCells(xlCellTypeConstants, 23)
   c.Value = c.Value + 0.25
 Next c

JB
 

Pièces jointes

  • Classeur2.xls
    23 KB · Affichages: 110
  • Classeur2.xls
    23 KB · Affichages: 110
  • Classeur2.xls
    23 KB · Affichages: 123
Dernière édition:

Guillaumega

XLDnaute Impliqué
Re : VBA - ajouter une valeur aux données d'une colonne

Bonjour et merci pour ta réponse !

Je ne suis pas très doué il faut dire en vba et je ne suis pas parvenu à appliquer le code que tu m'as donné.
L'erreur est-elle facile à repérer dans le code ci-après?

En vous remerciant,
Guillaume


Code:
Private Sub Sensibility_Click()
    Application.ScreenUpdating = False
        For i = 0 To 3
        For Each c In [g11:g65000].SpecialCells(xlCellTypeConstants, 23)
        c.Value = c.Value - 0.01 + 0.0025 * i
        Next c
            Worksheets("CF").Range("IrrUnleveraged").Copy
            Worksheets("Sensibility analysis").Range("f6").Offset(i).PasteSpecial xlPasteValues
            Worksheets("CF").Range("IrrLeveraged").Copy
            Worksheets("Sensibility analysis").Range("f15").Offset(i).PasteSpecial xlPasteValues
        Next i
     Application.CutCopyMode = False
End Sub
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi