Copier Données dans la 1ere ligne non remplie

Vert a Ballon -  
 Vert à Ballon -
Bonjour,

Je cherche a réaliser un suivi de construction. pour ce faire je dois collecter un certain de nombre de données (disons 10 par semaine) dans un fichier type (une sorte de formulaire). Je souhaite ensuite copier ces données à l'aide d'une macro dans un tableau brut (sur une autre feuille), sur la premiere ligne libre du tableau (pour ne pas effacer les données précédentes).

Le but de la manoeuvre est de pouvoir rentrer les données dans un fichier clair, agréable et ludique et les stocker dans un tableau plus facilement exploitable et mis à jour!

Si quelqu'un pouvait me donner des pistes ça m'aiderait beaucoup...merci d'avance
Configuration: Windows XP
Firefox 3.5.2

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Sub test()

    'ici ta sélection.copy

    Sheets("Nom de ta feuille").Select

    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    End Sub

    Avec plus de précisions sur tes intentions, le code pourrait certainement s'écrire différemment

    A+
    Mike-31

    Un problème sans solution est un problème mal posé  (Einstein)
    0
    1. Vert a Ballon
       
      merci de me répondre si vite.

      J'ai une question pour Mike 31

      'ici ta sélection.copy <= qu'est ce que ça veut dire?

      Sheets("Nom de ta feuille").Select

      Range("A65536").End(xlUp).Offset(1, 0).Select
      ActiveSheet.Paste <= qu'est ce que ça veut dire?
      Application.CutCopyMode = False

      Ou puis je trouver des renseignements sur la syntaxe de VBA? Du genre apprendre à rédiger les boucles for, while... apprendre à afficher des choses à l'ecran, à lire des choses rentrées par l'utilisateur...
      Je connaissais ces choses là dans un langage basique ( pascal^^) et j'aimerais connaitre les equivalents pour VBA, mais je sais pas ou trouver ça mis à part un bouquin à la fnac...
      0
      1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147 > Vert a Ballon
         
        Salut,

        Exemple: si tu souhaites copier la plage A1 à F2 de la feuille2 à la suite de tes données sur la feuille1, un genre de code basique facile à comprendre.
        Comme je te le disais sur un post avec plus d'infos, le code pourrait s'écrire plus technique

        Sub test()
        Sheets("Feuil2").Range("A1:F2").Copy
        Sheets("Feuil1").Select
        Range("A65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        End Sub

        A+
        Mike-31

        Un problème sans solution est un problème mal posé  (Einstein)
        0
  2. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Les valeurs copier dans la feuille 2.
    Cette formule vous permet de trouver le nombre de cellules de la colonne A qui sont occupées :
     WorksheetFunction.CountA(Sheets("Feuil2").Range("A:A")) + 2

    Le [+2] dans le cas ou les 2 premières lignes sont vide, à contrôler.
    0
  3. Vert à Ballon
     
    ReBonjour à tous,

    J'avance petit à petit dans mon projet... Ma question, pour l'heure est la suivante:
    Voici à quoi ressemble tableau ou je collecte mes données.

    Clotures Portail Caméras Fondations
    Semaine metres installés installé Installée(s) Nombre
    semaine36 250 0 0 200
    semaine37 250 0 0 200
    semaine38 250 0 0 200
    semaine39 250 0 0 200

    Je voudrais faire une macro qui me permette de rechercher la semaine que je souhaite editer dans la premiere colonne...et qui me renvoie soit sa position.
    Merci d'avance
    0