Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide à la création d'une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion petitdudup
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

petitdudup

Guest
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
 
Trier par date Trier par votes
Re : Aide à la création d'une macro

bonjour petitdudup,

Voici un exemple de code :

P
Code: 
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.
 
Vote positif 0 Vote négatif
Re : Aide à la création d'une macro


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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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 !
Cliquez pour agrandir...

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.
 

Pièces jointes

Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Aide à la création d'une macro

petitdudup à dit:
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 ?
Cliquez pour agrandir...

Voici le code modifié :

Code: 
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Question Question
XL 2021 création macro
Réponses
7
Affichages
345
dysorthographie
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
519
job75
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
201
berru76
B
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
318
job75
P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
453
OKBI
O
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
308
DARRIEUX
D
P
  • Résolu(e)
XL 2019 Cocher les cases pour répondre.
Réponses
11
Affichages
430
Paulle
P
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
771
com689
C
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
419
MATLEA
M
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
217
Titof06
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
776
benjy555
B
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
584
sylvanu
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
702
jeff1494
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
330
PRy
P
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
256
JHA
J
Y
  • Résolu(e)
XL 2016 Validation de données en fonction d'une table
Réponses
3
Affichages
245
youguybass
Y
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
279
PR.
P
C
  • Question Question
XL 2021 Liste déroulante sur plusieurs colonnes
Réponses
3
Affichages
481
Jean-Eric
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…