IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Selection de 12 colonnes


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2006
    Messages
    300
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 300
    Par défaut Selection de 12 colonnes
    Bonjour

    Voilà, je ne sais pas comment faire voilà, des coordonnée s'inscrive dans la colonne A1 jusqu'a M1 donc j'aimerai que cette ligne la soit encadré donc j'ai utilisé la fonction

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(ActiveCell, ActiveCell.End(x1ToRight)).Select
    mais voilà, sachant que toutes les colonnes ne sont pas forcément remplie, la fonction cadre s'arrête dès que la cellule est vide, savez vous comment faire pour qu'elle fonction jusqu'a la colonne "M".
    cordialement

    Merci

  2. #2
    Membre Expert Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Par défaut
    Slt,
    si tes cellules sont toujours les mêmes il faut simplement mettre ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("feuil1").Range("A1:M1").Select
    ici remplace feuil1 par le nom de ta feuille.
    @+

    EDIT: Quand tu dis encadré, tu veux la séléctionner ou lui mettre une bordure? (pas pareil )

    si cela te convient n'oublie pas

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2006
    Messages
    300
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 300
    Par défaut
    Non, voilà, la premiere fois c'est la ligne 1 puis la 2 puis la 3 etc......

  4. #4
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(ActiveCell.Address & ":" & Range("IV" & ActiveCell.Row).End(xlToLeft).Address).Select

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2006
    Messages
    300
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 300
    Par défaut
    Peux tu m'expliquer ta formule
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(ActiveCell.Address & ":" & Range("IV" & ActiveCell.Row).End(xlToLeft).Address).Select
    a quoi correspond "IV"

    Merci

  6. #6
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour Didpa, Isabelle, Rvtoulon,
    si je peux me permettre
    a quoi correspond "IV"
    "IV" est la derniere colonne avant excel 2007 donc

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(ActiveCell.Address & ":" & Range("IV" & ActiveCell.Row).End(xlToLeft).Address).Select
    "end(xltoleft) représente la dernière colonne utilisée ou la première en partant de la colonne "IV" vers la gauche

    PS : sur 2007, la dernière colonne est "XFD"
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

Discussions similaires

  1. Select sur plusieurs colonnes
    Par Mynautor dans le forum Langage SQL
    Réponses: 6
    Dernier message: 02/03/2006, 14h49
  2. plusieurs selections selon sur colonne different critere
    Par richton95 dans le forum Requêtes
    Réponses: 2
    Dernier message: 27/01/2006, 17h25
  3. probleme requete select avec 2 colonnes
    Par cricri45000 dans le forum Langage SQL
    Réponses: 4
    Dernier message: 21/04/2005, 10h39
  4. [VB6] sélection multiple de colonne dans excel grâce à VB
    Par biquet dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 02/08/2004, 12h44
  5. Listbox selection multipe et colonnes
    Par Sylvain245 dans le forum IHM
    Réponses: 2
    Dernier message: 01/03/2004, 02h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo