Créer des boucles VBA

Bonjour,

Je dois automatiser un fichier excel mais mes compétences techniques sont assez limitées.

J’ai un fichier qui contient plusieurs feuilles.

Sur une des feuilles je dois me positionner en cellule E3 copier un code produit, le coller en valeur en cellule A2 afin que cela calcule des données sur une autre feuille.

Les données calculées sur cette feuille doivent ensuite être collées sur une autre. Et ainsi de suite pour tous les codes produits. Cela commence en E3 et fini en E393.

Je cherche un code afin de ne pas avoir à faire les copier/coller à la main.

Voici le code avec l’enregistreur de macros, en faisant l’opération sur quelques lignes :

Sub Macro5()

’ Macro5 Macro


Range(« E3 »).Select
Application.CutCopyMode = False
Selection.Copy
Range(« A2 »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(« IRIS »).Select
Range(« BT1:BV1 »).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(« test »).Select
Range(« E1 »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(« H1 »).Select
Sheets(« Param »).Select
Range(« E4 »).Select
Application.CutCopyMode = False
Selection.Copy
Range(« A2 »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(« IRIS »).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(« test »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(« Param »).Select
Range(« E5 »).Select
Application.CutCopyMode = False
Selection.Copy
Range(« A2 »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(« IRIS »).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(« test »).Select
Range(« K1 »).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(« N1 »).Select
Sheets(« Param »).Select
End Sub

Merci de votre aide!

Bonjour
image

01_IDC_COMPILATION.xlsx (286,8 Ko)
Bonjour Mimimathy,
Voici le fichier. (les données ont été copiées collées en valeur afin d’alléger et de supprimer des onglets pour le transfert mais l’idée reste la même :slight_smile: )

Ouais,
Mais je vois aucun calcul sur changement de code depuis la feuille Param,
D’ailleurs, il n’y a aucune formule dans votre classeur

Le classeur est trop lourd pour être envoyé avec les formules. Mais dans mon cas je ne pense que ce soit utile qu’il y est un classeur avec des liens car j’ai juste besoin de créer un code répétant les actions.

Dans ce cas explique un peu mieux ta demande et précise le nom des feuilles pour savoir où tapez les données et où les placez
Je ne suis pas dans ta tête, ni devin

Ok je vais essayer d’être la plus claire possible.

J’ai un classeur avec les onglets suivants : IRIS, Param et Compilation.

Dans mon onglet Param j’ai une liste de codes allant de la cellule E3 à la cellule E327.
Je dois coller les codes un par un dans la cellule A2 de cette même feuille.
Une fois le code collé cela me génère un calcul dans la feuille IRIS au niveau des colonnes BT lignes 1 à 42287 jusqu’à la colonne BV lignes 1 à 42287.
Je dois copier ces 3 colonnes (avec entête) afin de les coller dans la feuille Compilation.

Ensuite je reviens dans la feuille Param et je recommence avec le code en cellule E4 que je colle en A2. Je vais dans IRIS je prends les colonnes BT à BV que je colle à la suite des 3 colonnes que j’avais collé lors de la première étape.

OK, c’est déjà plus clair
Je vais regarder cela, en fin d’après-midi, là je dois m’absenter

Merci beaucoup pour ton aide.

Juste une question,
As tu fait un test avec le début de ta macro enregistrée, pour savoir si l’affichage des données est bonne, car sur plus de 42000 lignes, les formules prennent un certain temps pour s’afficher après calcul, et une macro c’est rapide en execution

Oui j’ai fait un test et cela fonctionne bien.

Re,
A tester
01_IDC_COMPILATION.xlsm (298,3 Ko)

Bonjour,
C’est top! un grand merci pour ton aide :slight_smile:

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.