Discussion :

[alscion]

Bonjour à tous,

Un forum riche c'est cool mais pour retrouver la bonne infos c'est pas l'idéal :s

J'ai pas trouvé comment augmenter toutes les valeurs d'un Range à deux dimensions, pas de soucis si j'ai qu'une dimension mais j'aimerais gagner une boucle et en clarté.

- Mon range de départ est le C3:E8
- Je le copie via l'attribut Offset
- Et je voudrais incrémenter de 18 les valeurs copiées

J'ai testé ce genre de syntaxe :

.Range("C3:E8").Offset(j).Value = .Range("C3:E8").Value + 18

Mais j'ai type mismatch alors que cellule par cellule j'ai ce pb de type

Une idée svp? Je peux réexpliquer si ça n'est pas clair, ds tous les cas merci!

[jfontaine]

Bonjour,

Voici une méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim rg As Range
 
Set rg = Range("A1:E11")
 
For Each cel In rg
    cel.Value = cel.Value + 18
Next cel
 
rg.Copy Range("G1")

[mercatog]

Bonsoir
Une autre proposition en utilisant une cellule tampon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .Range("G3:I8").Value = Range("C3:E8").Value
    With .Range("J3")
        .Value = 18
        .Copy
    End With
    .Range("G3:I8").PasteSpecial Operation:=2   'xlPasteSpecialOperationAdd
    .Range("J3").Clear
End With