XL 2010 RESOLU Extraction par macro des initiales de chaque mot d'une cellule active

M

max.lander

XLDnaute Occasionnel

• 3 Août 2016

• #2

Salut à tous,

Jozerebel avec ce bout de code dans un module feuille !

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


ActiveCell.Value = Left(ActiveCell.Value, 2)




End Sub

 

Dernière édition: 3 Août 2016

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 3 Août 2016

• #3

Bonjour jozerebel, max.lander,

un autre essai

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim TabTemp, i As Integer, Chaine As String

TabTemp = Split(Target, " ")
For i = LBound(TabTemp) To UBound(TabTemp)
    Chaine = Chaine & Left(TabTemp(i), 1) & " "
Next
Target = Chaine
End Sub

A+

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 3 Août 2016

• #4

Le code de Paf correspond plus à la demande de jozerebel, je suis parti sur les deux premières lettre sans me préoccuper des initiales c'était trop simple 🙁

Bravo Paf !

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 3 Août 2016

• #5

Coucou,

Je reviens concurrencer Paf avec une nouvelle tentative ! 😉

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Dim Lg, i As Integer, Initiale As String, Cible As Variant

Cible = ActiveCell.Value



Lg = Len(Cible)
Initiale = Left(Cible, 1)
If Lg > 2 Then
For i = 2 To Lg
If Mid(Cible, i - 1, 1) = " " Then
Initiale = Initiale & Mid(Cible, i, 1)
End If
Next i
End If

ActiveCell.Value = Initiale







End Sub

A+

 

Dernière édition: 3 Août 2016

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 3 Août 2016

• #6

re

Attendons les précisions de jozerebel quant à l'éventuel séparateur d'initiales, et aux restrictions de plage de cellules où cliquer .....

Par ailleurs, Target et ActiveCell représentent le même range.
donc le test If Not Application.Intersect(Target, ActiveCell) Is Nothing Then sera toujours vrai!!

A+

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 3 Août 2016

• #7

C'est corrigé merci Paf 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Août 2016

• #8

Bonsoir à tous

Juste en passant, pour info
TabTemp = Split(Target, " ")
peut s'écrire
TabTemp = Split(Target)
l'espace étant le séparateur par défaut de Split

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 3 Août 2016

• #9

Merci Ce lien n'existe plus

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 3 Août 2016

• #10

Bonsour®

jozerebel à dit:

Bonjour,

je souhaite par macro, et sur simple doucle clic, changer la valeur de la cellule activée par les initiales de chaque mot qu'elle contient...

Cliquez pour agrandir...

comme ceci peut-être ?

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim x$, i!
  x = Left(Target, 1)
  For i = 1 To Len(Target)
      x = x & IIf(Mid(Target, i, 1) = " ", Mid(Target, i + 1, 1), "")
  Next
  Target = UCase(x)
End Sub

 

Vote positif 0 Vote négatif

J

jozerebel

XLDnaute Occasionnel

• 4 Août 2016

• #11

Salut à tous !

Merci pour votre aide !!!!

Pour répondre à Paf :

Plage : Toutes les feuilles potentiellement du classeur
Séparateur : Espace ou "-" en cas de Nom et/ou Prénom composé.

Encore merci à vous tous !

je passe en résolu !

 

Vote positif 0 Vote négatif