Discussion :

[backx3]

Hello !

J'ai un petit soucis, avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[unparia]

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 !

[halaster08]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

idem pour tout ce qui est cells et rows

[backx3]

Bien vu ! Merci bien