Affectation code VBA dans une feuille xls

Bonjour,

Je veux executer un code VBA qui fonctionne en l'affectant à un bouton. Ceci marche sans dificultés si le bouton est dans la feuille en question. Actuellement je veux réunir tous les boutons dans la feuille N1 pour plus d'efficacité, le problème que les codes ne fonctionne plus:oops: que faire?

Merci de votre aide:)

Tu le prends où, ton bouton ?
Et si tu nous mettais le code que tu as "derrière" ?
A+

Le code crée des fichiers text à partir d'élements renseignés dans le feuille 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub EcrireDansUnTxt()   Dim intFic As Integer, DerniereLigne As Long, DerniereColonne As Integer Dim NoLigne As Long, NoCol As Integer, NomFich As String 'Je suppose que tu n'as pas de ligne ni de colonne vide, 'et que tu veux copier les données de la 2ème à la dernière colonne renseignée DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column intFic = FreeFile For NoLigne = 2 To DerniereLigne '2 si tu as une ligne d'entête NomFich = Cells(NoLigne, 1).Value Open "c:\txt\" & NomFich & ".txt" For Output As intFic For NoCol = 2 To DerniereColonne - 1 Print #intFic, Cells(NoLigne, NoCol) & ","; ' (*) le ; évite le retour à la ligne Next Print #intFic, Cells(NoLigne, NoCol) 'finit la ligne sans séparateur Close intFic Next End Sub

---

A+

ben faut préciser la feuille.... pour tout tes ranges et cells...

par exemple

Code:

---

1 2 3 4 5

dim fs as workSheet ' feuille source set fs = thisworkbook.sheets("feuil2")   ..

---

puis tous les range , cells... de ton code sont à remplacer par fs.range , fs.cells..

ça marche bravo.