Macro
Résolu/Fermé
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
8 réponses
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
2 déc. 2010 à 22:25
2 déc. 2010 à 22:25
Bonsoir,
Soi un peu plus précis sur ce que tu veux comme résultat....
Masquer les autres colonnes ?
Leur total en colonne A ?
Autre chose ?
eric
Soi un peu plus précis sur ce que tu veux comme résultat....
Masquer les autres colonnes ?
Leur total en colonne A ?
Autre chose ?
eric
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
243
2 déc. 2010 à 22:29
2 déc. 2010 à 22:29
Bonsoir,
Voici un exemple en utilisant une liste déroulante et RECHERCHEH
https://www.cjoint.com/?0mcwBpQAzhH
Sinon, la fonction DECALER aurait été plus indiqué pour l'exemple... si une âme charitable veut s'y coller.
Voici un exemple en utilisant une liste déroulante et RECHERCHEH
https://www.cjoint.com/?0mcwBpQAzhH
Sinon, la fonction DECALER aurait été plus indiqué pour l'exemple... si une âme charitable veut s'y coller.
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
2 déc. 2010 à 22:40
2 déc. 2010 à 22:40
bonjour à tous,
créer une macro qui me permet de uniquement avoir l'année 2008 de A,B,C
En fonction de ce que j'ai compris de ta demande, tu peux essayer cela :
créer une macro qui me permet de uniquement avoir l'année 2008 de A,B,C
En fonction de ce que j'ai compris de ta demande, tu peux essayer cela :
Public Sub affiche_année()
Dim ann As Integer
Dim c As Integer
Dim l As Integer
l = 3 ' ligne des années
ann = Application.InputBox("Saisissez l'année souhaitée", "Choix année")
For c = 1 To Cells(l, Rows(1).Cells.Count).End(xlToLeft).Column
If Cells(l, c).Value <> ann And Cells(l, c).Value <> "" Then
Columns(c).Hidden = True
Else
Columns(c).Hidden = False
End If
Next c
End Sub
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
2 déc. 2010 à 23:18
2 déc. 2010 à 23:18
Tu n'as pas à créer une Inputbox : c'était pour choisir l'année.
Si tu saisis en O3 tu mets cette macro qui est automatique au changement de la cellule
Il faut que ta saisie de date soit sur la même ligne que les autres dates sinon tu ne peux plus saisir.
Si tu saisis en O3 tu mets cette macro qui est automatique au changement de la cellule
Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect([O3], sel) Is Nothing Then
Dim c As Integer
Dim l As Integer
l = 3 ' ligne des années
For c = 1 To Cells(l, Rows(1).Cells.Count).End(xlToLeft).Column
If Cells(l, c).Value <> sel.Value And Cells(l, c).Value <> "" Then
Columns(c).Hidden = True
Else
Columns(c).Hidden = False
End If
Next c
End If
End Sub
Il faut que ta saisie de date soit sur la même ligne que les autres dates sinon tu ne peux plus saisir.
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
243
Modifié par tchernosplif le 2/12/2010 à 22:46
Modifié par tchernosplif le 2/12/2010 à 22:46
J'ai ajouté la fonction DECALER sur ce classeur.
https://www.cjoint.com/?0mcwUO6zCnf
https://www.cjoint.com/?0mcwUO6zCnf
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Super tchernosplif c'est du bon travail, eriic si tu veux un exemple tchernosplif a bien compris ce que je voulais mais l'ennui c'est que je voudrais que ca le fasse directement sur les colonnes je ne souhaiterais pas créer des colonnes supplémentaires c'est possible ? Par contre je garde ton fichier tchernosplif c'est une bonne méthode je connaissais pas :-)
Si tu veux une exemple je t''ai mis le résultat que j'aurais souhaité avoir :-)
https://www.cjoint.com/?0mcwVhFboUt
Si tu veux une exemple je t''ai mis le résultat que j'aurais souhaité avoir :-)
https://www.cjoint.com/?0mcwVhFboUt
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
243
2 déc. 2010 à 22:51
2 déc. 2010 à 22:51
la macro d'eriiic répond exactement à ton besoin
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
Modifié par Le Pingou le 2/12/2010 à 23:15
Modifié par Le Pingou le 2/12/2010 à 23:15
Bonjour,
Au passage, je vous encourage a essayé la procédure de gbinforme qui résous votre problème d'une manière efficace.
J'ai inséré sa procédure dans votre fichier, il suffit d'un clic sur le bouton et vous ... !
Le fichier : https://www.cjoint.com/?3mcxoOen4SN
Au passage, je vous encourage a essayé la procédure de gbinforme qui résous votre problème d'une manière efficace.
J'ai inséré sa procédure dans votre fichier, il suffit d'un clic sur le bouton et vous ... !
Le fichier : https://www.cjoint.com/?3mcxoOen4SN
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
2 déc. 2010 à 23:22
2 déc. 2010 à 23:22
Bonjour,
Croisement de message, regardez à nouveau mon poste, J'ai joint le fichier.
Croisement de message, regardez à nouveau mon poste, J'ai joint le fichier.