choix dans macro

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2006

• #2

Bonjour

Je n'ai pas compris si tu as le nom de ton modele d'inscrit en G33 ou si cela depend de la valeur de G33

Exemple 1er cas

MonModele=sheets('constantes').range('G33')
Sheets(MonModele).Copy

Exemple 2ème cas

MonModele=iif(sheets('constantes').range('G33')=1,modele1,modele2)
Sheets(MonModele).Copy

Bon courage

Message édité par: Pascal76, à: 18/04/2006 18:13

 

Vote positif 0 Vote négatif

D

darib52

Guest

• 18 Avril 2006

• #3

dans les 2 cas il y a erreur d'exécution '9'
l'indice n'appartient pas à la sélection.

ma demande correspond à ta 1ère proposition.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2006

• #4

Re

Donne plus de renseignements STP

 

Vote positif 0 Vote négatif

D

darib52

Guest

• 18 Avril 2006

• #5

extrait de la macro

.Wrap = wdFindContinue
End With
docwd.Range.Find.Execute Replace:=wdReplaceAll
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Sheets('modele').Copy After:=Worksheets(Sheets.Count)
Nom = InputBox('Entrez le nom pour la feuille à créer.', 'Fiche AEFF')
Nom = UCase(Nom)

la 1ère solution proposée correspond à ma demande.
mais génère l'erreur précitée.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2006

• #6

Re

les renseignements que j'aimerai connaitre concernent la cellule G33 ce qu'il y a dedans et quelle modele en fonction de la cellule G33

 

Vote positif 0 Vote négatif

D

darib52

Guest

• 18 Avril 2006

• #7

en pj [file name=constantes.zip size=23623]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/constantes.zip[/file]

 

Pièces jointes

• constantes.zip

  23.1 KB · Affichages: 16

Vote positif 0 Vote négatif

D

darib52

Guest

• 18 Avril 2006

• #8

ça fonctionne.
en fait je n'avais pas oté les '' de sheets('modele').copy

avec toutes mes excuses.

merci pour tout.
amitiés.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 18 Avril 2006

• #9

Re

Bon bah tant mieux que tu ais trouvé.

Bonne soirée

 

Vote positif 0 Vote négatif