modifier code pour envoyer tableau dans un autre onglet

grisan29 · 6 Juin 2014

bonjour a vous tous
pour faire suite a ce post mais sans rapport direct
https://www.excel-downloads.com/threads/inserer-feuille-avec-nom.220835/

j'ai ce code qui me permet de créer une feuille via un bouton de l'usf et du N° de semaine dans un de ses textbox
donc je voudrais copier le tableau qui est en feuille "Matrice"dans la nouvelle feuille et j'ai un bug

Code:

Sub ajoutfeuillenommée()

Sheets.Add after:=Sheets("Matrice")
ActiveSheet.Name = "S" & SMax
ActiveSheet.Name = "Sem N°" & UserForm1.TextBox1.Value  
With UserForm1
    Sheets("Matrice").Range("D7") = .ComboBox1.Value
End With

Sheets("Matrice").Range("B2:K40").Copy
[COLOR="#FF0000"]ActiveSheet.Paste Destination:=ActiveSheet.Name.Range("B2:K40")[/COLOR]
End Sub

c'est la ligne que j'ai voulu mettre en rouge qui bug

en plus il faudrait que le tableau soit avant rempli d’être envoyer dans l'autre feuille
j'ai volontairement laisser que la combobox1 dans le code pour le remplissage de la matrice

Pascal

Robert · 6 Juin 2014

Re : modifier code pour envoyer tableau dans un autre onglet

Bonjour Pascal, bonjour le forum,

Essaie comme ça :

Code:

Sub ajoutfeuillenommée()
Dim O As Object 'déclare la variable O (Onglet)

Sheets.Add after:=Sheets("Matrice")
ActiveSheet.Name = "S" & SMax 'cette ligne se sert à rien !
ActiveSheet.Name = "Sem N°" & UserForm1.TextBox1.Value
Set O = ActiveSheet 'définit l'onglet O
With UserForm1
    Sheets("Matrice").Range("D7") = .ComboBox1.Value
End With
Sheets("Matrice").Range("B2:K40").Copy O.Range("B2") 'copie et colle dans B2 de l'onglet O
End Sub

grisan29 à dit:
en plus il faudrait que le tableau soit avant rempli d’être envoyer dans l'autre feuille
j'ai volontairement laisser que la combobox1 dans le code pour le remplissage de la matrice

Ça je n'ai pas compris...

grisan29 · 6 Juin 2014

Re : modifier code pour envoyer tableau dans un autre onglet

bonjour Robert
merci beaucoup c'est juste ce qu'il fallait
bon pour en revenir au tableau, je crois que je vais revoir son emplacement, car le code que tu a modifié est mis en direct sur le bouton valider qui vide les textbox et combobox dans la feuille matrice, mais cette feuille se remplie jour après jour pour la semaine et doit être valider par le patron en fin de semaine

merci beaucoup pour la modification

je ne clos pas pour le moment car je vais voir ce que je peux faire
A+

pascal

grisan29 · 6 Juin 2014

Re : modifier code pour envoyer tableau dans un autre onglet(merci Robert)

bonjour Robert
j'ai séparé les codes et cela fonctionne bien, merci beaucoup 10/10

ceci clos le post
Pascal

modifier code pour envoyer tableau dans un autre onglet

grisan29

XLDnaute Accro

Robert

XLDnaute Barbatruc

grisan29

XLDnaute Accro

grisan29

XLDnaute Accro

Discussions similaires