Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

petitdudup

XLDnaute Nouveau
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
 

Pièces jointes

  • exemple.xlsx
    76.7 KB · Affichages: 44
  • exemple.xlsx
    76.7 KB · Affichages: 49
  • exemple.xlsx
    76.7 KB · Affichages: 48

mintri

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…