OVH Cloud OVH Cloud

Help

11 réponses
Avatar
Toto
Bonjou

Je veux a partir d'un bouton sur une feuille excel, creer une nouvelle feuille et ecrire "Texte" dans la cellule A1 de cette nouvelle feuille.
La nouvelle feuille est bien cree mais "Texte" est ecrit dans A1 de la feuille ou il y a le bouton

Voici le code du bouton
Private Sub CommandButton1_Click(
Worksheets.Ad
ActiveSheet.Name = "Liste
[a1].Value = "Texte
End Su

Merci d'avance
Tot

1 réponse

1 2
Avatar
Papou
Rectification :
La 1ère syntaxe est bien correcte Range("E1", [E1].End(xlDown)).Select
donc il s'agit d'un autre problème ?
Cordialement
Pascal

"Papou" a écrit dans le message de news:
#
Normal, la syntaxe suivante n'est pas correcte
Range("E1", [E1].End(xlDown)).Select
tu peux utiliser :
Range("E1", Range("E1").End(xlDown)).Select

Cordialement
Pascal

"Toto" a écrit dans le message de
news:
J'ai maintenat une erreur au niveau du Range....

Range("E1", [E1].End(xlDown)).Select
'Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess,
_


'OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal

J'ai essaye avec Worksheets("liste").Range("E1",
[E1].End(xlDown)).Select


mais ca ne fonctionne pas

Toto







1 2