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

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

Privacy & Transparency

Privacy & Transparency