Macro
Résolu
Sourire
-
Sourire -
Sourire -
Bonjour,
https://www.cjoint.com/?0mcwcHLNADS
Est-ce que quelqu'un aurait la gentillesse me faire une petite marco pour afficher l'année que je souhaite de toutes les colonnes ?
https://www.cjoint.com/?0mcwcHLNADS
Est-ce que quelqu'un aurait la gentillesse me faire une petite marco pour afficher l'année que je souhaite de toutes les colonnes ?
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
8 réponses
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
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.
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
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.
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
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
