Extraire colonnes tableau

[rudymagny]

Bonsoir XLDnautes!

J'ai une tite question!
J'ai tableau avec des indicateurs, et avec des colonnes qui définissent le mois!
Pour envoyer ces indicateurs par mail aux intéressés, je voudrais créer un autre tableau à partir de celui là en y faisant apparaitre que la colonne du mois concerné!
Je sais pas si je me suis bien fais comprendre?

Je met un fichier en exemple pour le mois d'avril en feuille 1 'avant' et feuille 2 'après'

Merci d'avance

 

[bert]

Tu n'as pas mis ton fichier en exemple

ça va moins bien pour comprendre...
bert

 

[rudymagny]

j'avais fais un rar

[file name=Exemple_20060307194021.zip size=3766]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_20060307194021.zip[/file]

 

[rudymagny]

Précision:

Tout mon appli est en VBA et je voudrais faire ça avec un button;
Kan on clic sur le button il crée le nouveau tableau avec le mois concerné sous le C:\\ par exemple.

On pourrais sélectionner le mois avec une combobox?

Merci d'avance

 

[pat1545.]

Salut,

un début avec ceci


Patrick [file name=ExempleMasquer.zip size=19081]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleMasquer.zip[/file]

 

[rudymagny]

Bonjour le forum!

Merci pat1545 ! ça fait plaisir de se lever avec ça !
je vais l'adapter à mon appli et je pense que c bon!

Merci @+ tard et bonne journée

 

[rudymagny]

bonjour pat1545 et le forum!

J'ai un ti souci avec une partie du code:

Sub Masquer(aa)
'Sheets('TVAL225').Select
Dim cell
For Each cell In Range('C3:N3')
If Not UCase(cell) = UCase(aa) Then cell.EntireColumn.Hidden = True
Next
End Sub

le UCase pose une erreur sous excel 2002 mais po sous 97:
erreur de compilation: projet ou bibliothèque introuvable

je sais po pourkoi?

merci d'avance

 

[pat1545.]

re,

je ne plus pourquoi mais à la limite tu peux enlever les 2 ucase()
(pas essayé)
Patrick

 

[rudymagny]

bonsoir le forum, pat1545

je vois po comment je peux remplacer le ucase!

j'ai supprimé la ligne :
If Not UCase(cell) = UCase(aa) Then cell.EntireColumn.Hidden = True

et ça ne fonctionne pas et j'ai essayer de retirer la condition :
cell.EntireColumn.Hidden = True

et ça marche po non plus!

je vais continuer à chercher mais un ti coup de main serait le bienvenue.

Merci d'avance

 

[rudymagny]

trop fatigué le mec, c la fin de la semaine !

j'ai fais ça et ça marche!

If Not cell = aa Then cell.EntireColumn.Hidden = True

merci @ bientôt