Problème de selection de colonnes dans boucle for

Résolu
cartiers -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Vu votre précieuse aide, je reviens vers vous pour un nouveau détail, mais qui m'embête beaucoup. 
For i = 1 To 10
k = 3 * (i + 1)
l = 11
Range("R" & k) = 0
S = Application.WorksheetFunction.CountA(Range("B" & k & ":P" & k))
Range("R" & k) = S
   For j = 2 To 16
   
        If Sheets("Chapitres").Cells(k, j) <> "" Then
        Sheets("chapitre " & i).Cells(7, l) = Sheets("Chapitres").Cells(k, j).Value
        l = l + 1
        
     End If
      Next j
      
<code>Sheets("chapitre " & i).Range(Columns(S + 1), Columns(50)).Hidden = True
Sheets("chapitre " & i).Range(Columns(1), Columns(S)).Hidden = False

Next i</code>

Dans ce code, je calcule S = nombre de savoirs d'un chapitre.
Je voudrais ensuite mettre un savoir par colonne et cacher les colonnes ne correspondant pas à un savoir (rendre visible seulement les S premières colonnes).
Mais il n'aime pas mon 
Range(Columns(),Columns) ni Range(Cells(),Cells())


Pourriez-vous m'éclairer, s'il vous plait ?
Merci d'avance de votre aide.

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

essaies quelque chose ccomme ceci (pas très joli mais ça devrait) 
For co = 1 To s 
  Columns(co).EntireColumn.Hidden = False 
Next co

bonne journbée
0
cartiers
 
Merci, je n'avais pas eu l'idée de refaire une boucle. Désolée de la bêtise de ma question.
Merci encore.
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
de rien,

mais pas de complexe, il n'y a pas de question bête!

bonne journée
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses