appeler un onglet spécifique ds un classeur ?

[Guesh]

Bonjour à tous !!

Voila, je suis novice en VBA, j'ai suivi pas à pas un exemple de code que j'ai trouvé sur le net et j'ai voulu le réutiliser en le modifiant pour m'entrainer.
Malheureusement comme tout novice j'ai un problème.

Donc j'ai créer un Userform et à l'intérieur j'ai un Combobox que j'appelle CboOnglet et qui me permet de choisir parmi la liste suivante : Sept; Oct; Nov; Déc; Janv; ou Fév.
A côté de ça j'ai nommé mes 6 onglets du classeur concerné par le code exactement de la même façon, c'est à dire: Sept; Oct; Nov; Déc; Janv; ou Fév, de telle sorte que quand je clic sur une des 6 données de ma CboOnglet, les données (entrées par l'utilisateur)s'inscrivent dans la feuille en question.

J'ai donc codé de la façon suivante :

Private Sub CmdOK_Click()

blablabla....

num = Sheets(CboOnglet.Value).Range('A65536').End(x1Up).Row + 1

Sheets(CboOnglet.Value).Activate

Range('A' & num).Value = TxtTitre.Value
Range('B' & num).Value = TxtOrigine.Value
Range('C' & num).Value = CboTypePlat.Value

End Sub

Tout ca pour dire que mon erreur doit surement venir de Sheets(CboOnglet.Value) , mais je ne vois pas d'autres façons pour appeler une certaine feuille.


Je me rends comptes que c'est assez difficile d'expliquer un problème . Surtout qd on débute. J'espere avoir ete precis.

Merci de bien vouloir m'aider

 

[CBernardT]

Bonjour Guesh,

Vite fait, essayes ce code :

Sub macro1()
Dim Num As Long
' Définition de la ligne
Num = Sheets(UserForm1.CboOnglet).Range('A65536').End(xlUp).Row + 1
'Report des valeurs dans le tableau
With Sheets(UserForm1.CboOnglet)
.Range('A' & Num).Value = UserForm1.TxtTitre
.Range('B' & Num).Value = UserForm1.TxtOrigine
.Range('C' & Num).Value = UserForm1.CboTypePlat
End With

End Sub

Cordialement

Bernard

 

[coco_lapin]

Guesh, j'ai trouvé quelque chose de bizarre, j'ai adapté ton code en placant 'Feuil2' à la place de CboOnglet.Value.
Cela ne fonctionne pas (une erreur 1001 se produit). Par contre la ligne 1 que j'ai saisi à la main fonctionne.
Tu pourrais essayer de supprimer ta ligne et de la resaisir à la main.
Voici l'exemple.

sub es()

'La ligne 1 qui fonctionne
dgfdf = Sheets('Feuil2').Range('A65536').End(xlUp).Row + 1

'la ligne qui ne fonctionne pas
gfhfh = Sheets('Feuil2').Range('A65536').End(x1Up).Row + 1

end sub

 

[_Thierry]

Bonsoir Coco, Bernard, Guesh, le Forum

Par expérience de vieux loup de mer, ou encore de vieux singe à qui on apprend plus à faire des grimaces force d'avoir essayé multitude de barbatrucs... Voici une astuce qui m'enlève bien des 'soucy' quand j'appelle une feuille depuis une ListBox ou une ComboBox:

Au lieu de :
Sheets(CboOnglet.Value).Activate

J'écris toujours :
Sheets(Cstr(CboOnglet.Value)).Activate

En effet le fait de convertir en String la valeur de la ComboBox permettra mieux à VBA de passer un nom d'onglet (même si pourtant logiquement la valeur 'Sept' est bien une String, il vaut mieux forcer avec 'Cstr'...)

Bonne Soirée
[ol]@+Thierry[/ol]

 

[Guesh]

Merci à tous !!

je crois que je vais utiliser la méthode du vieux loup de mer !!