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

[jozerebel]

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

Une aide charitable?

D'avance merci au fofo !

 

[max.lander]

Salut à tous,

Jozerebel avec ce bout de code dans un module feuille !

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


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




End Sub

 

[Paf]

Bonjour jozerebel, max.lander,

un autre essai

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+

 

[max.lander]

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 !

 

[max.lander]

Coucou,

Je reviens concurrencer Paf avec une nouvelle tentative !

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+

 

[Paf]

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+

 

[max.lander]

C'est corrigé merci Paf

 

[Staple1600]

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

 

[Paf]

Merci Ce lien n'existe plus

 

[Modeste geedee]

Bonsour®

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

comme ceci peut-être ?

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

 

[jozerebel]

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 !