Re : Modifier les données d'un fichier
Ok,merci. Entre -temps je crois que j'ai réussi à modifier depuis excel 2013 les zones (base ; les_crit ; et critères jusqu' à la colonne "j" incluse.
Voir fichier ci-joint
http://cjoint.com/?3FroBGS3eOZ
J'ai modifié le classeur comme suit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [b2:J10]) Is Nothing Then
Call cherche
End If
End Sub
Et les macros ainsi:
Sub cherche() 'filtrage
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("b1:j2"), Unique:=False
'[a5].Activate
Application.EnableEvents = True
End Sub
Sub afficherTout()
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData 'suspend le filtrage
Application.GoTo [a5], Scroll:=True
[a2:j2].ClearContents
On Error GoTo 0
[a4].RowHeight = 0
Application.EnableEvents = True
End Sub
Sub test()
Application.EnableEvents = True
End Sub
Cependant , j'ai encore du faire une boulette dont j'ignore la cause, car les 3 colonnes que j'ai crées ne réagissent pas comme les précédentes.
Veux-tu bien me remettre sur la bonne voie?
@+