Boucle marco excel

Résolu
bilar100 -  
Bonjour,

Dans un tableau Excel composé d'une colonne de noms de client, et une ligne de date du 1er Janvier au 28 février, dans le tableau j'ai des cellules vide et des cellules avec le chiffre 1, je souhaite trouver une commande qui vérifie a chaque cellule d'une ligne où elle trouve le chiffre 1, elle doit mettre les cellules vides suivantes à 1 aussi jusqu'à la quatorzième cellule, et si elle trouve avant une autre cellule à 1 elle recommence jusqu'à la quatorzième ainsi de suite pour toutes les lignes du fichier.

Merci d'avance

4 réponses

  1.  Raymond PENTIER Contributeur
    Les tableaux croisés dynamiques ne font pas ce genre de manipulation.
    0
    1. bilar100 Auteur
      Et avec une boucle a implémenter dans une macro?
      0
      1. Raymond PENTIER Contributeur
        Les macros, je ne connais pas du tout.
        Les TCD, je connais, et je peux te dire que ça ne convient pas à ton problème.
        0
    2. eriiic Contributeur
      Bonsoir,

      Ca aurait été mieux avec un fichier exemple.
      J'ai supposé (entre autres...) que tes 1 étaient en ligne, essaie avec : 
      Sub remplir1() 
    For lig = 2 To 50 
        colfin = Range("IV" & lig).End(xlToLeft).Column 
        For col = 3 To colfin 
            If Cells(lig, col) = 1 Then 
                For j = 1 To 13 
                    If Cells(lig, col + j) = "" Then Cells(lig, col + j) = 1 
                Next j 
                col = col + 14 
            End If 
        Next col 
    Next lig 
End Sub

      eric
      0
      1. bilar100 Auteur
        Ok ça marche merci.
        0