Bonjour,
J'aimerais savoir comment afficher les colonnes qui sont masquées sous excell?
vu qu'elles ne sont plus là, je n'arrive plus à les sélectionner..donc difficile de faire "afficher" lol.
Merci d'avance.
Bonne journée
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
Moi j'ai créé un fichier excel , pour le trier, j'utilise VBA.
Voici mon problème: je veux faire des tries par colonne; une fois les tries effectués, je n'arrive plus à afficher toutes les colonnes.
Comments afficher toutes les colonnes cachées avec VBA ( en utilisant un bouton de commande)
essaye ceci :
Cells.Select Selection.EntireColumn.Hidden = Falsej'ai créé un bouton pour afficher les trimestres,
un autre pour affiché les résultats en année
mais j'aimerai un autre pour afficher toute les colonnes voila xce que j'ai fais/
*** Pour afficher les années
Private Sub CommandButton1_Click()
Dim i As Long
For i = 12 To 47 'la macro vérifie les colonnes 12 à 47, (de L à AS)
'the program check the columns 12 to 47 (from L to AS)
If Cells(1, i).Value = 2 Then ' la macro vérifie les cellules de la 1ère colonne uniquement
' si une cellule est égale à 2 alors :
'the program check only the cells of the first column
' if a cell = 1 then :
Cells(1, i).EntireColumn.Hidden = True 'la macro cache la colonne en entier
'the program hide the entire column
If Cells(1, i).Value = 0 Then ' la macro vérifie les cellules de la 1ère colonne uniquement
' si une cellule est égale à 2 alors :
'the program check only the cells of the first column
' if a cell = 2 then :
Cells(1, i).EntireColumn.Show = True 'la macro cache la colonne en entier
'the program hide the entire column
End If
End If
Next i
End Sub
**Pour afficher les années
Private Sub CommandButton2_Click()
Dim i As Long
For i = 12 To 47 'la macro vérifie les colonnes 12 à 47, (de L à AS)
'the program check the columns 12 to 47 (from L to AS)
If Cells(1, i).Value = 1 Then ' la macro vérifie les cellules de la 1ère colonne uniquement
' si une cellule est égale à 1 alors :
'the program check only the cells of the first column
' if a cell = 1 then :
Cells(1, i).EntireColumn.Hidden = True 'la macro cache la colonne en entier
'the program hide the entire column
If Cells(1, i).Value = 0 Then ' la macro vérifie les cellules de la 1ère colonne uniquement
' si une cellule est égale à 1 alors :
'the program check only the cells of the first column
' if a cell = 1 then :
Cells(1, i).EntireColumn.Show = True 'la macro cache la colonne en entier
'the program hide the entire column
End If
End If
Next i
End Sub
merci d'ailleurs!