VBA - Remplacer le contenu d'une cellule par une autre (nom-> intitiales)

Version imprimable

26/04/2018, 15h57
flophijules

1 pièce(s) jointe(s)

VBA - Remplacer le contenu d'une cellule par une autre (nom-> intitiales)

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 !)

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 :aie:
Bonne continuation

Code:

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

26/04/2018, 18h11
Menhir

Citation:

Envoyé par flophijules

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

Code:

=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.

Citation:

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. :mrgreen:
26/04/2018, 19h01
BENNASR

Bonsoir Menhir, la forum

Citation:

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.

:aie: :bravo:
26/04/2018, 19h03
Transitoire

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

Code:

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

Cordialement 8-)
26/04/2018, 19h58
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) ;)
27/04/2018, 08h05
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é...

Bonjour à tous

Citation:

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:

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

03/05/2018, 11h42
flophijules

bonjour à tous,
je reviens vers vous car après réflexion, je ne peux pas "créer" les initiales : la table de noms d'access est bien spécifique. Il peut arriver que deux personnes aient les mêmes initiales et dans ce cas, leur trigramme a été modifié sous ACCESS. Exemple :
André DUPONT -> ADU
Alexandre DUMAS ->ALD
du coup, le code proposé ne peut pas s'appliquer :calim2:
j'ai tourné ça dans tous les sens, la procédure à appliquer qui me semble correcte :
1- rechercher le nom dans la table des noms
2- récupérer le trigramme correspondant depuis la table des noms
3- remplacer le nom par son trigramme

séparement, ça me semble faisable avec mes petits moyens (recherchev, remplace) mais alors combiné?? je sèche totalement !
si une bonne âme pouvait avoir pitié de moi ....
Un grand merci par avance pour le temps que vous voudrez bien m'accorder
03/05/2018, 11h51
BENNASR

Bonjour
si vous parlez du code que j'ai proposé il suffit de modifier ça :

Code:

.Cells(j, 2) = Left(Tableau(0), 2) & Left(Tableau(1), 1)
03/05/2018, 14h47
flophijules

1 pièce(s) jointe(s)

j'ai tenté votre code mais j'ai du faire une erreur de manip parce que ça ne donne pas le résultat escompté ...
Je joins à nouveau le fichier avec des explications dedans en espérant que ce soit plus clair ?
En tout cas, vous m'êtes d'un grand secours, je vous en remercie tous :)

re
il y a les filtres élaborés que je maitrise pas ... ce qui recommande les grands Monsieur de ce site
mais à mon niveau de débutant VBA je propose ce ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 Dim plage As Range
  Dim cell As Range
  Dim j As Long
   Set plage = Sheets("Table de TRIGRAMMES").Range("A2:A" & [A65536].End(xlUp).Row)
  With Sheets("Feuil2")
  j = .Range("A" & Rows.Count).End(xlUp).Row
  For j = 1 To j
    For Each cell In plage
        If .Cells(j, 4) = cell.Value Then
           .Cells(j, 4) = Sheets("Table de TRIGRAMMES").Cells(cell.Row, 2)
            End If
    Next cell
    Next j
    End With
End Sub

et sans passer par une feuille de correspondance ("Table de TRIGRAMMES")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    With Sheets("feuil2") ' à adapter le nom de ton onglet ou se trouve les noms
    j = .Range("D" & Rows.Count).End(xlUp).Row  
    For j = 2 To j ' de la ligne 1 au dernière ligne non vide
    Tableau = Split(.Cells(j, 4), " ")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
     .Cells(j, 4) = Left(Tableau(0), 1) & Left(Tableau(0), 2)
    Next j
    End With
End Sub

03/05/2018, 18h13
Qwazerty

Bonjour

Si j'ai bien compris, la correspondance entre Nom+Prénom et trigramme se trouve dans une base de données Access.

Je vois deux solutions
Soit continuer avec excel et il va falloir obtenir de la base Access la table faisant apparaitre la correspondance Nom - Trigramme
Soit faire directement votre formulaire sur Access si vous avez la main sur fichier Access en question.

Excel propose, dans l'onglet Données, de réaliser des liens vers des table contenu dans un fichier Access. Il serait donc potentiellement possible de faire un lien vers la table contenant les correspondances pour que celle-ci apparaisse dans un onglet du fichier Excel.

++
Qwaz
03/05/2018, 23h54
eriiic

Bonjour,

Citation:

Sachant que j'ai environ 30 noms possibles, je ne peux pas faire une formule "si" aussi longue

Pas vraiment besoin de vba :

Code:

=INDEX('TABLE DES NOMS'!A:A;EQUIV("nom#5";'TABLE DES NOMS'!B:B;0))

Et si tu inverses tes colonnes ABREVIATION et NOM ENTIER un simple Recherchev() suffit :

Code:

=RECHERCHEV("nom#5";'TABLE DES NOMS'!A:B;2;FAUX)

Ce sont des fonctions à connaitre absolument.
eric
04/05/2018, 10h36
flophijules

1 pièce(s) jointe(s)

bonjour à tous,
Je vous remercie pour vos réponses. Pour autant, lorsque je rentre la formule qu'Eriiic m'a donnée, j'ai un "#N/A" .... qu'est ce que je fais de travers ???
04/05/2018, 11h17
Qwazerty

Code:

=INDEX('Table de TRIGRAMMES'!B:B;EQUIV([NOM];'Table de TRIGRAMMES'!A:A;0))
04/05/2018, 11h22
flophijules

MERCI MERCI MERCIIIIIII !!!!!!!!!!!!!!!!!! enfin ça fonctionne !! vous avez sauvé ma santé mentale :mrgreen: