Discussion :

[John81]

Bonjour,

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

Code :

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

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 :

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

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

Merci de votre aide. John81

[drakkar_agfa]

Bonjour,

Tu peux utiliser le With

Code :

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

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

Et voila!

[John81]

Merci beaucoup drakkar_agfa. Bonne soirée John81

[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 :

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

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

[drakkar_agfa]

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?

[drakkar_agfa]

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

Code :

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

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

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

et

Code :

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

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!!!!