Macro pour dire a excel de mettre un 0 sous certaines conditions

[petitdudup]

Bonjour a tous

J'ai souvent a traiter des fichiers comme celui que je vous joint, et j'aimerai créer une macro pour automatiser une action.

Dans la colonne D, j'aimerai arriver a ce que excel regarde par plage de 20 lignes a chaque fois si au moins une valeur est présente. Si tel est le cas, il ne fait rien. En revanche, si dans cette plage de 20 lignes, il ne detecte aucune valeur, j'aimerai qu'il me place un 0 (un seul) dans cette plage.

J'ai illuster le fichier exemple pour etre plus clair

Merci d'avance pour votre aide

Petitdudup

 

[mintri]

Re : Macro pour dire a excel de mettre un 0 sous certaines conditions

Hello,

Essaye avec ce code :


Sub zeroAjout()

Dim i As Integer
Dim lastline As Integer
Dim x As Integer
Dim chiffrepresent As Integer
chiffrepresent = 0

lastline = Range("A65536").End(xlUp).Row


For i = 1 To lastline Step 20

For x = i To i + 19 Step 1

If Cells(x, 4).Value <> "" Then
chiffrepresent = chiffrepresent + 1
End If

Next

If chiffrepresent = 0 Then
Cells(i, 4).Value = 0
End If

chiffrepresent = 0
Next



End Sub

 

[petitdudup]

Re : Macro pour dire a excel de mettre un 0 sous certaines conditions

ca marche nickel. super

Merci beaucoup de ton aide !