supprimer le contenu d'une cellule après deuxième mot

Hulk

XLDnaute Barbatruc

• 22 Septembre 2009

• #2

Re : supprimer le contenu d'une cellule après deuxième mot

Hello,

Supposons que ton nom soit en A1, essaie comme ceci en B1 à tirer vers le bas..

Code:

=(GAUCHE(A1;CHERCHE(" ";A1)))

A tester.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 22 Septembre 2009

• #3

Re : supprimer le contenu d'une cellule après deuxième mot

Re,

Autant pour moi, avec cette formule, il ne prend pas en compte le premier prénom.

Il te faut une formule un poil plus complexe, dont je laisse le soin aux maestros d'y remédier.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 22 Septembre 2009

• #4

Re : supprimer le contenu d'une cellule après deuxième mot

Re,

Essaie celle-là, toujours en B1 et ton nom en A1 !

Code:

=GAUCHE(A1;CHERCHE(" ";A1;1))&STXT(A1;CHERCHE(" ";A1;1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1;1)+1)-CHERCHE(" ";A1;1))

Cdt, Hulk.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 23 Septembre 2009

• #5

Re : supprimer le contenu d'une cellule après deuxième mot

Bonsoir chac-attack, Hulk

Message supprimé.​

ROGER2327

Premier Vendémiaire CCXVIII
Bonne année !​

 

Dernière édition: 23 Septembre 2009

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 23 Septembre 2009

• #6

Re : supprimer le contenu d'une cellule après deuxième mot

Bonjour,

si les mots sont tous séparés par 1 espace, macro à adapter :

Code:

Sub N_P()
   For Each C In [I]plage[/I] [COLOR=SeaGreen]'à définir[/COLOR]
     Nom$ = Left(C, InStr(C, " "))
     Prenom$ = Right(C, Len(C) - Len(Nom))
     [I]C.Offset(, 1) [/I]= Nom & " " & Left(Prenom, InStr(Prenom, " ")) [COLOR=SeaGreen]'à définir[/COLOR]
   Next
 End Sub

 

Dernière édition: 23 Septembre 2009

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 23 Septembre 2009

• #7

Re : supprimer le contenu d'une cellule après deuxième mot

Bonjour, salut aux autres,

Ou bien ceci :
=GAUCHE(A1;CHERCHE("#";SUBSTITUE(A1;" ";"#";2))-1)

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 23 Septembre 2009

• #8

Re : supprimer le contenu d'une cellule après deuxième mot

Bonjour,

Voici une fonction

Code:

Function extract_nom(lc, nb)
Application.Volatile
tmp = Split(lc, " ")
For b = 1 To nb
    nom = nom & " " & tmp(b - 1)
Next
extract_nom = Trim(nom)
End Function

le second argument est le nombre mot que tu souhaites (ici 2)

cette fonction peut être utilisée directement dans la feuille ou par une autre macro

Macro que demandait chac-attack

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 23 Septembre 2009

• #9

Re : supprimer le contenu d'une cellule après deuxième mot

Bonjour à tous

Une autre solution par formule

Code:

=GAUCHE(A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-1)

A plus

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 23 Septembre 2009

• #10

Re : supprimer le contenu d'une cellule après deuxième mot

Bonsoir à tous

Message supprimé.​

ROGER2327

 

Dernière édition: 23 Septembre 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Septembre 2009

• #11

Re : supprimer le contenu d'une cellule après deuxième mot

Re-bonsoir à tous

Pas si simple que ça en a l'air, cette affaire là !

Code:

[COLOR="DarkSlateGray"]Function coupe(ch As String, Optional cr As Integer = 1) As String
Dim s, i As Long
   Application.Volatile
   s = Split(Trim(ch))
   For i = 0 To UBound(s)
      coupe = Trim(coupe & Space(1) & s(i))
   Next i
   s = Split(coupe, , cr + 1)
   coupe = Empty
   For i = 0 To Application.Min(cr - 1, UBound(s))
      coupe = Trim(coupe & Space(1) & s(i))
   Next i
End Function[/COLOR]

Regroupement des diverses solutions dans le fichier joint.​

Bonne nuit.
ROGER2327

 

Pièces jointes

• chac-attack_sous-chaine.zip

  12.2 KB · Affichages: 80

Vote positif 0 Vote négatif