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 :

[VBA-E] Pb propriété Selection de Worksheet


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2003
    Messages
    92
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2003
    Messages : 92
    Par défaut [VBA-E] Pb propriété Selection de Worksheet
    Bonjour,

    Voilà j'effectue un select de type :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & Trim(Str(i + 2))).Select
    wb étant un autre workbook que celui ds lequel se trouve ma macro.

    Ensuite je suis censé faire une insertion de 2 lignes comme suit :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.Insert Shift:=xlDown
    Mon pb est que l'insertion ne se fait pas car "il" semble ne pas se trouver sur le bon workbook.

    Le pb est que je n'arrive pas à lui spécifier un truc du genre :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    wb.Sheets("MonOnglet").Selection.Insert Shift:=xlDown
    Petit précision :
    - ce bout de code fonctionen très bien lorsque wb réprésente le workbook ds lequel se trouve le code de la macro.
    - lorsque la macro tourne "il" effectue bien une insertion de 2 lignes mais ds la sheet du workbook ds lequel se trouve la macro.

    Qq'un aurait il une solution à me proposer ?

    Merci d'avance.

    jeff

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonsoir

    as tu essayé


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & _
    Trim(Str(i + 2))).Insert Shift:=xlDown


    bonne soiree
    michel

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    pourquoi tous ces trim et str ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
     
    wb.Sheets("MonOnglet").Rows(i).Insert Shift:=xlDown

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2003
    Messages
    92
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2003
    Messages : 92
    Par défaut
    Citation Envoyé par bbil
    pourquoi tous ces trim et str ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
     
    wb.Sheets("MonOnglet").Rows(i).Insert Shift:=xlDown
    Bon en fait je n'ai pas mis tout le code mais au dessus il y a des boucles etc etc ce qui fait que je dois passer par cette solution.

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2003
    Messages
    92
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2003
    Messages : 92
    Par défaut
    Citation Envoyé par SilkyRoad
    bonsoir

    as tu essayé


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & _
    Trim(Str(i + 2))).Insert Shift:=xlDown

    bonne soiree
    michel
    Ah merci Michel !
    Effectivement je n'avais pas tenté cette solution et ça marche impec !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E]deplacer une selection de cellules
    Par richou dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/03/2006, 12h50
  2. [VBA-E]Changer propriété auteur du fichier dans excel
    Par JulienCEA dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/03/2006, 13h15
  3. [VBA-E]Interdire la selection de cellule dans une feuille
    Par Tartenpion dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/03/2006, 23h24
  4. [VBA-E] fenetre de selection de feuilles...pourquoi ?
    Par comme de bien entendu dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/11/2005, 09h45
  5. Réponses: 2
    Dernier message: 27/10/2005, 15h51

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