K Kaizers XLDnaute Occasionnel 25 Septembre 2017 #1 Bonjour à tous, Petit blocage sur une macro et je sais que vous avez une solution Voici le code : VB: Worksheets(Array("REG CIAL", "REG COLL", "NAT")).Select 'Worksheets("REG CIAL").Activate Range(Z & "5").Value = "Act" Le but est d'écrire "Act" dans 3 cellules, chaque cellule est sur un onglet différent. Seulement la macro me l'écrit uniquement sur le premier onglet Pourant j'ai sélectionné les 3 onglets Une idée ?
Bonjour à tous, Petit blocage sur une macro et je sais que vous avez une solution Voici le code : VB: Worksheets(Array("REG CIAL", "REG COLL", "NAT")).Select 'Worksheets("REG CIAL").Activate Range(Z & "5").Value = "Act" Le but est d'écrire "Act" dans 3 cellules, chaque cellule est sur un onglet différent. Seulement la macro me l'écrit uniquement sur le premier onglet Pourant j'ai sélectionné les 3 onglets Une idée ?
zebanx XLDnaute Accro 25 Septembre 2017 #2 Bonjour Kaizers. Cela doit fonctionner. ---- Sub valeur() j = Array("REG CIAL", "REG COLL", "NAT") For i = LBound(j) To UBound(j) Sheets(j(i)).[Z5] = "Act" Next i End Sub Vote positif 0 Vote négatif
Bonjour Kaizers. Cela doit fonctionner. ---- Sub valeur() j = Array("REG CIAL", "REG COLL", "NAT") For i = LBound(j) To UBound(j) Sheets(j(i)).[Z5] = "Act" Next i End Sub