Probleme simple en VBA

Question

Bonjour,

Je cherche à créer un programme qui puisse copier le premier mot d'une cellule et le copier dans une seconde.

Ex : ma colonne A contient une série de NOM et PRENOMS dans chaque cellule. Comment ne sélectionner et copier que le nom pour le coller dans la colonne B ?

Merci d'avance pour votre aide. 

Pierre

eriiic · Answer

Bonsoir,

Et tu veux absolument en VBA ?
Une simple formule suffit sinon....
eric

Pierre · Answer

Ok la formule m'intéresse (sachant que les noms et les prénoms n'ont pas tous la même longueur d'une cellule à l'autre).

La réponse en VBA m'intéresse également si certains savent comment faire.

eriiic · Answer

Re,

par formule :
=GAUCHE(A1;CHERCHE(" ";A1)-1)
à recopier vers bas

en vba :
Sub nom()
    Dim c As Range
    For Each c In Range([A1], [A65536].End(xlUp))
        c.Offset(0, 1) = Split(c, " ")(0)
    Next c
End Sub

Dans les 2 cas il faut que les noms composés aient un autre caractère que l'espace vu que la découpe se fait au 1er espace.

eric

Probleme simple en VBA

3 réponses

Discussions similaires

Newsletters