De l'aide pour une macro boucle

titi7500

XLDnaute Junior
Bonjour j'ai un petit soucis, ne sachant pas utiliser la fonction vba d'excel, je n'arrive pas à créer une macro répondant à mon problèmes.

Je vous explique rapidement.

J'ai un fichier excel avec dedans un onglet qui me sert d'extraction et j'ai plusieurs onglet . Chaque onglet porte le code que l'on peut trouver dans la colonne B de l'onglet extraction.

Ce que je souhaite c'est que les donnés de l'extraction se copie colle de la ligne A à la ligne D dans l'onglet en fonction de la colonne B et que la macro boucle se stop quand je n'ai plus rien dans la colonne B.

Il y a une extraction mensuelle on peut atteindre facilement les 10k lignes dans l'extraction

Ci joint un extrait de mon fichier excel.

Une petite aide de votre part serait très apprécié.

Merci par avance.
 

Pièces jointes

  • test.xlsx
    12.2 KB · Affichages: 34

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@ChTi160
Non car cela plante, d'ou ma moue dubitative sur le End(3) ;)
VB:
Sub Test_XlDirections()
' xlDirection Enumerations
Dim Mess$, Messs$
Mess = "xlDown = " & XlDirection.xlDown & vbCrLf
Mess = Mess & "xlUp = " & XlDirection.xlUp & vbCrLf
Mess = Mess & "xlToLeft = " & XlDirection.xlToLeft & vbCrLf
Mess = Mess & "xlToRight = " & XlDirection.xlToRight
MsgBox Mess
For i = 1 To 4
Messs = Messs & Range("A1").End(i).Address(0, 0) & " | i= " & i & vbCrLf
Next
MsgBox Messs
'ici bug
For i = 0 To 3
MsgBox Range("A1").End(i).Address & "| i= " & i
Next
End Sub
 

ChTi160

XLDnaute Barbatruc
Re
Lol , Ce n'était qu'une Idée (Non testée Lol
je n'ai personnellement jamais rencontré ce genre de Code , Mais Bon !!! Lol
si je teste :

VB:
MsgBox Range("A1000").End(3).Address
çà me renvoie Bien , "A17 "si dans la colonne A j'ai des Données Jusqu'a la Ligne 17

Bonne fin de Soirée
Amicalement
Jean marie
 

Calvus

XLDnaute Barbatruc
Bonsoir les JM, le forum,

J'ai utilisé ce code par habitude, depuis qu'il m'a été indiqué par @laetitia90, que je salue, et peut être @Si... que je salue également.
En tout cas Laeti écrit tous ses codes comme ça.
Alors comme c'est plus facile et rapide d'écrire 3 ou 2 ou 0 que up ou down, etc, j'ai pris cette habitude.
Et je n'ai jamais rencontré de problème avec cette formulation.

A+
 

Dranreb

XLDnaute Barbatruc
Bonjour Staple1600
Je l'ignore. On en est réduit aux hypothèses.
La plus vraisemblable est que c'étaient les valeurs utilisées dans des version d'Excel beaucoup plus anciennes, qui on été gardées par souci de compatibilité. C'est une raison de plus pour ne pas les utiliser, pour le jour, improbable il est vrai, où elles ne seraient plus en vigueur, auquel cas ça ne marcherait plus.
 

Discussions similaires

Réponses
4
Affichages
134