Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Help

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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Papou
Bonjour
Activesheet.Range("A1").Value = "Texte"
Cordialement
Pascal

"Toto" a écrit dans le message de
news:
Bonjour

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.Add
ActiveSheet.Name = "Liste"
[a1].Value = "Texte"
End Sub

Merci d'avance
Toto



Avatar
Toto
Merc
Avatar
Toto
Encore une petite questio

Comment deplacer ma nouvelle feuille à la fin de la liste des feuille

Merci
Avatar
Papou
Si la feuille est active :
ActiveSheet.Move after:=Worksheets(Sheets.Count)
Sinon
Worksheets("NomdeTaFeuille").Move after:=Worksheets(Sheets.Count)
Cordialement
Pascal

"Toto" a écrit dans le message de
news:
Encore une petite question

Comment deplacer ma nouvelle feuille à la fin de la liste des feuilles

Merci


Avatar
Toto
Encore plus dur maintenan

Je veux copier un tableau de la feuille Sheet1 vers la nouvelle feuill
J'ai donc fait le selection du tableau avant de creer la nouvelle feuille mais je n'arrive pas a la copier (je ne sais pas comment faire

Private Sub CommandButton1_Click(
Range("A5", [A5].End(xlDown)).Cop
Worksheets.Ad
ActiveSheet.Name = "Liste
ActiveSheet.Range("A1").Select
?????
end Su

Est vraiment la bonne solutio
Sinon comment copier des cellule et tableau d'autres feuille vers celle c
Avatar
Papou
Sheets.Add
With ActiveSheet
.Name = "Liste"
.Paste
End With

Cordialement
Pascal

.
"Toto" a écrit dans le message de
news:
Encore plus dur maintenant

Je veux copier un tableau de la feuille Sheet1 vers la nouvelle feuille
J'ai donc fait le selection du tableau avant de creer la nouvelle feuille
mais je n'arrive pas a la copier (je ne sais pas comment faire)


Private Sub CommandButton1_Click()
Range("A5", [A5].End(xlDown)).Copy
Worksheets.Add
ActiveSheet.Name = "Liste"
ActiveSheet.Range("A1").Select
??????
end Sub


Est vraiment la bonne solution
Sinon comment copier des cellule et tableau d'autres feuille vers celle ci




Avatar
Toto
J'ai fait autrement pour les copie

Worksheets.Ad
ActiveSheet.Name = "Liste
Range("G5", [G5].End(xlDown)).Copy Sheets("Liste").[B1
Range("E5", [E5].End(xlDown)).Copy Sheets("Liste").[C1
Range("F5", [F5].End(xlDown)).Copy Sheets("Liste").[D1
Range("C5", [C5].End(xlDown)).Copy Sheets("Liste").[E1
ActiveSheet.Move after:=Worksheets(Sheets.Count

Mais maintenant j'ai un pb lorsque je veux executer la commande suivant
Do While Not (IsEmpty(Range("B" & NumCell))
MsgBox (Range("B" & NumCell)
NumCell = NumCell +
Loo

La cellule (Range("B" & NumCell))) est celle de la feuille de départ et non celle de la nouvelle feuill
j'ai essaye avec with Activesheet et end with mais ca ne marche pa

Tot
Il prend en reference
Avatar
Papou
Il faut faire référence "complète" à ta feuille et utiliser plutôt Cells :
Do While Not IsEmpty
(Thisworkbook.workSheets("TaFeuille").Cells(NumCell,"B"))
MsgBox Thisworkbook.workSheets("TaFeuille").Cells(NumCell,"B")

Cordialement
Pascal

"Toto" a écrit dans le message de
news:
J'ai fait autrement pour les copies

Worksheets.Add
ActiveSheet.Name = "Liste"
Range("G5", [G5].End(xlDown)).Copy Sheets("Liste").[B1]
Range("E5", [E5].End(xlDown)).Copy Sheets("Liste").[C1]
Range("F5", [F5].End(xlDown)).Copy Sheets("Liste").[D1]
Range("C5", [C5].End(xlDown)).Copy Sheets("Liste").[E1]
ActiveSheet.Move after:=Worksheets(Sheets.Count)


Mais maintenant j'ai un pb lorsque je veux executer la commande suivante
Do While Not (IsEmpty(Range("B" & NumCell)))
MsgBox (Range("B" & NumCell))
NumCell = NumCell + 1
Loop

La cellule (Range("B" & NumCell))) est celle de la feuille de départ et
non celle de la nouvelle feuille

j'ai essaye avec with Activesheet et end with mais ca ne marche pas

Toto
Il prend en reference


Avatar
Toto
J'ai maintenat une erreur au niveau du Range...

Range("E1", [E1].End(xlDown)).Selec
'Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess,
'OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom,
'DataOption1:=xlSortNorma

J'ai essaye avec Worksheets("liste").Range("E1", [E1].End(xlDown)).Selec
mais ca ne fonctionne pa

Tot
Avatar
Papou
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