Petit coup de pouce en VBA siouplai
Petit coup de pouce en VBA siouplai - Programmation
Marsh Posté le 22-02-2002 à 14:44:28
Essaye:
Sheets(NewSheet.Name).Select
Mais bon je ne connais pas trop VBA... 
Marsh Posté le 22-02-2002 à 14:53:25
Ca a marché ....
En tout cas, tu connais toujours plus que moi ....
Grand merci, je vais pouvoir continuer cette 
de macro
---------------
La terre est le berceau de l'humanité. L'homme ne peut vivre éternellement dans son berceau.
Sujets relatifs:
- C'est koi déja ?! (petit pbm en Delphi)
- [VBA] macro qui ....!!?
- VBA jgalere et pourtant
- [VBA] Word image embedded
- tout petit rapel en javascript qui ne vous prendra pas de temp!
- [C++] Probleme avec un petit programme
- [php] arghh! un coup de main pour débugger ce code?? siouplait
- [ C ] Cherche idée de petit jeu à faire (newbie inside)
- [SQL] J'ai un petit prob avec un Update ...
- [VBA]Pb avec Verrouiller le projet pour l'affichage
Marsh Posté le 22-02-2002 à 14:36:17
Suis pas programmeur, mais je chipotte un peu en VBA
Soit le code suivant pour Excel XP :
Set Dernier = ActiveSheet.Cells.SpecialCells(xlLastCell) 'reprend le nombre de ligne dans la feuille
For i = 1 To Dernier
Set nom = Worksheets("temp" ).Cells(i, 1) ' la variable nom reprend successivement le contenu des cellules de la 1ère colonne
Set NewSheet = Worksheets.Add
NewSheet.Name = nom 'il me crée une feuille reprenant le nom contenu dans la cellule
...
...
Sheets(nom).Select 'le but étant de sélectionner la feuille nouvellement créée ....
Et à cette ligne il me renvoit un vilain : "Run time error 13 : Type mismatch"
Une idée ????
Merci
---------------
La terre est le berceau de l'humanité. L'homme ne peut vivre éternellement dans son berceau.