VBA , Slection d'une colonne

yata -  
 yata -
Bonjour,
voilà j'utilise ce code pour selectionner une colonne remplis!
 Set maplage = ws.Range("H2:H" & ws.Range("H65536").End(xlUp).Row)


je cherche à l'adapter selon un numéro de colonne!
par exemple
 numcolonne = rResult.Column

si numcolonne donne "5" je voudrais pouvoir selectionner la colonne 5 (ou E) comme aupparavant

merci

4 réponses

  1. yata
     
    j'ai essayer pleins de varainte du style :

    Set maplage = ws.Range(numcolonne).End(xlUp)

    Set maplage = ws.Range((numcolonne) & " : " & Range(numcolonne).End(xlUp).Row)

    Set maplage = ws.cells(numcolonne).End(xlUp)

    et encore plein d'autre mais cela ne fonctionne pas
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour
    XL<2007
    derlig=ws.cells(65536,1).end(xlup).row
    set plage=ws.range(cells(1,numcol),cells(derlig,numcol))
    0
  3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Salut,
    C'est assez tordu mais ça fonctionne :
    Dim derlig As String
    derlig = Cells(65536, 5).End(xlUp).Row
    ActiveSheet.Range(Cells(1, 5), Cells(derlig, 5)).Select
    0
  4. yata
     
    merci de m'avoir répondus
    j'étais plus ou moin sur la même piste

    j'allais vous refaire un petit poste en disans que ca ne marchais pas:p
    puis je me suiis rendus compte que j'étais à l'ouest car la premiere solution de michel fonctionne mais je n'avais pas mit mon ws.
    puis celle de pijaku j'avais laisser le selest dans mon set maplage

    enfin voilà

     derlig = ws.Cells(65536, numColonne).End(xlUp).Row
     Set maplage = ws.Range(ws.Cells(2, numColonne), ws.Cells(derlig, numColonne))


    fonctionne correctement ! grand merci à vous
    0