High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Problème avec boucle for VBA excel

Dernière réponse le 18 mai 2009 à 13:51:30 La pitufita, le 18 mai 2009 à 11:44:07 
 Signaler ce message aux modérateurs

Bonjour,
Je veux faire une boucle For sous VBA sur excel, c'est un peu compliqué a expliquer, mon problème est que mon code marche pour pour le premier cas mais c'est comme si la boucle ne s'incrémentais pas car ça marche pas pour les autre. voilà ce que j'ai écris :

Sub Tableau1()

For i = 5 To 17
For k = 1 To 7
If Cells(i, 2) = k Then
Sheets("Feuil1").Select
Cells(11 + i, 2 + k).Select
With Selection.Interior
.Color = RGB(221, 221, 221)
End With
Selection.Font.Bold = True
Selection.Font.ColorIndex = 16
End If
Next k
Next i

End Sub

Je veux juste savoir si il y a qqch de choquant la dedans et si c'est normal que ça marche pas...

Merci

Configuration: Windows XP Internet Explorer 6.0

Posez votre question Répondre

1

michel_m, le 18 mai 2009 à 11:49:48

Bonjour,

tu ne retournes pas sur ta feuille de départ
Je te proposerai un truc d'ici quelques minutes... Cordialement, Michel

   
Répondre à michel_m

2

michel_m, le 18 mai 2009 à 11:56:16

Comme promis... 

For i = 5 To 17
    For k = 1 To 7
        If Cells(i, 2) = k Then
            With Sheets("Feuil1").Cells(11 + i, 2 + k)
                .Interior.Color = RGB(221, 221, 221)
                 .Font.Bold = True
                .Font.ColorIndex = 16
            End With
        End If
    Next k
Next i
Cordialement, Michel

   
Répondre à michel_m

3

 La pitufita, le 18 mai 2009 à 13:51:30

Ca marche en effet
Merci beaucoup!
:)

   
Répondre à La pitufita
Posez votre question Répondre
Ils ont besoin de votre aide