END SUB il manque ?

[MARIE74]

B) Bonjour a toutes eta tous

Météo 12° ciel bleu (region Megeve)

Voila mon code et j'ai le message 'end sub attendu' je ne comprend pas pourquoi


Private Sub CommandButton1_Click()
Sub BaseLaiton()
'
' BaseLaiton Macro
' Macro enregistrée le 08/09/2000 par B. PASQUIER
'
' Touche de raccourci du clavier: Ctrl+l
'
Selection.EntireRow.Insert
Sheets('COURBE LAITON').Select
ActiveChart.SeriesCollection(1).XValues = '='TABLEAU VALEURS'!R5C2:R134C2'
ActiveChart.SeriesCollection(1).Values = '='TABLEAU VALEURS'!R5C3:R134C3'
Sheets('TABLEAU VALEURS').Select
ActiveWindow.SmallScroll Down:=-4
End Sub
End Sub


Merci de votre aide

 

[PascalXLD]

Bonjour Marie

Et de 2 Marie car il me semble que tu as déjà fait cette erreur

Private Sub CommandButton1_Click()
Sub BaseLaiton()

Il y a 1 de trop ici

et donc là aussi

End Sub
End Sub

Bonne journée

 

[MARIE74]

B) RE a tous


C'est vrai Pascal76 je viens de le corriger au moment meme ou j'ai recu ton message

Désolée


Merci quand meme


Aaaaah les fins de semaine dur dur

 

[Staple1600]

Bonjour


Ah les joies insoupconnées du CTRL+C, CTRL+V dans VBE....

 

[MARIE74]

B) Re a tous

Salut Staple1600

Tres exacte d'ailleur ce CTRL+C, CTRL+V me provoque une tendinite
de la main gauche

Je vais mettre au point une macro a commande vocale

euh il faudra faire preuve de patience


Bonne journée


Marie