Simplier une macro

klorane · 2 Janvier 2013

Bonsoir à tous,

par quelle macro plus courte serait il possible de remplacer par exemple :

range("A1").value=range("A1").value+1
range("B1").value=range("B1").value+1
range("C1").value=range("C1").value+1
range("D1").value=range("D1").value+1
range("E1").value=range("E1").value+1

N y a t'il pas un moyen par exemple de faire une chose de type :

Sur la plage A1 à E1, ajouter 1 dans toutes les cellules de la plage.

Merci

klorane

néné06 · 2 Janvier 2013

Re : Simplier une macro

Bonsoir Klorane

un exemple parmis tant d'autres,

for i = i to 5
cells(i,1)=cells(i,1)+1
next i

A+

René

klorane · 2 Janvier 2013

Re : Simplier une macro

Bonsoir René et merci pour ton aide.

Par contre, le code est valable pour les colonnes.

La même chose, sur une ligne ça donne quoi?^^

Merci
Klorane

klorane · 3 Janvier 2013

Re : Simplier une macro

Personne?^^

Softmama · 3 Janvier 2013

Re : Simplier une macro

klorane à dit:
Bonsoir René et merci pour ton aide.

Par contre, le code est valable pour les colonnes.

La même chose, sur une ligne ça donne quoi?^^

Merci
Klorane

bonjour, ça donnerait :

VB:

for i = 1 to 5
cells(1, i)=cells(1, i)+1 '  = ligne 1, colonne i
next i

avec Cells(Numéro_de_ligne, Numéro_de_colonne) comme paramètres

Cordialement

klorane · 3 Janvier 2013

Re : Simplier une macro

Merci pour l'info^^

Bonne nuit

Klorane

Simplier une macro

klorane

XLDnaute Occasionnel

néné06

XLDnaute Accro

klorane

XLDnaute Occasionnel

klorane

XLDnaute Occasionnel

Softmama

XLDnaute Accro

klorane

XLDnaute Occasionnel

Discussions similaires