Discussion :

[HINDI58]

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 :

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

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.

[tototiti2008]

Bonjour Hindi,

il y a plus de 66 000 lignes

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

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 :

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

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

[78chris]

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 :

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

ActiveSheet.Rows.Count

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