De l'aide pour une macro boucle

[titi7500]

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.

 

[ChTi160]

Bonjour le Fil
ou alors
on a

xlDown=0
xlToRight=1
xlToLeft=2
xlUp=3

Lol
Bonne fin de Journée
Amicalement
Jean marie

 

[Staple1600]

Bonsoir le fil, le forum

@ChTi160
Non car cela plante, d'ou ma moue dubitative sur le End(3) 😉

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]

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 :

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

 

[Staple1600]

Re,

Oui mais je cherche la logique ce End(3)
Car si tu regardes la macro du message précédent, la macro renvoie xlUp en 4ième position.

 

[Calvus]

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+

 

[Staple1600]

Bonsoir le fil, le forum

@Calvus
Le seul problème avec cette formulation: End(3) c'est juste de comprendre d'où sort ce 3 ??
Si quelqu'un peut expliquer la chose, il est le bienvenu 😉

 

[Dranreb]

Bonsoir.
C'est assurément une très mauvaise habitude de remplacer par leurs valeurs les noms de constantes, car elles sont là exprès pour aider à s'y retrouver. Personnellement je ne le fais jamais.

 

[Staple1600]

Bonsoir le fil, le forum

@Dranreb
Normalement la valeur de End(xlUp) est -4162
Dans ce cas, d'ou vient que End(3) fonctionne aussi??
J'ai beau chercher , je ne comprends le pourquoi de la chose
(voir la macro de test du message#62)

 

[Dranreb]

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.