Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Daniel, Tu peux essayer avec cette modification :
Sub macro_test2() ' Macro enregistrée le 2003-09-29 par Daniel 'modifiée sur MPFE le 02/10/2003 Dim leCrit leCrit¬tiveCell.value Windows("Insp_RDP.xls:3").Activate Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Windows("Insp_RDP.xls:1").Activate ActiveCell(6, 1).Select End Sub
Celà convient il ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Daniel" a écrit dans le message de news:r1Keb.105607$
Merci a l'avance pour le petit coup de main
Dans cette macro je voudrait que le critère soit ce qui est dans la cellule selectionner (ou est mon curseur).
Sub macro_test() ' ' Macro4 Macro ' Macro enregistrée le 2003-09-29 par Daniel '
' ActiveCell(2, 12).Select Windows("Insp_RDP.xls:3").Activate Selection.AutoFilter Field:=2, Criteria1:="=[]", Operator:=xlAnd Windows("Insp_RDP.xls:1").Activate ActiveCell(6, 1).Select End Sub
Bonjour Daniel,
Tu peux essayer avec cette modification :
Sub macro_test2()
' Macro enregistrée le 2003-09-29 par Daniel
'modifiée sur MPFE le 02/10/2003
Dim leCrit
leCrit¬tiveCell.value
Windows("Insp_RDP.xls:3").Activate
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Windows("Insp_RDP.xls:1").Activate
ActiveCell(6, 1).Select
End Sub
Celà convient il ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:r1Keb.105607$Wk2.1929418@weber.videotron.net...
Merci a l'avance pour le petit coup de main
Dans cette macro je voudrait que le critère soit ce qui est dans la cellule
selectionner (ou est mon curseur).
Sub macro_test()
'
' Macro4 Macro
' Macro enregistrée le 2003-09-29 par Daniel
'
'
ActiveCell(2, 12).Select
Windows("Insp_RDP.xls:3").Activate
Selection.AutoFilter Field:=2, Criteria1:="=[]", Operator:=xlAnd
Windows("Insp_RDP.xls:1").Activate
ActiveCell(6, 1).Select
End Sub
Bonjour Daniel, Tu peux essayer avec cette modification :
Sub macro_test2() ' Macro enregistrée le 2003-09-29 par Daniel 'modifiée sur MPFE le 02/10/2003 Dim leCrit leCrit¬tiveCell.value Windows("Insp_RDP.xls:3").Activate Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Windows("Insp_RDP.xls:1").Activate ActiveCell(6, 1).Select End Sub
Celà convient il ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Daniel" a écrit dans le message de news:r1Keb.105607$
Merci a l'avance pour le petit coup de main
Dans cette macro je voudrait que le critère soit ce qui est dans la cellule selectionner (ou est mon curseur).
Sub macro_test() ' ' Macro4 Macro ' Macro enregistrée le 2003-09-29 par Daniel '
' ActiveCell(2, 12).Select Windows("Insp_RDP.xls:3").Activate Selection.AutoFilter Field:=2, Criteria1:="=[]", Operator:=xlAnd Windows("Insp_RDP.xls:1").Activate ActiveCell(6, 1).Select End Sub
