Discussion :

[documentation]

Bonjour a tous,

j'ai une question qui je le pense est simple pour les non-débutants (a la différence de moi, qui suis débutant)

J'ai une petite macro qui m'arrondi des valeurs a 2 décimales
Le problème est que cette macro bug quand une des cases de la plage est vide

Je pense qu'il suffit de rajouter une petite ligne pour dire a excel de ne rien faire si la cellule est vide mais je ne sais pas quoi rajouter !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
arrondir ("e14:e3000")
 
End Sub
 
 
Sub arrondir(plage As String)
 
Dim c
 
For Each c In Range(plage)
 
        c.Value = Round(c.Value, 2)
 
    Next c
 
End Sub

A mon avis ca n'est pas grand chose mais j'ai besoin de votre aide !!

D'avance merci


Alexandre

[laetitia]

bonjour documentation le forum as tu essaye comme cela !!

Code :

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

1
2
3
4
5
6
7
For Each c In Range(plage)
 
if c <>"" then c.Value = Round(c.Value, 2)
 
Next c
 
End Sub

j ai pas mis le debut de ta macro a rajouter bonjour gorfael

[Gorfael]

Salut documentation et le forum
Pense à utiliser les balises de code (#)
Une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
arrondir ("e14:e3000")
End Sub
 
Sub arrondir(plage As String)
Dim c as range
For Each c In Range(plage)
     if not isempty(c) then c = Round(c, 2)
     'si non(C est vide) alors
     'if isnumeric(c) then c = Round(c, 2)
     'si c est un nombre alors
Next c
End Sub

A+

[documentation]

Salut a tous et merci de vos réponses

malheureusement j'ai toujours le même message d'erreur...

"incompatibilité de type"

[Gorfael]

Salut documentation et le forum

malheureusement j'ai toujours le même message d'erreur...

Où ? quand ? Comment ?
On ne sait pas ce que tu as testé.
Que contient réellement ta cellule (pas ce qu'elle affiche, son contenu)?
A+

[documentation]

En fait je viens de créer un nouveau classeur et de lancer la macro que tu viens de me donner et ca marche
une colonne avec 4 cellules dont une vide
Exemple
A1 = 1.56899
A2 =
A3 = 1.525522
A4 = 1.2

Avec un nouveau classeur et quelques valeurs simples ca marche


Pourtant, dans mon gros classeurs, avec des centaines de lignes et des centaines de colonnes ca ne fonctionne pas

En gros j'ai pas mal de décimales pour chaque valeurs contenues dans les cellules (les cellules contiennent des valeurs)
Et j'ai quelques cellules vides
Et je ne comprend toujours pas pourquoi mais ma macro n'aime pas les cases vides (alors que je viens de le faire pour un petit fichier et que ca marche !)

le message d'erreur quand je lance la macro est "incompatibilité de type"

[laetitia]

rebonjour le fil le forum as tu essaye de declarer ta variable en variant

Code :

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

1
2
3
Sub arrondir(plage As String)
en
Sub arrondir(plage As variant)

[Gorfael]

Salut documentation et le forum
tu demandes de résoudre un problème et ça marche
Si le problème existe toujours sur ton classeur => c'est que ça ne vient pas de la partie donnée à vérifier.
ça vient d'ailleurs, mais comme on a aucune idée de ton problème réel et aucune donnée... on va pas pouvoir t'aider!

Donnes nous les vraies macros si tu veux de l'aide
A+