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 :

Insertion colonne fixe


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut Insertion colonne fixe
    Bonjour à tous,

    Je souhaiterais importer une colonnes fixe dans un nouveau fichier ou j'insert une nouvelle base de données chaque jour.

    Merci de votre intéret porté a se sujet et de votre éventuelle réponse

  2. #2
    Membre Expert
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Par défaut
    Pourrais-tu être plus précis ?

    Importer une colonne fixe est assez simple en VBA.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub copy_paste()
    Dim col As Integer
     
    col = 1
     
    With Worksheets("Feuil1")
        For i = 0 To .Columns(col).Find("*", , , , xlByColumns, xlPrevious).Row
            Worksheets("Feuil2").Range("A1").Offset(i, 0) = .Range("A1").Offset(i, 0)
        Next i
    End With
     
    End Sub
    Il y a surement plus simple d'ailleurs.

    Ici, copie la colonne A de feuil1 dans la colonne A de feuil2.

  3. #3
    Membre à l'essai
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut
    Pour être plus précis :
    Je travail dans 2 fichier différents
    le 1er est ma base de données que je met à jour tous les jours
    Le 2eme ou la base de donées est copiées

    Une fois que la base de donées est copiées je souhaiterais afficher une colonne fixe dans ce fichier que je pourrais remplir comme je le souhaite.

    Le but de cette manoeuvre et que lorsque que je met a jour mon 2eme fichier et que article de mon 1er fichier est écrit dans ma base de données je voudrais que cette nouvelle colonnes et se nouveau commentaire reste affiché.

    Un peu flou je le conssoit ...

  4. #4
    Membre Expert
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Par défaut
    Je ne comprends pas.
    Ajoute un fichier exemple qui pourrait peut-être aider la communauté à répondre à ta requète.

  5. #5
    Membre à l'essai
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub implantation_donnees()
     Dim classeurSource As Workbook, classeurDestination As Workbook
     Dim nomfichier As String
     Dim numero As Variant
     numero = Sheets("FeuilNumero").Range("B1").Value
    ' MsgBox (numero)
     nomfichier = "C:\Users\Informatique\Test-" & numero & ".xlsx"
     MsgBox (nomfichier)
    'ouvrir le classeur source (en lecture seule)
     Set classeurSource = Application.Workbooks.Open(nomfichier, , True)
     'définir le classeur destination
     Set classeurDestination = ThisWorkbook
     
    'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
     classeurSource.Sheets("Feuil1").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
     
    'fermer le classeur source
     classeurSource.Close False
     Sheets("FeuilNumero").Range("B1").Value = Sheets("FeuilNumero").Range("B1").Value + 1
    End Sub
    Voici le code qui génère une nouvelle fueille sur le classeur cible
    Je voudrais pour pouvoir ecrire quelque chose sur le classeur cible qui reste toujours visible après les nouvelles feuil généré

  6. #6
    Membre à l'essai
    Inscrit en
    Octobre 2012
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Octobre 2012
    Messages : 5
    Par défaut
    Peut être cette explication supplèmentaire pourra vous aider à comprendre mon problème.
    Je souhaiterais insérer ma colonne et pouvoir écrire un commentaire et que ce commentaire ne concerne qu'une seule et unique cellule,

    Faut il créer une boucle, insérer des variables ?
    Et pouvoir le répeter a chaque fois que j'incrémente mon fichier ....

    Désolé du dérangement mais je ne métrise pas trop VBA

Discussions similaires

  1. Colonnes fixes lignes variables
    Par vid2006 dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 14/09/2006, 14h05
  2. 1ere colonne fixe Jtable ( JScrollpane )
    Par jdewalqu dans le forum Composants
    Réponses: 5
    Dernier message: 21/02/2006, 16h38
  3. Colonne fixée
    Par kastor_lapon dans le forum WinDev
    Réponses: 2
    Dernier message: 21/07/2005, 09h20
  4. Crystal + colonne fixe
    Par eniki dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 06/09/2004, 09h35
  5. [MFC] CListCtrl: colonnes fixes + tri des items
    Par bigboomshakala dans le forum MFC
    Réponses: 5
    Dernier message: 10/05/2004, 22h54

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