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

Création d'une boucle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Venitien
  • 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
V

Venitien

XLDnaute Occasionnel
Bonjour,

débutant macros, je ne sais pas encore faire les boucles, je commence à m'en sortir avec les boucles simples, mais j'aimerais que quelqu'un m'aide à créer celle qui simplifierai ceci:

Code: 
    Sheets("Feuille de saisie").Shapes("Zone combinée 5").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 6").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 7").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 8").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 9").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 10").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 11").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 12").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 13").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 14").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 15").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 16").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 17").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 18").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 19").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 20").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 21").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 22").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 23").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 24").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 25").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 26").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 27").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 28").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 29").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 30").ControlFormat.ListIndex = Me.Range("D1").Value
    Sheets("Feuille de saisie").Shapes("Zone combinée 31").ControlFormat.ListIndex = Me.Range("D1").Value

Merci pour votre aide.
 
Trier par date Trier par votes
Re : Création d'une boucle

Salut Venitien, le Forum

Pas sur mais teste ceci: logiquement ça pourrait le faire

Code: 
For i = 5 To 31
    Sheets("Feuille de saisie").Shapes("Zone combinée " & i).ControlFormat.ListIndex = Me.Range("D1").Value
Next i

Bonne Journée
 
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

Discussions similaires

  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
643
Dranreb
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
599
crocrocro
C
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
1 K
Staple1600
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
722
troki74
T
D
  • Question Question
Microsoft 365 Optimisation boucle
Réponses
2
Affichages
823
Wayki
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
S
  • Question Question
XL 2021 suite de nombre avec changement tous les 5
Réponses
9
Affichages
751
mapomme
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
936
target
T
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
S
  • Question Question
Autres Verrouillage auto de ligne, après saisie d'une de ses cellules (via liste déroulante). Une seule cellule par ligne (doit pouvoir être saisie)
Réponses
2
Affichages
847
Slavko.R
S
R
  • Question Question
Microsoft 365 Supprimer les lignes vides d'une variable tableau
Réponses
1
Affichages
772
Phil69970
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
G
  • Question Question
XL 2021 Recopier tableau en divisant une intervalle
Réponses
8
Affichages
579
Guillaumeg3
G
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…