Astuces Excel
  1. Astuces Excel
  3. Comment créer une boucle dans une boucle vba
Intereting Posts
Excel: trace uniquement les valeurs qui satisfont une certaine condition Comment étaler les numbers des lettres de cet set de dimensions? Générer une list de tous les GUID de reference VBA possibles Arrêtez excel do-loop jusqu'à wix – vérifiez la version Excel 2013 Cellules de copy VBA si elles ont une valeur Somme Excel des cellules avec déclaration IF Ajout d'image au file Excel généré par Axlsx.? Horodatage dans Excel avec des exigences très spécifiques Problème VBA: opérations simples avec plusieurs types de variables Avis de deux semaines excellent EXCEL SORT VBA – Trier l'extérieur openpyxl comment changer la feuille par défaut Validation de la valeur de la colonne de la list concatée avec une autre list dans Excel 2013 phpMyAdmin Importe une feuille de calcul Excel avec date et heure

Comment créer une boucle dans une boucle vba

J'essaie de créer cette boucle dans la boucle afin d'imprimer à l'intérieur des cellules dans la gamme ci-dessous -> Semaine i où i est de 1 à 6 et elle augmente d'une fois chaque fois que nous passons à une cellule …

Donc, dans ce cas, pour D2 je veux la semaine 1, pour D3 semaine 2 etc. Des idées? J'apprécie votre time! 

  Sub INPUT() Sheets("1").Select For Each cell In range("D2:D7") For i = 1 To 6 cell.Value = "Week +" & i i = i + 1 Next i Next cell End Sub

Vous n'avez besoin que de la seule boucle: 

 Sub INPT() With Sheets("1") i = 1 For Each cell In .Range("D2:D7") cell.Value = "Week +" & i i = i + 1 Next cell End With End Sub