Code colonne suivante

ProjectLV Messages postés 5 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    Oui :)

    Est-ce que tu veux que je t'explique ? Quel est ton niveau en VBA ?
    0
  2. ProjectLV Messages postés 5 Statut Membre
     
    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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      C'est pas plutot : 

      If Target.Row = 50 Then Target(-49, 2).Select
      ?
      0
    2. ProjectLV Messages postés 5 Statut Membre
       
      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 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      Je pense qu'il y a un moyen.

      Qu'est-ce que vous essayez de coller exactement ?
      0
    4. ProjectLV Messages postés 5 Statut Membre
       
      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 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      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
  4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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