Boucle marco excel

Résolu
bilar100 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
bilar100 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

4 réponses

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