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

  • Initiateur de la discussion Initiateur de la discussion petitdudup
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
704
Réponses
7
Affichages
608
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…