Aide à la création d'une macro

[petitdudup]

Bonjour

Je souhaiterai créer une macro qui me selectionne une valeur toute les 250 lignes sur l'ensemble d'une colonne.
En gros je souhaite que excel me selectionne la valeur en A1 puis en A251 puis en A501 et ainsi de suite jusqu'a la fin la colonne.

Et si possible j'aimerai qu'il m'affiche les valeurs qu'il a selectionné dans la colonne B

Merci de votre aide

 

[Papou-net]

Re : Aide à la création d'une macro

bonjour petitdudup,

Voici un exemple de code :

P

rivate Sub Macro()
For lg = 1 To Rows.Count Step 250
  If Cells(lg, 1) = "" Then Exit Sub
  Cells(lg, 2) = Cells(lg, 1)
Next
End Sub

Tu peux l'affecter à un bouton sur ta feuille de calcul ou lui définir un raccourci.

Cette macro agira par défaut sur la feuille affichée à l'écran.

Bon courage.

Cordialement.

 

[tdenfert]

Re : Aide à la création d'une macro

Bonjour,

Sans macro cette formule devrait répondre au besoin

=DECALER($A$1;(LIGNE(1:1)-1)*250;0;1;1)

à tirer

 

[petitdudup]

Re : Aide à la création d'une macro

bonjour petitdudup,

Voici un exemple de code :

P

rivate Sub Macro()
For lg = 1 To Rows.Count Step 250
  If Cells(lg, 1) = "" Then Exit Sub
  Cells(lg, 2) = Cells(lg, 1)
Next
End Sub

Tu peux l'affecter à un bouton sur ta feuille de calcul ou lui définir un raccourci.

Cette macro agira par défaut sur la feuille affichée à l'écran.

Bon courage.

Cordialement.

Merci de ton aide... C'est cool pour les selections ! Maintenant j'aimerai juste aussi pouvoir faire en sorte que toutes les valeurs selectionnées soient listées a la suite (genre B1;B2,B3,....)
Je suis désolé je n'y connai rien en prog !

Merci

 

[Papou-net]

Re : Aide à la création d'une macro

pour l'instant ta macro ne m'affiche que la première valeur dans la case B1 !

Normal, j'avais compris que les valeurs en colonne B devaient s'afficher sur les mêmes lignes qu'en A.

Voici donc le code corrigé, et je te joins par la même occasion un fichier exemple. J'ai ajouté queleques explications dans le code, mais il te reste toujours la touche F1 si tu désires plus de précision sur chaque instruction (c'est une façon d'apprendre, et pas des moindres).

Voilà, j'espère avoir répondu à ta demande.

A +

Cordialement.

 

[petitdudup]

Re : Aide à la création d'une macro

Je suis désolé j'ai l'impression d'etre tres ennuyeux... mais en fait j'aimerai sur l'exemple voir afficher la valeur 1 en B1, la valeur 251 en B2, la valeur 501 en B3,...

et je n'arrive pas a trouver tes explications, ni voir le code de la macro (parce que tu a cree un bouton )
En tout cas merci de ton aide !

 

[tdenfert]

Re : Aide à la création d'une macro

bonjour,

un peu comme j'ai proposé?!

 

[petitdudup]

Re : Aide à la création d'une macro

bonjour,

un peu comme j'ai proposé?!

Oui merci de toin aide d'ailleurs. J'aimerais juste avoir exactement lme rendu de ton code via une macro parce que je peux me retrouver avec des fichiers avec plus de 15000 lignes donc je me vois mal tout étirer !

 

[Papou-net]

Re : Aide à la création d'une macro

Salut tdenfert,

RE petitdudup,

Et bien ça commence à se préciser, voilà qui est très clair maintenant.

Vois donc le résultat sur le fichier joint.

Cordialement.

 

[petitdudup]

Re : Aide à la création d'une macro

C'est quasiment parfait ! Si je peux etre chiant, en fait j'aurai voulu eviter d'etirer vers le bas (non pas vers la droite lol) et avoir mes valeurs en B1;B2;B3 et ainsi de suite !

 

[Papou-net]

Re : Aide à la création d'une macro

RE petitdudup,

Le client a toujours raison !

Voici un fichier conforme à ton désir.

Bonne soiré.

Cordialement.

PS : pour voir le code, tu lances l'éditeur VBA (ALT + F11) et dans la fenêtre de gauche (Projet - VBA Project) tu double-cliques sur Feuil1(Feuil1) et le code s'affichera dans la fenêtre principale.

 

[petitdudup]

Re : Aide à la création d'une macro

PARFAIT !!

Merci a toi, tu m'as economisé plusieurs heures d'analyse de fichiers au boulot !!

 

[petitdudup]

Re : Aide à la création d'une macro

PARFAIT !!

Merci a toi, tu m'as economisé plusieurs heures d'analyse de fichiers au boulot !!

dernier petit embetement.. Quel est le code a rentrer pour avoir le meme rendu, tout pareil, mais en partant de la colonne B au lieu de la colonne A ?

 

[Papou-net]

Re : Aide à la création d'une macro

dernier petit embetement.. Quel est le code a rentrer pour avoir le meme rendu, tout pareil, mais en partant de la colonne B au lieu de la colonne A ?

Voici le code modifié :

Private Sub CommandButton1_Click()
Dim Lb As Integer ' Définit la variable de décalage de ligne vers le bas de B1
' boucle de lecture des cellules A1, A251, A501, ...
' cette lecture commence en ligne 1 (lg=1) jusqu'à la dernière ligne (rows.count) en sautant 250 lignes (Step 2520)
For lg = 1 To Rows.Count Step 250
  If Cells(lg, 2) = "" Then Exit For ' si la cellule est vide, inutile de continuer, on sort de la boucle
  Range("C1").Offset(Lb, 0) = Cells(lg, 2) ' affecte la valeur trouvée à la ligne libre du bas de la colonne B
  Lb = Lb + 1 ' Incrémente le décalage d'une colonne supplémentaire
Next
End Sub

Les références modifiées sont :

Cells(lg, 2) au lieu de Cells(lg, 1) et Range("C1") au lieu de Range("B1")

A +

Cordialement.