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

**flophijules** · 26/04/2018, 15h57

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** · 26/04/2018, 17h17

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** · 26/04/2018, 18h11

Envoyé par flophijules

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** · 26/04/2018, 19h01

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** · 26/04/2018, 19h03

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** · 26/04/2018, 19h58

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** · 27/04/2018, 08h05

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** · 27/04/2018, 09h54

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

**flophijules** · 03/05/2018, 11h42

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

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

**BENNASR** · 03/05/2018, 11h51

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

Code :

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

.Cells(j, 2) = Left(Tableau(0), 2) & Left(Tableau(1), 1)

**flophijules** · 03/05/2018, 14h47

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

**BENNASR** · 03/05/2018, 15h04

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 :

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

**BENNASR** · 03/05/2018, 15h47

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

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

**Qwazerty** · 03/05/2018, 18h13

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

**eriiic** · 03/05/2018, 23h54

Bonjour,

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

Pas vraiment besoin de vba :

Code :

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

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

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

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

Ce sont des fonctions à connaitre absolument.
eric

**flophijules** · 04/05/2018, 10h36

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 ???

**Qwazerty** · 04/05/2018, 11h17

Code :

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

=INDEX('Table de TRIGRAMMES'!B:B;EQUIV([NOM];'Table de TRIGRAMMES'!A:A;0))

**flophijules** · 04/05/2018, 11h22

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager