le principe; tu prends la partie entière de la valeur divisée par 100 (te supprimes les deux derniers chiffres)
et tu multiplies par 100.. pour obtenir deux zeros à la fin
Bonjour,
une possibilité brut de décoffrage à adapter et peaufiner de ton côté :
Code:
Sub a()
Dim Plage As Range, c As Range
Set Plage = Range("A1:A11")
For Each c In Plage
c = Application.WorksheetFunction.Replace(c.Text, Len(c) - 1, 2, "00")
Next c
End Sub
Merci beaucoup, cependant quand je la colle dans visual basic, elle ne fonctionne pas. Et je ne suis pas assez compétent pour la peaufiner ^^. Ma colonne en question est la colonne C.
Autant pour moi cela fonctionne ! mais je suis obliger de noter la ligne où le dernier chiffre de la colonne apparait sinon ca ne fonctionne pas. Par exemple ("A1:A47) si j ai 47 lignes sinon cela ne fonctionne pas.
Autant pour moi cela fonctionne ! mais je suis obliger de noter la ligne où le dernier chiffre de la colonne apparait sinon ca ne fonctionne pas. Par exemple ("A1:A47) si j ai 47 lignes sinon cela ne fonctionne pas.
Tu peux nommer ta plage de manière dynamique en utilisant la fonction DECALER
Code:
=DECALER(Feuil1!$C$1;;;NBVAL(Feuil1!$C:$C))
Nommer cette plage "Plage" et utiliser le nom défini dans ta macro (à la place de Range("A1:A11") placer Range("Plage").
Autre solution cette fois dans le code : définir la dernière ligne de ta plage avant la boucle For Each...Next :
Code:
Dim DerLigne As Long
DerLigne = Range("C" & Rows.Count).End(xlUp).Row
Set Plage = Range("C1:C" & DerLigne)
euh.. ma macro ne te plaisait pas?
à priori. elle cherche directement le nombre de lignes que tu veux dans la colonne, et fait la modif..
c'est juste qu'elle travaille sur la colonne A, vu que sans fichier exemple de ta part. il faut bien en choisir une..