castor30
XLDnaute Occasionnel
Bonjour,
Je suis avec Excel 2003
Le code ci-après réalisé par vgendron, fonctionnait très bien, mais voilà, j'ai du insérer 3 colonnes dans la feuille Base et du coup mon champ nommé "MaListNom" est inutile. J'ai donc nommé mes champs "NomPrenom" & "Tel"
Mais peut-on concaténer deux champs nommé...?
Comment modifier le code...?
Je vous remercie pour l'aide et vos connaissances que vous m'apporterez.
Je suis avec Excel 2003
Le code ci-après réalisé par vgendron, fonctionnait très bien, mais voilà, j'ai du insérer 3 colonnes dans la feuille Base et du coup mon champ nommé "MaListNom" est inutile. J'ai donc nommé mes champs "NomPrenom" & "Tel"
Mais peut-on concaténer deux champs nommé...?
Comment modifier le code...?
Je vous remercie pour l'aide et vos connaissances que vous m'apporterez.
Code:
Sub Import() ' Code de vgendron - Coller à partir de A2 puis une ligne sur deux dans Visite OKOK
If Range("A2") <> "" Then Range("SupImport").Clear
Sheets("Base").Select
For I = 1 To Range("MaListNom").Rows.Count Step 1 ' remplacé par ("NomPrenom") + ("Tel enC2")
With Sheets("Visite")
If .Range("A2") = "" Then ' ("Tel enC2")
Range("MaListNom").Rows(I).Copy Destination:=.Range("A2") ' ("Tel enC2")
Range("MaListAdresse").Rows(I).Copy Destination:=.Range("A3")
Else
Range("MaListNom").Rows(I).Copy Destination:=.Range("A65536").End(xlUp).Offset(1, 0)
Range("MaListAdresse").Rows(I).Copy Destination:=.Range("A65536").End(xlUp).Offset(1, 0)
End If
End With
Next I
Sheets("Visite").Select
Application.CutCopyMode = False
End Sub