Ajouter une valeur à la valeur d'une cellule

Bonjour,

La formule suivante permet d'ajouter 3 à la valeur de la cellule A1:

Code:

---

Range("A1").Value = Range("A1").Value + 1

---

Je voudrais savoir s'il existe une formule qui permet d'ajouter qqch à la valeur d'une cellule sans avoir à renommer l'adresse de la cellule du style

Code:

---

Range("A1").Value = .Value + 1

---

Merci de votre aide. John81

Bonjour,

Tu peux utiliser le With

Code:

---

1 2 3

With Range("A1") .Value = .Value + 1 End With

---

Et voila!

Merci beaucoup drakkar_agfa. Bonne soirée John81

Juste encore une petite question, si je veux faire cela pour les cellules A1 et B1, est-ce que je dois réécrire les "With" et "End With" comme cela:

Code:

---

1 2 3 4 5 6 7

With Range("A1") .Value = .Value + 1 End With   With Range("B1") .Value = .Value + 1 End With

---

Où y a-t-il une méthode plus courte. Merci John81

Je ne sais pas s'il a une façon de le faire ensemble (cela m'étonnerait) mais tu n'as pas le choix de séparer les deux.

Mais dans ce cas la, est-ce que le With épargne beaucoup?
Il est efficace d'utiliser cette technique quand nous avons plusieurs propriétés (.caption .name .visible etc...) dans ce cas, nous devons seulement les énumérer dans le with.

Surement que quelqu'un pourrait m'éclairer sur ceci mais, est-ce plus rapide d'écrire complètement que d'utiliser un with pour une ligne?

Et bien!
Après quelques petits test voici les résultats :
Avec

Code:

---

Range("A2").Value = Range("A2").Value + 1

---

À 10 000 répétition j'ai 29.3438 avec Timer

et

Code:

---

1 2 3

With Range("B2") .Value = .Value + 1 End With

---

À 10 000 répétition j'ai 29.0586 avec Timer

Donc, il est plus rapide d'utiliser le with!!!!
:king:

Merci en fait j'ai pris un exemple simple mais dans le cas suivant il est de toute façon plus simple d'utiliser le "With":

Code:

---

1 2 3 4

With Sheets("PAYS").Range("E" & Sheets("PAYS").Range("A:A").Find(Val(Mid(Range("H" & i). _ Value, InStr(Range("H" & i).Value, "/") + 1, 3)), lookAt:=xlWhole).Row) .Value = .Value + 1 End With

---

que la méthode suivante:

Code:

---

1 2 3 4

Sheets("PAYS").Range("E" & Sheets("PAYS").Range("A:A").Find(Val(Mid(Range("H" & i). _ Value, InStr(Range("H" & i).Value, "/") + 1, 3)), lookAt:=xlWhole).Row).Value = Sheets("PAYS").Range("E" & Sheets("PAYS").Range("A:A").Find(Val(Mid(Range("H" & i). _ Value, InStr(Range("H" & i).Value, "/") + 1, 3)), lookAt:=xlWhole).Row).Value +1

---