code VB

[Jean-louis]

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

 

[@+Thierry]

Salut Jean Louis, le Forum

Ton problème est dû à la manipulation d'une Array de Sheets...
Regarde cette démo ci-jointe à l'époque je me suis dit, je vais faire une démo car surtout il est vrai qu'on peut vite partir en galère lorsque qu'on manipule des "Sheets" en "Array"... Surtout bien évidemment si les "Sheets" à mettre dans l'"Array" sont variables...

=> Démo Téléchargeable Lien supprimé (18k)

=> Fil de Discussion Lien supprimé


Tu devrais avoir tout ce qu'il te faut.

Bon Aprèm
@+Thierry

 

[Jean-louis]

merci thierry

j'ai du turf ,ca c'est top
super coup de main

A+