Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 678 fois - Téléchargée 28 fois
nblignes = ActiveSheet.UsedRange.Rows.Count 'compte le nombre de lignes de la feuille active For c = 17 To 24 'définit les colonnes surlesquelles se feront les modifications For j = 1 To nblignes 'définit les lignes surlesquelles se feront les modifications ' tai = Len(Cells(j, c)) 'compte le nombre de caractères sep = Mid(Cells(j, c), tai - 2, 1) 'identifie le séparateur de décimale, se trouvant 3 caractères avant la fin (pour un nombre avec 2 chiffres après la virgules, si plus remplacer le 2 par ce nombre de chiffres apres la virgule) If sep = "." Then 'pour que la modif ne se fasse que si on trouve un . gauche1 = Left(Cells(j, c), tai - 3) 'sélectionne tous les caractères à gauche du séparateur droite2 = Right(Cells(j, c), 2) 'sélectionne tous les caractères à droite du séparateur Cells(j, c) = gauche1 & "," & droite2 'concatène la partie gauche, le séparateur voulu et la partie droite Cells(j, c) = Cells(j, c) + 0 'active la cellule en tant que nombre End If Next j Next c
16 nov. 2006 à 18:15
demande moi par MP si les raisons ne te semblent pas évidentes
++
16 nov. 2006 à 14:28
16 nov. 2006 à 14:25
16 nov. 2006 à 13:09
Et pour les options régionales: (petite fonction faite avec renfield)
http://www.codyx.org/snippet_modifier-separateur-decimale-options-regionales-linguistiques_264.aspx
(pas noté)
16 nov. 2006 à 02:36
Voici un bout de code, de niveau débutant, et que tu aies une ou 65535 x 256 cellules remplis, il met une seconde ;)
With Application
.UseSystemSeparators = False
.DecimalSeparator = "."
End With
++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.