Boucle marco excel

Résolu
bilar100 Messages postés 8 Statut Membre -  
bilar100 Messages postés 8 Statut Membre -
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 Messages postés 58222 Date d'inscription   Statut Contributeur Dernière intervention   17 487
     
    Les tableaux croisés dynamiques ne font pas ce genre de manipulation.
    0
  2. bilar100 Messages postés 8 Statut Membre
     
    Et avec une boucle a implémenter dans une macro?
    0
    1. Raymond PENTIER Messages postés 58222 Date d'inscription   Statut Contributeur Dernière intervention   17 487
       
      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
  3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  4. bilar100 Messages postés 8 Statut Membre
     
    Ok ça marche merci.
    0