Discussion :

[flophijules]

Bonjour,
Sous excel 2016, j'ai créé un tableau d'après un formulaire à remplir. Dans le tableau généré grâce à ce formulaire, j'ai une colonne "nom" qui affiche le nom complet. Je dois ensuite remplacer le nom par les initiales (pris dans l'onglet "table des noms) afin de pouvoir exporter sous access (car dans la table access, ce sont les initiales qui sont en clé primaire). Sachant que j'ai environ 30 noms possibles, je ne peux pas faire une formule "si" aussi longue, je crois...
Je voulais donc créer une macro qui remplacerait le nom par les initiales mais je sèche sur le code VBA à écrire. Je vous remercie par avance pour votre aide (et votre patience !)

[BENNASR]

Bonsoir
dans l'hypothèse que le nom complet se compose d'un nom et un prénom séparé par une espace tu peux procéder de la façon suivante
Attention je suis aussi débutant VBA et c'est du bricolage
Bonne continuation

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
17
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    Dim t As Integer
    With Sheets("feuil1")
    j = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To j
    Tableau = Split(.Cells(j, 1), " ")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
    .Cells(j, 2) = Left(Tableau(0), 1) & Left(Tableau(1), 1)
 
    Next j
    End With
End Sub

[Menhir]

Je dois ensuite remplacer le nom par les initiales (pris dans l'onglet "table des noms)

Code :

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

=STXT(A1;1;1)&STXT(A1;TROUVE(" ";A1);1)

Cette formule ne gère pas les cas de prénoms ou noms composés.
Mais comme tu ne dis rien sur le format de ces "initiales", je fais au plus simple.

dans la table access, ce sont les initiales qui sont en clé primaire.

Mauvaise idée.
Vu le faible nombre de cas possible, l'occurrence d'initiales identiques pour deux personnes différentes est loin d'être nulle.
J'espère que ton système ne sert pas à gérer les heures sup ou les récupérations de congés, sinon tu risques d'avoir un "mouvement social" d'ici peu.

[BENNASR]

Bonsoir Menhir, la forum

J'espère que ton système ne sert pas à gérer les heures sup ou les récupérations de congés, sinon tu risques d'avoir un "mouvement social" d'ici peu.

[Transitoire]

Bonsoir menhir,
J'ai essayé votre formule, elle ne donne pas les initiales, je crois que vous avez oublié +1

Code :

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

=STXT(A1;1;1)&STXT(A1;TROUVE(" ";A1;1)+1;1)

Cordialement

[unparia]

Bonjour
Gaffe toutefois à ne pas entrer en un drôle de conflit éventuel avec la propriété TwoInitialCapitals de l'objet Autocorrect
(on m'a déjà "fait le coup" sur un forum anglophone)

[flophijules]

Bonjour à tous et merci pour vos réponses
j'ai une petite question complémentaire : comment je définis la plage de données (table noms) dans vos formules ? je n'arrive pas à comprendre le code que vous m'avez donné...

[BENNASR]

Bonjour à tous

j'ai une petite question complémentaire : comment je définis la plage de données (table noms) dans vos formules ? je n'arrive pas à comprendre le code que vous m'avez donné...

quel code??
si vous parlez de ça : =STXT(A1;1;1)&STXT(A1;TROUVE(" ";A1;1)+1;1) : à mettre en colonne B ou C ou n'importe elle te porte les initiales du nom figurant dans la colonne A et vous copiez la formule vers le bas et tu aura ce que tu cherches
pour le code que j'ai proposé

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
17
18
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    Dim t As Integer
    With Sheets("feuil1") ' à adapter le nom de ton onglet ou se trouve les noms
    j = .Range("A" & Rows.Count).End(xlUp).Row  ' cherche la dernière ligne non vide de la colonne A de ton onglet ou se trouve les noms (dans notre cas s'appelle feuil1
    For j = 1 To j ' de la ligne 1 au dernière ligne non vide
 'collecte dans un tableau ; les noms inscrits dans la colonne A et qui sont séparés par un espace
    Tableau = Split(.Cells(j, 1), " ")
    For i = 0 To UBound(Tableau) 
        Debug.Print Tableau(i)
    Next i
'enregistrer dans la colonne B (.cells(j,2) la première lettre du premier nom concatener avec la première lettre du deuxième nom trouvé
    .Cells(j, 2) = Left(Tableau(0), 1) & Left(Tableau(1), 1)
    Next j
    End With
End Sub

BONNE CONTINUATION