Création Macro VBA conditionnelle

Version imprimable

16/05/2009, 10h48
choudoudou15

1 pièce(s) jointe(s)

Création Macro VBA conditionnelle

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.

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

Code:

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:

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

16/05/2009, 13h45
choudoudou15

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

Bon week end