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

Probleme sur une boucle

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

gwenou17

Guest
Bonjour à tous,

je suis en train de réaliser ma première macro, et ce n'est pas franchement une réussite.

Je suis bloquée au stade suivant :
J'ai crée la macro pour ma première ligne.
Mon fichier comporte nlignes

Je souhaites pouvoir creer une boucle qui effectue cet ordre sur toutes les lignes de mon onglet "synthese" sans modifier la position des lignes de mon onglet "budget (2)"

en gros il faut que j'arrive a mettre une variable n dans partie 1 : Range("Gn:On").Select
partie 2 : Range("Zn:CZn").Select
Qu'il execute les 2 parties et passe au suivant

Sub pack()

Application.ScreenUpdating = False

Sheets("budget (2)").Select
Range("G2:O2").Select
Selection.Copy
Sheets("synthese").Select
Range("AP2:AX2").Select
ActiveSheet.Paste


Sheets("synthese").Select
Range("B5449:CC5449").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("budget (2)").Select
Range("Z2:CZ2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub
 
Trier par date Trier par votes
Re : Probleme sur une boucle

Bonjour gwenou17 et bienvenue,

Première petite remarque, dont tu trouveras confirmation au fil de tes lectures sur ce forum: il faut tâcher de n'utiliser les instructions '.Select' ... que si tu ne peux faire autrement! L'instruction suivante:
Code: 
Sheets("budget (2)").Range("G2:O2").Copy
Remplace les trois autres:
Code: 
Sheets("budget (2)").Select
Range("G2:O2").Select
Selection.Copy

Pour ta variable, tu peux écrire:
Code: 
Sheets("budget (2)").Range("G" & n & ":O" & n).Copy

Teste déjà ça et dis-nous ce qu'il en est. Pour le reste, il faudrait voir ce que tu veux précisément faire.

Bon amusement
 
Vote positif 0 Vote négatif
Re : Probleme sur une boucle

Salut gwenou17 et le forum
Toutes interprétations, de notre part, seront celles que tu ne voulais pas (Loi de Murphy).
Donc expliques exactement ce que tu veut, y compris ce qui est évident pour ceux qui utilisent ton fichier, ce qui n'est pas notre cas.

Pour une meilleure lisibilité, sur le forum, utilises les balises de codes (#) et les indentations dans ton code Un peu de logique me dit que si on copie G2:O2 sur AP2:AX2, G3:O3 devra être copié sur AP3:AX3 => pourquoi faire une boucle ? On peut copier G2:Gn sur les cellules à partir de AP2 (vaut mieux simplement définir la cellule en haut à gauche et laisser Excel calculer la plage, on risque moins d'erreurs).

Comme on ne connaît pas l'utilisation du fichier, difficile de proposer ce qu'il y a de mieux pour répondre à une question non formulée (plage de départ ?)

Je sais que c'est chiant, mais s'obliger à déclarer ses variables dans le type attendu, évite bien des crises.

Tu utilises une instruction de champ application : avant de sortir de la macro, remet l'application dans l'état où elle était au début. Même si ce n'est pas toujours utile, quand ça l'est, tu ne l'oublieras pas.
Code: 
Sheets("budget (2)").Select
Range("G2:O2").Select
Selection.Copy
Sheets("synthese").Select
Range("AP2:AX2").Select
ActiveSheet.Paste
Déjà que ça ralentit le fonctionnement, ça peut créer des problèmes
Code: 
Sheets("budget (2)").Range("G2:O2").Copy Sheets("synthese").Range("AP2")
Un peu plus court et mieux, non 😛 ?
Code: 
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
On peut raccourcir un code comme ça, en enlevant tout le texte inutile, puisque Excel le met par défaut. Ce qui nous donne
Code: 
.PasteSpecial Paste:=xlPasteValues
plus concis

Tu ne peux pas fixer la plage de réception en dur, à moins de remplacer les vieilles valeurs par les nouvelles. En règle générale, on calcule laplage d'arrivée de sorte qu'elle continue les données déjà inscrites. Mais il faut savoir ce que l'on doit faire, comment est utilisé la feuille et quelle colonne va servir de référence.
A+
 
Vote positif 0 Vote négatif
Re : Probleme sur une boucle

Bonjour gwenou17, Modeste, Gorfael, le fil, le forum
Comme la question n'est pas vraiment aisée à cerner et que l'exemple n'aide pas non plus, je fais une proposition avec ce que j'ai compris.
A tester pour vérifier car je ne copie que les valeurs des cellules.
Code: 
[COLOR=blue]Sub[/COLOR] test()
[COLOR=#000000][COLOR=green]'On cherche la dernière cellule non vide de la colonne g de la feuille budget (2)[/COLOR]
y = Sheets("budget (2)").Cells(Rows.Count, 7).End(xlUp).Row
[COLOR=green]'On récupère la plage à copier dans un tableau[/COLOR]
Tablo2 = Sheets("budget (2)").Range("G2:O" & y).Value
[COLOR=green]'On colle le tablo sur la feuille de destination[/COLOR]
Sheets("synthese").Range("AP2").Resize([COLOR=blue]UBound[/COLOR](Tablo2, 1), [COLOR=blue]UBound[/COLOR](Tablo2, 2)) = Tablo2[/COLOR]
 
[COLOR=#000000][COLOR=green]'On cherche la dernière cellule non vide de la colonne B de la feuille synthèse[/COLOR]
x = Sheets("synthese").Cells(Rows.Count, 2).End(xlUp).Row
[COLOR=green]'On récupère la plage à copier dans un tableau[/COLOR]
Tablo = Sheets("synthese").Range("B5449:CC" & x).Value
[COLOR=green]'On colle le tablo sur la feuille de destination[/COLOR]
Sheets("budget (2)").Range("Z2").Resize([COLOR=blue]UBound[/COLOR](Tablo, 1), [COLOR=blue]UBound[/COLOR](Tablo, 2)) = Tablo[/COLOR]
 
[COLOR=#008000]'Message de fin de traitement [/COLOR]
[COLOR=#000000]MsgBox "Transfert terminé"[/COLOR]
[COLOR=#000000][COLOR=blue]End Sub[/COLOR][/COLOR]

Cordialement

EDIT Ajout de la MsgBox
 
Dernière édition:
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

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
522
xavieralvaro
X
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
785
AtTheOne
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
397
MICHIS
M
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
552
Yogean
Y
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
661
Oneida
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
  • Question Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
880
patricktoulon
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
975
olivier388
O
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
865
Xender
X
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
576
Yvan1
Y
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
791
Usine à gaz
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
822
Cheyenne_2021
C
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
676
Quentin2106
Q
H
  • Question Question
XL 2010 Aide sur un copier coller
Réponses
4
Affichages
577
hutch57
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…