Code colonne suivante

ProjectLV Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 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
A voir également:

5 réponses

Réponse 1 / 5
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Oui :)

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

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

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

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

Posez votre question
Réponse 5 / 5
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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