Discussion :

[aviat3ur]

Bonjour à tous,

je débute sur VBA et je cherche à faire une macro tel que :
Dans ma colonne A j'ai 4 données différentes dans toute la colonnes tel que "nicolas" "clémence" "andrey" "damien" et en fonction du prénom je suis attribuer une lettre N,C,A,D pour chaque prenom respectif dans la colonne C.

J'ai reussi pour une cellule mais pour faire toute les cellules automatiquement je n'y arrive pas. J'essaye des choses en vain avec la boucle "for each" et "if"

Pouvez vous m'aider à éclaircir le sujet merci d'avance.

[DeTraX]

Bonjour,

En remplaçant NomOnglet par le nom de ton onglet de données

Code :

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

1
2
3
4
5
6
7
8
 
Dim noRow As Integer : noRow = 1
With Sheets("NomOnglet")
    While .Cells(noRow,1) <> ""
        .Cells(noRow, 3) = UCase(Left(.Cells(noRow,1), 1))
        noRow = noRow + 1
    Wend
End With

Ceci pour te donner la réponse en VBA puisque visiblement il s'agit d'un exercice pour débuter le langage.
Mais pour ce genre de formule, une formule Excel me semble plus appropriée.

[Kaëléphine]

Bonjour aviat3ur,

Si je suis bien ton problème je vois pas pourquoi tu utilise le vba.

Pour faire simple tu écrit dans ta cellule C1 :

Code :

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

=GAUCHE(A1;1)

ainsi tu obtiendra la première lettre de la colonne A. tu tire ta formule vers le bas et c'est bon.

Maintenant si tu veux vraiment automatisé cela avec du vba la macro DeTrax marche bien. tu peux aussi utilisé ça pour remplacer la ligne de ça boucle:

Code :

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

Range("C" & noRow).value = Mid(Range("A" & noRow).Value,1,1)

on aurait aussi pu utilisé une for du style :

Code :

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

for i = 1 to nbElement

avec un peux plus haut dans le code

Code :

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

nbElement = Application.WorksheetFunction.CountA(Range("A:A))

Et il y a surement d'autre façon de le faire