Code colonne suivante

ProjectLV -  
Bonjour,

Je suis régulièrement amené a faire des copier collé de colonne avec plus de 100 lignes. J'aimerai trouver un code qui me permette d'automatiquement, à partir de la 50eme lignes de passer à la colonne suivante. Pensez-vous que cela soit possible en VBA ?

Merci d'avance pour votre aide

5 réponses

  1.  skk201
    Oui :)

    Est-ce que tu veux que je t'explique ? Quel est ton niveau en VBA ?
    0
    1. ProjectLV Auteur
      Bonjour :)

      Oui ! avec plaisir, je peux te laisser mon adresse mail ? sinon concernant mon niveau, je dirai très basique mais avec l'envie d'apprendre :)
      0
      1. Mike-31
        Bonjour,

        Clic droit sur l'onglet de ta feuille/Visualiser le code, ce qui va t'ouvrir le Visual

        colle ce code

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Row = 100 Then Target(-49, 2).Select
        End Sub

        0
        1. skk201
          C'est pas plutot : 

          If Target.Row = 50 Then Target(-49, 2).Select
          ?
          0
        2. ProjectLV Auteur
          Bonjour,

          Merci beaucoup pour votre aide mais helas j'avai déja testé cette fonction et ca ne fonctionne qu'avec une saisie progressive et manuelle dans la colonne... Si possible comme il s'agit de "copier/coller" provnant de mon ERP, il faudrais que cette fonction soit automatique dans mon classeur avec ce genre de manip... Pensez-vous cela possible ?

          Merci d'avance :)
          0
        3. skk201
          Je pense qu'il y a un moyen.

          Qu'est-ce que vous essayez de coller exactement ?
          0
        4. ProjectLV Auteur
          Bonjour,

          Par colonne, je copie/colle les données contenus dans mon ERP (JDE), il s'agit tout simplement de données numérique en moyenne par colonne j'ai une 100ene de lignes...

          :)
          0
        5. skk201
          Et enfaite vous voulez que quand vous collez 100 lignes ça fasse enfaite 2 colonnes de 50 ?

          Si c'est le cas (par curiosité) est-ce que je peux savoir pourquoi ?
          0
      2. Mike-31
        Re le fil,

        Possible mais si on interprète la demande "à partir de la 50eme lignes de passer"

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Row >= 50 Then Target(-48, 2).Select
        End Sub

        et certainement complété avec un .end(xlup) pour sélectionner la première cellule vide de la colonne suivante mais bon ?
        A+
        Mike-31

        Une période d'échec est un moment rêvé pour semer les graines du savoir.
        0
        2. eriiic Contributeur
          Bonjour,

          Est-ce que tu colles toujours au même endroit ? Par exemple Feuil1!F4
          Est-ce que toutes les cellules sous la 1ère cellule où tu colles sont disponibles ?

          eric
          0