Discussion :

[mentat]

Bonjour,

Je sollicite votre aide pour un petit problème de "."

Alors voilà j'ai effectuer une petite macro pour me remplacer tout les "." d'une sélection ","

Cela donne:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
With Selection.Application
.DecimalSeparator = ","
.ThousandsSeparator = "-"
.UseSystemSeparators = False
End With
End Sub

Le code fonctionne... enfin presque.

Si le point à modifier à été effectuer avec la touche approprier du pavé numérique le changement s'effectue. Seulement si il est fait avec la touche du ; il ne se passe rien.

Les catégories des formats des cellules sont pourtant identique.

Pourriez vous m'aidez?

Merci

[zazaraignée]

Je ne vois pas en quoi un point et un point et un point-virgule sont comparables.

ou alors, je n'ai rien compris.

[Godzestla]

Zazaraignée,

ou alors, je n'ai rien compris.

Salut,

tu n'as rien compris . Sur les claviers Belges (et Français aussi je suppose) la touche ; donne un . en mode majuscule.

mais pour moi . fait avec le pavé numérique ou pas , c'est un point.

[mentat]

Je ne me suis peut etre mal exprimé je donne un exemple.

Je cherche à remplacer les points par une virgule.

Seulement j'ai remarquer que le code fonctionne ou non selon la touche du clavier utiliser pour faire le signe "."

Avec la touche . du pavé numérique mon code fonctionne et donne:

1499.45 ===> 1499,45

mais

Avec la touche . de la touche ; de mon clavier le code ne fonctionne pas:

1499.45 ===> 1499.45

Merci de ton aide.

[Godzestla]

Question peut-être idiote ?
Es-tu bien certain(e) que quand tu utilises la touche ; ton résultat est bien numérique et pas string ?

cela pourrait venir de là

[mentat]

Haha c'est ça.

Et comment puis-je définir ma plage de cellule en numérique.

[Godzestla]

Tu marques la plage, clic-droit --> format cells (désolé mon excel est anglais) --> Number, number.

il est possible que tu doives passer tes cellules en revue 1 par une en faisant par exemple <F2> dessus puis enter pour resaisir.

Autre solution. Tu utilises l'icone format Painter (gros pinceau) depuis une cellule bien formattée, vers les mal formattée.

[mentat]

Merci, mais cela ne fonctionne pas en changeant le format de la cellule en nombre.

Et pour 100 cellules à faire à la main ça ne m'intéresse pas c'est pour cela que j'essaye d'automatiser mes taches en vba.

Merci de ton aide je continue à chercher.

[Godzestla]

Il faut encore vérifier qu'il n'y a pas de quote avant ton nombre dans la cellule et tu peux aussi tenter après avoir changer le format en nombre de faire un copier des cellules sur elles même mais avec un collage spécial "Value" plutot qu'un coller.

[zazaraignée]

Zazaraignée,

Salut,

tu n'as rien compris . Sur les claviers Belges (et Français aussi je suppose) la touche ; donne un . en mode majuscule.

mais pour moi . fait avec le pavé numérique ou pas , c'est un point.

Hé! bé oui! puisque j'ai un clavier américain (qwerty) et que Maj + ; donne :

Y'a pas... on a beau tous être francophones, y'aura toujours un problème de langue entre nous.

[Godzestla]

Hihi,

mais vous avez la chance d'avoir Céline et René que pour vous.

[mentat]

Enfin trouver sous condition de répéter pour chaque colone...

Code :

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

1
2
3
4
Selection.TextToColumns Destination:=Range("B20"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True

Merci