Macro

[Christian]

Bonjour,
Je suis débutant en VBA, je souhaiterai réalisé une macro qui puisse par exemple prendre la valeur d'une cellule, (en l'occurence les 6 premieres lettres du nom d'une personne) et placer chaque lettre dans une cellule particulière.
Merci de l'aide que vous pouvez m'apporter.
Dernière chose, ce site est génial.
Christian

 

[Ti]

en fait, tu n'as pas besoin de macro, Excel le fait très simplement avec la fonction STXT. Ex :

=STXT($A$1;1;1) pour récupérer le premier caractère du texte en A1
=STXT($A$1;2;1) pour le 2ème
=STXT($A$1;3;1) pour le 3ème
etc.

 

[Mytå]

Bonjour le forum

Christian si tu veux vraiment une macro en voici une

Option Explicit
Sub extraire_caracteres()
Dim i As Double, j As Double
Dim valeur As String
For i = 1 To Range("a65535").End(xlUp).Row
valeur = Cells(i, 1)
For j = 1 To 6
Cells(i, j + 1).NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Cells(i, j + 1) = Mid(valeur, j, 1)
Next j
Next i
End Sub

Copie 6 premieres lettres des colonnes "A" dans les colonnes "B;C;D;E;F;G"

Mytå

 

[Christian]

Merci Ti.
Tu me soulage, une dernière chose si possible, pour forcer Excel à ecrire les lettres en majucule sans intervention au clavier.
Macro ou pas Macro?
Merci de ta réponse.
Christian.

 

[Ti]

pas macro, il y a la fonction MAJUSCULE qui fait cela aussi.
ça donnera =MAJUSCULE(STXT($A$1;1;1))

 

[Christian]

Merci de nouveau Ti pour ton aide precieuse ainsi que Myta.