MACRO - division par 100

Bonjour

Ceci est ma toute première macro. mais elle n'est pas encore au point.

elle s'appelle division - onglet "ECRITURES (2)"

Je souhaite diviser par 100 toute la colonne F (il y a plus de 66 000 lignes)

après lecture des différents exemples, voici :

Code:

---

1 2 3 4 5 6 7

Sub division() divisioncellule(cible) As Range   If Not IsNumeric Then Exit Sub cible = cible / 100   End Sub

---

Lors du lancement, j'ai l'erreur de compilatin - instruction incorecte à l'extérieur d'un bloc de type.

si quelqu'un peut m'aiguiller.

Merci d'avance.

Bonjour Hindi,

Citation:

---

il y a plus de 66 000 lignes

---

c'est de là que doit venir le problème, Excel 97 est limité à 65536 lignes :D

Bon, d'accord, la blague n'est pas bonne (mais c'est vrai)

Si tu souhaites boucler sur les cellules (pas forcément le plus rapide mais pour une première macro on va éviter les astuces - je pourrais t'en parler après si tu le souhaite)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Division100() Dim i as Long 'Pour le compteur i allant de 1 au numéro de la dernière ligne occupée en colonne F For i = 1 to Range("F65536").end(XlUp).row 'Si la valeur est numérique if isnumeric(Range("F" & i).value) then 'On divise par 100 Range("F" & i).value = Range("F" & i).value / 100 end if Next i End Sub

---

Bonjour

Coucou Tototiti

Si la macro n'est pas indispensable, tu peux aussi

• taper 100 dans une cellule hors de ton tableau
• sélectionner cette cellule et la copier
• sélectionner ta colonne de valeurs à diviser
• collage spécial, en cochant division

Les valeurs non numériques ne bougeront pas.

Edit : sinon une astuce donnée par Philippe Tulliez pour éviter de se poser des questions sur le nombre de lignes

Code:

---

ActiveSheet.Rows.Count

---

à la place de 65536 ou 1000000, et quelques, est pratique