Sujet Précédent Sujet Suivant

Code colonne suivante

Fermé
ProjectLV Messages postés 5 Date d'inscription mercredi 21 mai 2014 Statut Membre Dernière intervention 2 juin 2014 - 21 mai 2014 à 15:11
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 2 juin 2014 à 10:30
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
26 mai 2014 à 13:04
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 mercredi 21 mai 2014 Statut Membre Dernière intervention 2 juin 2014
26 mai 2014 à 16:10
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 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 111
26 mai 2014 à 16:40
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
26 mai 2014 à 23:38
C'est pas plutot : 

If Target.Row = 50 Then Target(-49, 2).Select
?
0
ProjectLV Messages postés 5 Date d'inscription mercredi 21 mai 2014 Statut Membre Dernière intervention 2 juin 2014
27 mai 2014 à 07:44
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
28 mai 2014 à 10:50
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 mercredi 21 mai 2014 Statut Membre Dernière intervention 2 juin 2014
28 mai 2014 à 13:28
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
28 mai 2014 à 16:47
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 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 111
Modifié par Mike-31 le 27/05/2014 à 07:11
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 mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
2 juin 2014 à 10:30
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