Débutant Boucle sur VBA

[WonderWhy]

Bonjour, je suis débutant en VBA et je désire faire une boucle.

Plutôt que d'exécuter ma macro 2585 fois je me disais que je pourrais apprendre comment faire une boucle. Un coup de main serait apprécié.

Également tout conseil pour m'aider à apprendre est le bienvenue!

Merci ! ! !

Voici mon code :

Sub VFRUN()
'
' VFRUN Macro
'
' Touche de raccourci du clavier: Ctrl+o
'
Range("S8:U8").Select
Selection.Copy
Sheets("VF Output").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("VF").Select
Range("T12").Select
Selection.Copy
Range("T11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T22").Select
Application.CutCopyMode = False
Calculate
End Sub

 

[Grand Chaman Excel]

Re : Débutant Boucle sur VBA

Bonsoir WonderWhy et bienvenue sur le forum,

Ce serait plus facile de comprendre si tu pouvais joindre un fichier avec des données types non confidentielles, et un exemple de ce que tu veux faire. Tu parles d'exécuter ta macro 2585 fois... est-ce le nombre de lignes que tu as à copier? À préciser.

A+

 

[Paritec]

Re : Débutant Boucle sur VBA

Bonjour WonderWhy le forum
bon alors si j'ai compris, testes pour voir si le résultat est celui souhaité
a+
Papou😱

Sub VFRUN()
    Dim i&
    Application.ScreenUpdating = 0
     Sheets("VF").Select
    For i = 1 To 100 ' là tu mettras le nombre que tu souhaites à la place de 100       
        Sheets("VF").Range("S8:U8").Copy
        Sheets("VF Output").Range("B3").PasteSpecial Paste:=xlPasteValues
        Sheets("VF Output").Rows("3:3").Insert Shift:=xlDown
        Sheets("VF").Range("T12").Copy
        Sheets("VF").Range("T11").PasteSpecial Paste:=xlPasteValues
        Sheets("VF").Range("T22").Select
        Application.CutCopyMode = False
        Calculate
    Next i
End Sub

 

[WonderWhy]

Re : Débutant Boucle sur VBA

Rebonjour!

Paritec , un gros gros merci. C'est fonctionnel ! ! ! Vous êtes un génie !
Pour mon premier post c'est un succès !

Enfin , merci aussi grand chaman , prochaine fois je vais poster mon fichier excel (rien de confidentiel!). Je prends des notes !

Je vais probablement avoir d'autre question sur ce même travail !

Merci encore !

 

[Paritec]

Re : Débutant Boucle sur VBA

Re Wonderwhy le forum
si tu as d'autre questions tu fais pareil tu demandes mais si tu copies également ta demande dans la fichier c'est encore mieux comme cela on a tout sous les yeux pour travaille
a+
papou😱