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

Simplifier code via une boucle avec comme variable les numéros de feuilles paires

Créer une discussion

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
M

micapilote

XLDnaute Junior
Bonjour, voici mon petit code que j'aimerai raccourcir à l'aide d'une boucle mais je n'y parviens pas. (le code originel va de B à L donc en cas de modif ,cela fait bcp
bcp bcp bcp de lignes de code à modifier)

j'aimerai faire une boucle avec comme début la feuille N°2 et ça jusqu'à la 30 en passant de 2 en 2 (Step 2)
donc feuille 2,4,6,8,...,30 ou sinon petite info, toutes les feuilles "paires" ont leur nom se finissant par "(FS)".
Code: 
'Ligne 4'
Dim K As Integer
    For K = 4 To 18
Sheets("Récapitulatif").Range("B" & K) = Sheets(2).Range("E2").Value 'Nom du client'
Sheets("Récapitulatif").Range("C" & K) = Sheets(2).Range("B2").Value 'N° de dossier''
Next K
 
'Ligne 5'
Dim K As Integer
    For K = 4 To 18
Sheets("Récapitulatif").Range("B" & K) = Sheets(4).Range("E2").Value 'Nom du client'
Sheets("Récapitulatif").Range("C" & K) = Sheets(4).Range("B2").Value 'N° de dossier''
Next K
 
'et ça jusqu'à la ligne 18'

vous me rendriez un gd service.
Merci
 
Trier par date Trier par votes
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

Bonsoir,

Peut-être avec ce code si j'ai bien interprété ta question:

Code: 
Dim K As Integer, i As Integer
For i = 2 To 30 Step 2
    For K = 4 To 18
        Sheets("Récapitulatif").Range("B" & K) = Sheets(i).Range("E2").Value 'Nom du client'
        Sheets("Récapitulatif").Range("C" & K) = Sheets(i).Range("B2").Value 'N° de dossier''
    Next K
Next i

Bonne soirée,

mth

Edit: Bonsoir Grand Chaman 🙂 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

Bonjour,

Quelque chose comme ça peut-être :

Code: 
For i = 2 To 30 Step 2

    'Ligne 4'
    Dim K As Integer
        For K = 4 To 18
    Sheets("Récapitulatif").Range("B" & K) = Sheets(i).Range("E2").Value 'Nom du client'
    Sheets("Récapitulatif").Range("C" & K) = Sheets(i).Range("B2").Value 'N° de dossier''
    Next K
    
    'etc....

Next i

A+

Edit : un peu trop tard... bonjour mth
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

Bonsoir Micapilote,

peut être comme cela :

'Ligne 4'
Dim K As Integer, dim i as integer

' Boucle
For K = 4 to 18
i = i + 2
Sheets("Récapitulatif").Range("B" & K) = Sheets(i).Range("E2").Value 'Nom du client'
Sheets("Récapitulatif").Range("C" & K) = Sheets(i).Range("B2").Value 'N° de dossier''

next k

Laurent
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

j'avais bien tenté ça mais cela ne fonctionne pas, les cellules de ma feuille récapitulatif reste vide !
j'étais parti sur bien plus compliqué (peu être, voir surement pour rien)
Code: 
Dim ws
For Each ws In Worksheets
If Right(Sheets(ws).Name, 4) = "(FS)" Then
           Sheets(ws).Select
 Dim K As Integer
    For K = 4 To 18
Sheets("Récapitulatif").Range("B" & K) = Sheets(ws).Range("E2").Value 'Nom du client'
Sheets("Récapitulatif").Range("C" & K) = Sheets(ws).Range("B2").Value 'N° de dossier''
*
Next K
       Else
       End If
    Next ws
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire


Merci bcp à vous (tous), celle de Laurent fonctionne au poil (pas les autres)
PS: j'ai juste retiré le 2ème dim en trop
Dim K As Integer, dim i as integer
Cliquez pour agrandir...

Pourquoi faire si compliqué quand c'est si simple ! (je parle de moi bien sur)
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

re bonsoir à tous 🙂

Sans fichier pour tester pas facile, mais je ne comprends pas ta boucle, en fait ça revient à écrire ceci:
Code: 
Dim K As Integer, i As Integer
For i = 2 To 30 Step 2
        Sheets("Récapitulatif").Range("B4:B18") = Sheets(i).Range("E2").Value 'Nom du client'
        Sheets("Récapitulatif").Range("C4:C18") = Sheets(i).Range("B2").Value 'N° de dossier''
Next i

Tu vas chercher dans tes onglets, mais tu écrases tes données et finalement c'est la dernière valeur qui reste.
Je ne comprends pas trop ce que tu veux obtenir ...😕

@ +

mth
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

re 🙂

nos messages se sont croisés, contente que tu aies ta solution et bravo à Laurent 🙂

Bonne soirée à tous,

mth
 
Vote positif 0 Vote négatif
Re : Simplifier code via une boucle avec comme variable les numéros de feuilles paire

Pour clarifier ma demande (qui est réalisée)

Code: 
Dim K As Integer, i as integer

' k est mon numéro de ligne de ma feuille récapitulatif 
For K = 4 to 18 'ligne 4 remplir toutes les colonnes (ici B et C) avec les valeurs de la feuille 2 (ici E2 et B2)
i = i + 2 'ligne 5, 6 etc... remplir avec les valeurs des feuilles 4,6 etc...
Sheets("Récapitulatif").Range("B" & K) = Sheets(i).Range("E2").Value 'Nom du client'
Sheets("Récapitulatif").Range("C" & K) = Sheets(i).Range("B2").Value 'N° de dossier''

next k
 
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

  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
744
piga25
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
923
Compte Supprimé 979
C
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
183
vazvaz
V
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
727
MBEPID
M
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
732
KRUG WOO
K
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
828
job75
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
728
loreak
L
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
675
Aldonanou
A
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
619
Quentin2106
Q
I
  • Question Question
XL 2016 Modification d'une ligne dans mon code
Réponses
2
Affichages
688
INFINITY100
I
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
872
INFINITY100
I
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
580
piskely
P
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
609
INFINITY100
I
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
819
GClaire
G
D
  • Question Question
XL 2013 envoi mail va excel : faire une boucle avec 10 destinataires à chaque envoi
Réponses
5
Affichages
1 K
david54520
D
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…