Bonjour
je suis en train de creer un programme qui met a jour suivant les connections les productivites des operatrices
les noms sont differents chaques jour
Voici mon cas
je voudrai que mes feuilles de la veilles soit supprimer puis les nouvelles crees a jour
avec le codes utilises exell bug car je supprime et cree une par une les feuilles
Ma question est comment selectionner plusieurs feuil en VB j'ai essayer avec
Sheets(Array("DUPONT", "MAZZOLENI", "KEDZIERSKI", "FLANQUART", "CAUDRON", "GALAND", _
"BOURSIN", "NIO", "THUILLIEZ", "NAWROCIK", "CHALLAL", "DABROWSKI N", "MOUNINE", "MACQ" _
)).Select
avec des variable pour nom de feuil mais AIE ca passe pas
sinon voici les code pour suppression et creation (qui bug)
' supression des feuilles
Sheets("Resultat").Select
Range("s1").Select
OPER1 = ActiveCell.Value
If OPER1 = 0 Then
GoTo suite1:
Else
OPER = OPER1 + 6
Sheets("ORIGINAL").Select
ActiveSheet.Next.Select
For cpt = 7 To OPER Step 1
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Next cpt
suite1:
Sheets("Resultat").Select
Range("a3:I800").Select
Selection.ClearContents
End If
Sheets("BASE").Select
Application.DisplayAlerts = True
'boucle d'indexation des noms et creation de la feuille OP
Do While (True)
If ActiveCell = "" Then
Exit Do
Else
nom = ActiveCell
Sheets("ORIGINAL").Select
Sheets("ORIGINAL").Copy Before:=Sheets(6)
Sheets("original (2)").Name = nom
merci de votre aide
a bientot j'espere