none
Couper noms et prenoms RRS feed

  • Question

  •  Bonjour a tous,

    Je ici une macro qui separe le nom de famille et le prenoms contenues dans une seule colonne.

    elle fonctionne bien autant et aussi longtemps que je declare la cellule de depart et fin manuellement

    "Range("A1", Range("A65536").End(xlUp))" , alors que faire si les noms sont dans une autre colonne, sans avoir a changer

    cette partie du code manuellement?

    Merci de votre aide

    Dante

      

    Sub Split_names()

    Dim c As Range, Plage As Range, Tablo

    If Selection.Rows.Count = ActiveSheet.Rows.Count Then

        Set Plage = Range("A1", Range("A65536").End(xlUp))

        For Each c In Plage

            Tablo = Split(c)

            c.Offset(, 1) = Tablo(UBound(Tablo))

            Tablo(UBound(Tablo)) = ""

            c.Offset(, 2) = Join(Tablo)

        Next c

    Else

        MsgBox "Svp, selectionner la colonne qui contient le nom a traiter", vbInformation, "Separer noms et prenoms"

    End If

    End Sub

    mercredi 8 juin 2011 14:42

Réponses

  • bonjour,
     
    Set plage = Application.InputBox(prompt:="Faite votre sélection", Type:=8)
    MsgBox plage.Parent.Name & "!" & plage.Address 'test
     --
    isabelle
     
     
    • Marqué comme réponse PointMicro vendredi 10 juin 2011 13:57
    vendredi 10 juin 2011 01:38

Toutes les réponses