Discussion :

[-Lys-]

Bonjour,

Je possede un tableau excel avec des valeurs numeriques sur 6 digits dans la colonne B. Le nombre de ligne de la colonne est indefinie.
Je cherche à faire une macro VBA qui pour une valeur donnée, reécrit la cellule avec un format définit et un nombre de caractere different (Passage de 6 à 8 caractères).

Par exemple :
Soit en B1 la valeur 669988, je cherche moi à remplacer cela par la valeur 00669988 (Format text pour conserver les 0 dans la cellule)
Soit en B2 la valeur 667785, je cherche moi à remplacer cela par la valeur 00667785 (Format text pour les même raisons)
Etc... jusqu'a la premiere cellule vide de la colonne B

Question subsidiaire : Je debut en VBA, et je voudrai savoir si vous connaissez certains tutoriels que vous recommanderiez?

Cordialement,

G.

[nibledispo]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
 
Sub b1()
derlig = Range("b65500").End(xlUp).Row
For i = 1 To derlig
Range("b" & i).NumberFormat = "@"
Range("b" & i) = "00" & Range("b" & i)
Next
End Sub

Il y a peut-être plus simple.

Ce site regorge de tutoriels. Voir :

http://excel.developpez.com/cours/?page=prog

cordialement,

[-Lys-]

Un grand merci pour ce petit bout de code qui vient de resoudre mon problème.
Pourrais je abuser un peu de ta gentillesse et te demander si tu peu m'expliquer son fonctionnement pas à pas par des commentaire dans le code?
Ca me permettrai de l'assimiler et qui sait, peu etre de pouvoir reexploiter cela differement pour un autre problème dans le futur.

Cordialement

G.

[nibledispo]

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
 
Sub b1()
derlig = Range("b65500").End(xlUp).Row ' VBA se positionne sur la cellule éloignée 65500 et remonte à la première cellule occupée ( c'est à dire la dernière ligne du fichier "Up'). 
' enfin il mémorise le numéro de la ligne dans derlig (row).
' d'autres méthodes sont possibles (par exemple avec roxs.count qui renvoie la dernière ligne Excel).
 
For i = 1 To derlig ' Boucle de la première ligne à la dernière ligne du fichier.
' Attention si tu rajoutes un entête à ta ligne, commencer à 2.
 
    Range("b" & i).NumberFormat = "@" ' attribue un format général "string" à la cellule traitée (colonne "b" ligne "i").
 
    Range("b" & i) = "00" & Range("b" & i) ' la chaine de caractères "00" précède le contenu de la cellule traitée ("&" signifie concaténation).
 
Next i ' (suivant) VBA sort de la boucle lorsque "derlig" est atteint
 
End Sub

Cordialement,