UserForm - For each classeurs

Hello !

J'ai un petit soucis, avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim Nom As String, Prenom As String Dim DerLign As Variant, i As Variant   'On stocke les variables entrées sur l'UF Nom = Me.T_nom Prenom = Me.T_Prenom   'Boucle sur les classeurs Dim wb As Workbook, ws As Worksheet For Each wb In Application.Workbooks For Each ws In wb.Worksheets DerLign = Range("A" & Rows.Count).End(xlUp).Row   'Rentre le nom Dim rNom As Range Dim ColNom As Integer Set rNom = Rows(1).Find("nom", , xlValues, xlWhole) If Not rNom Is Nothing Then ColNom = rNom.Column Cells(DerLign + 1, ColNom) = Nom     'Rentre le prenom Dim rPrenom As Range Dim ColPrenom As Integer Set rPrenom = Rows(1).Find("prenom", , xlValues, xlWhole) If Not rPrenom Is Nothing Then ColPrenom = rPrenom.Column Cells(DerLign + 1, ColPrenom) = Prenom   Next ws Next wb

---

Je comprends pas trop pourquoi il me rentre le nom et prenom que sur le classeur où est l'userform.. Alors que je voudrais qu'il mette le nom et prénom dans chaque classeur et dans chaque feuille où la colonne "nom" et "prenom" sont présente (sur la même ligne également)

C'est sûrement bête, mais j'arrive pas à trouver de solution...

Bonjour
Et tu en fais quoi, de ta variable ws ? Rien ? Elle n'est là que pour le décor ?
Etonne-toi alors de ce que n'est traitée que la feuille active !

Bonjour,

Tu boucles sur tes classeurs et tes feuilles sans jamais les utiliser.

Code:

---

Range("A" & Rows.Count).End(xlUp).Row

---

C'est sur la feuille active puisque rien n'est précisé devant le range
Remplace le par:

Code:

---

wb.ws.Range("A" & Rows.Count).End(xlUp).Row

---

idem pour tout ce qui est cells et rows

Bien vu ! Merci bien :)