poussy67
XLDnaute Occasionnel
Bonjour le Forum
J'ai un souci sur une VBA que j'ai copier sur le forum, qui copie et colle dans des feuilles bien précise, jusqu’à la tout fonctionne.
Quand j'insère une feuille (BD), lors du traitement les données disparaisses sauf sur une feuille1 (Z_Art_Stock). Dans la VBA il y a
If sh.Name <> "Z_Art_Stock" Then exclus la feuille lors de la mise a jour des feuilles (efface les anciens données). J'ai essaye de
ajouter le fonction Array mais sans résultat en ajoutant . Je fais appelle au pro pour un coup de pouce .
en vous remerciant d'avance
Dim pl As Range
Dim F1
Set pl = Sheets("Z_Art_Stock").Range("Base")
pl.Name = "Base"
For Each sh In Sheets
F1 = Array("Z_Art_Stock", "BD")
If sh.Name <> "F1" Then '--------------KO ne fonctionne pas
' If sh.Name <> "Z_Art_Stock" Then ' ok
With sh
.[K1] = "Mag1"
.[K2] = sh.Name
pl.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.[K1:K2], CopyToRange:=.Range("A1:J1"), Unique:=False
.[K1:K2].ClearContents
End With
End If
Next sh
Cdt poussy
J'ai un souci sur une VBA que j'ai copier sur le forum, qui copie et colle dans des feuilles bien précise, jusqu’à la tout fonctionne.
Quand j'insère une feuille (BD), lors du traitement les données disparaisses sauf sur une feuille1 (Z_Art_Stock). Dans la VBA il y a
If sh.Name <> "Z_Art_Stock" Then exclus la feuille lors de la mise a jour des feuilles (efface les anciens données). J'ai essaye de
ajouter le fonction Array mais sans résultat en ajoutant . Je fais appelle au pro pour un coup de pouce .
en vous remerciant d'avance
Dim pl As Range
Dim F1
Set pl = Sheets("Z_Art_Stock").Range("Base")
pl.Name = "Base"
For Each sh In Sheets
F1 = Array("Z_Art_Stock", "BD")
If sh.Name <> "F1" Then '--------------KO ne fonctionne pas
' If sh.Name <> "Z_Art_Stock" Then ' ok
With sh
.[K1] = "Mag1"
.[K2] = sh.Name
pl.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.[K1:K2], CopyToRange:=.Range("A1:J1"), Unique:=False
.[K1:K2].ClearContents
End With
End If
Next sh
Cdt poussy