Discussion :

[choudoudou15]

Bonjour,

J'aimerais transformer sous la forme d'une ou plusieurs Macro VBA, les calculs réalisés dans le fichier joint.

Dans les colonnes A et B , j'ai indiqué les données d'entrées et en colonne D et E, le résultat souhaité.

Pour résumé, pour chaque produit, nous pouvons avoir 3 types d'accès. Le but de rappeler ,dans les lignes vides entre 2 types de produits et d'accès,
- le n° du produit ( colonne D)
- le type d'accès ( colonne E)

J'arrive au résulat avec des formules excel mais le fichier initial contient 40 000 lignes et cela me prend beaucoup de temps de modifier les formules une à une en fonction du changement du type de produit ou d'accès.

Je vous remercie par avance de votre aide sur la création d'une macro VBA et la simplification des formules.

[laetitia]

bonjour choudoudou15 le forum normalement par formule cela doit se faire en étirant sur toute la plage
par macro a tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Recopie()
Dim i As Long, x As String, y As String, z As String
x = "Acces 1": y = "Acces 2": z = "Acces 3"
Application.ScreenUpdating = False
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 2) = x Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AA"
If Cells(i, 2) = y Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AB"
If Cells(i, 2) = z Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AP"
Next i
For i = 4 To Range("d65535").End(xlUp).Row
If Cells(i, 4) = "" And Cells(i, 2) = "" Then Cells(i, 4) = Cells(i - 1, 4): Cells(i, 5) = Cells(i - 1, 5)
Next i: Beep
End Sub

une version simplifiée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Recopie1()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Range("A65535").End(xlUp).Row
If Cells(i, 2) = "Acces 1" Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AA"
If Cells(i, 2) = "Acces 2" Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AB"
If Cells(i, 2) = "Acces 3" Then Cells(i + 1, 4) = Cells(i, 1): Cells(i + 1, 5) = "AP"
If Cells(i, 2) = "" And Cells(i, 4) = "" Then Cells(i, 4) = Cells(i - 1, 4): Cells(i, 5) = Cells(i - 1, 5)
Next i: Beep
End Sub

[choudoudou15]

Merci beaucoup laetitia, la macro fonctionne parfaitement et correspond à ce que je recherchais.

Bon week end