Problème de macro

[mouss2501]

Bonjour à tous,

J'ai un tableau sous excel avec 21 colonnes et 2400 lignes.
Mon problème et le suivant:

il y a une colonne qui s'appelle Nom CA, et je vous par je ne sais quel moyen que je puise rentrer le nom du CA dans une case et qu'il me donne toutes les lignes du CA concerné (CA = chargé d'affaire)
Merci d'avance et bon week

 

[SergiO]

Re : Problème de macro

Re,

Tu mets ce code dans un module puis tu lui affectes un bouton:

Sub Afficher()
Columns("A:E").EntireColumn.Hidden = False
Columns("G:G").EntireColumn.Hidden = False
Columns("K:U").EntireColumn.Hidden = False
Rows("1:10").EntireRow.Hidden = False
End Sub

@+

 

[mouss2501]

Re : Problème de macro

Mais le bouton je le met où ?

 

[SergiO]

Re : Problème de macro

Re,

Même principe que le bouton Réinitialiser, tu le trouveras dans la boite à outils Formulaires.

@+

 

[mouss2501]

Re : Problème de macro

une dernière chose dans la colonne O il y à des date et quand il rentrer son nnom je voudrais que les lignes ou il y a une date, elle ne figure pas sur le tableau du ra

 

[SergiO]

Re : Problème de macro

Re,

Voici une solution.

1 - Remplacer ce code:

Private Sub Workbook_Open()
Dim CA As String
CA = InputBox("Entrer votre nom:", "Identification")
If CA = "" Then
Call Initialise
Else
[F5] = CA
[COLOR=Red] Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F5").Value & "*"
Selection.AutoFilter Field:=15, Criteria1:="="
Range("F5").Select[/COLOR]
Columns("A:E").EntireColumn.Hidden = True
Columns("G:G").EntireColumn.Hidden = True
Columns("K:U").EntireColumn.Hidden = True
Rows("1:10").EntireRow.Hidden = True
End If
End Sub

2 - Rajouter cette ligne à la suite de Selection.AutoFilter Field:=4 dans le code Initialise:

Selection.AutoFilter Field:=15

@+

 

[mouss2501]

Re : Problème de macro

Voici mon code actuel


Private Sub Workbook_Activate()


End Sub

Private Sub Workbook_Open()
Dim CA As String
CA = InputBox("Entrer votre nom ou annuler", "Identification")
If CA = "" Then
Call Initialise
Else
[F5] = CA
Call Recherche
Columns("B").EntireColumn.Hidden = True
Columns("G:G").EntireColumn.Hidden = True
Columns("O:R").EntireColumn.Hidden = True
Columns("T:T").EntireColumn.Hidden = True
Rows("1:10").EntireRow.Hidden = True
Rows("2411:2545").EntireRow.Hidden = True
End If
End Sub

Que faut-iol que je fasse ?

 

[SergiO]

Re : Problème de macro

1 - Remplace Call Recherche par ce qui est en rouge dans mon message précédent.

2 - Rajoute cette ligne à la suite de Selection.AutoFilter Field:=4 dans le module1 de la macro Initialise:

Selection.AutoFilter Field:=15

 

[mouss2501]

Re : Problème de macro

le chiffre 15 c'est pour la 15ème cellule ?

 

[mouss2501]

Re : Problème de macro

Dans mon module est ce juste ?

Option Explicit

Sub Recherche() ' LJA
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F5").Value & "*", Operator:=xlAnd
Range("F5").Select
End Sub

Sub Initialise()
Selection.AutoFilter Field:=6
Range("F5").Value = "NOM CA"
Selection.AutoFilter Field:=4
Range("D5").Value = "AGENCE"
End Sub

Sub Rechercheagence() ' LJA
Selection.AutoFilter Field:=4, Criteria1:="*" & Range("D5").Value & "*", Operator:=xlAnd
Range("D5").Select
Selection.AutoFilter Field:=15
End Sub

 

[mouss2501]

Re : Problème de macro

OK ça a l'air de fonctionner
Mainteant et dernière chose je pense,
Et-il possible en même temps que le Ra rentre son nomm il puisse rentrer une date d'échéance (ex: < ou = au 31/01/08)?

 

[mouss2501]

Re : Problème de macro

Bonjour à tous
OK ça a l'air de fonctionner
Mainteant et dernière chose je pense,
Et-il possible en même temps que le Ra rentre son nomm il puisse rentrer une date d'échéance (ex: < ou = au 31/01/08)?

 

[SergiO]

Re : Problème de macro

Bonjour,

Voici une solution avec une 2ème inputbox, pour le faire en même temps qie le nom, il faut passer par un Userform.

Private Sub Workbook_Open()
Dim CA As String
Dim Echeance
CA = InputBox("Entrer votre nom:", "Identification")
Echeance = InputBox("Entrer la date d'écheance maxi (jj/mm/aa):", "Date d'écheance")
If CA = "" Then
Call Initialise
Else
[F5] = CA
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F4").Value & "*"
Selection.AutoFilter Field:=12, Criteria1:="<=" & Format(Echeance, "0")
Selection.AutoFilter Field:=15, Criteria1:="="
'... la suite

 

[mouss2501]

Re : Problème de macro

Bonjour et merci mais cela ne fopnctionne pas voici ce que j'ai :

Private Sub Workbook_Open()
Dim CA As String
CA = InputBox("Entrer votre nom ou annuler", "Identification")
Echeance = InputBox("Entrer la date d'écheance maxi (jj/mm/aa):", "Date d'écheance")
If CA = "" Then
Call Initialise
Else
[F5] = CA
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F4").Value & "*"
Selection.AutoFilter Field:=12, Criteria1:="<=" & Format(Echeance, "0")
Selection.AutoFilter Field:=15, Criteria1:="="
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F5").Value & "*"
Selection.AutoFilter Field:=15, Criteria1:="="
Range("F5").Select
Columns("B").EntireColumn.Hidden = True
Columns("G:G").EntireColumn.Hidden = True
Columns("O:R").EntireColumn.Hidden = True
Columns("T:T").EntireColumn.Hidden = True
Rows("1:6").EntireRow.Hidden = True
Rows("2411:2545").EntireRow.Hidden = True
End If
End Sub

 

[SergiO]

Re : Problème de macro

Bonjour,

J'ai corrigé ton code:

 Private Sub Workbook_Open()
Dim CA As String
CA = InputBox("Entrer votre nom ou annuler", "Identification")
Echeance = InputBox("Entrer la date d'écheance maxi (jj/mm/aa):", "Date d'écheance")
If CA = "" Then
Call Initialise
Else
[F5] = CA
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F5").Value & "*"
Selection.AutoFilter Field:=12, Criteria1:="<=" & Format(Echeance, "0")
Selection.AutoFilter Field:=15, Criteria1:="="
Range("F5").Select
Columns("B:D").EntireColumn.Hidden = True
Columns("G:G").EntireColumn.Hidden = True
Columns("O:R").EntireColumn.Hidden = True
Columns("T:T").EntireColumn.Hidden = True
Rows("1:6").EntireRow.Hidden = True
Rows("2411:2545").EntireRow.Hidden = True
End If
End Sub

Teste et dis nous.
@+

 

[mouss2501]

Re : Problème de macro

Bonjour,
Non cela ne fonctionne toujours pas.
Il me met en surbrillance le mot ECHEANCE et en jaune Private Sub Workbook_Activate()