Simplier une macro

[klorane]

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]

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]

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]

Re : Simplier une macro

Personne?^^

 

[Softmama]

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

bonjour, ça donnerait :

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]

Re : Simplier une macro

Merci pour l'info^^

Bonne nuit

Klorane