Probleme simple en VBA

Fermé
Pierre - 4 août 2009 à 20:39
eriiic Messages postés 24581 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 juin 2024 - 4 août 2009 à 21:17
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
A voir également:

3 réponses

eriiic Messages postés 24581 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 juin 2024 7 222
4 août 2009 à 20:43
Bonsoir,

Et tu veux absolument en VBA ?
Une simple formule suffit sinon....
eric
0
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.
0
eriiic Messages postés 24581 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 juin 2024 7 222
4 août 2009 à 21:17
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
0