Re..bonsoir*oui je parle de colonne B et pour la colonne je veut que soit le nombre des lignes limiter suivant le nombre des lignes transférer et numéroter si possible
Merci
Bonjour,J'ai créer ce code mas ça marche pas avec le critère
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e3]) Is Nothing Then Exit Sub
Application.EnableEvents = False: Application.ScreenUpdating = False
Range("a7:h" & Rows.Count).Clear
With Feuil1.Range("a1:h" & Feuil1.UsedRange.Rows.Count)
.AutoFilter Field:=2, Criteria1:=[e3]
.SpecialCells(xlCellTypeVisible).Copy [a7]
.AutoFilter
End With
Application.EnableEvents = True
End Sub
MerciBonjour,
Les noms des binomes sont AA 1...BC 21 (avec espace) et non pas AA1...BC21
Essaye avec ce code
VB:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [e3]) Is Nothing Then Exit Sub Application.EnableEvents = False: Application.ScreenUpdating = False Range("a7:h" & Rows.Count).Clear With Feuil1.Range("a1:h" & Feuil1.UsedRange.Rows.Count) .AutoFilter Field:=2, Criteria1:=[e3] .SpecialCells(xlCellTypeVisible).Copy [a7] .AutoFilter End With Application.EnableEvents = True End Sub
RE...Merci
çà très bien
comment transformer les colonnes A,C,D,E,F,G pas la colonne B?
RE...
comment transformer ????
Je ne comprends pas.
Dans la PJ, la colonne B est supprimée.oui je
Re..bonsoir*oui je parle de colonne B et pour la colonne je veut que soit le nombre des lignes limiter suivant le nombre des lignes transférer et numéroter si possible
Merci
BonjourRe..
Ta phrase est incompréhensible
Dernier tiroir dans ce fil.
Colonne1 numérotée