Bonjour,
j'ai un soucis avec VBA si quelqu'un pourras m'aider, je dos créer une Macro qui copie des données depuis une feuils vers une autre en fonction de la valeur de colonne "H", moi je veut copier en fonction de H et D, si la valeur de colonne H commence avec Els* et que la valeur de D=Immo, alors je copie dans la feuil 2
voilà ce que j'ai pu faire
Sheets("Temps Interne - Ressources Brut").Select
Columns("H:H").Select
Selection.AutoFilter
ActiveSheet.Range("$H$1:$H$10000").AutoFilter Field:=1, Criteria1:="ELS*", _
Operator:=xlAnd
Range("G:G,H:H,M:M").Select
Selection.Copy
Sheets("ELS GESTION").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Temps Interne - Ressources Brut").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1:C1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColor = 0
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Range("A1").Select
End Sub
une j'ai créer une Macro qui copier 3 colonnes dans une Feuil à partir d'une autre,