Discussion :

[Mr l'Ashanti]

Bonjour forum
J'ai 5 feuilles sur lesquelles j'effectue des enregistrement.
La première feuille nommée base me sert d'enregistrement de base sur laquelle je peux apporter des modifications. Les 4 autres feuilles ont des tableaux dont certaines colonnes sont similaires à la première ( nom, matricule, date de naissance etc). Je voudrais donc apporter une même modification aux autres feuilles en utilisant comme référence ( clé) la colonne nom de la première.
NB: tous les tableaux ont en colonne B le nom et prénom.
J'espère être concis. Merci

[Mr l'Ashanti]

Bonjour...
J'ai essayé d'écrire ces lignes de code pour répondre à ma préoccupation mais une erreur s'affiche lors de l'exécution : incompatibilité du type et la ligne

Code :

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

.Cells(Col,2)= TextBox1

est surligné.

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
Sub modifier_admin()
With Sheets("Pers_Admin")
Dim Col As String, Lig As Integer, Bcle As Integer
Lig = Sheets("Base").Cells(Rows.Count, 2).End(xlUp).Row
    For Bcle = 2 To Lig
        Col = TextBox9
        If Col Like Sheets("Base").Cells(Bcle, 2) Then
        .Cells(Col, 2) = TextBox1
        .Cells(Col, 3) = TextBox2
        .Cells(Col, 4) = TextBox3
 
        End If
    Next Bcle
End With
End Sub

voici mon code. Merci de m'aider

[Mr l'Ashanti]

MERCI à tous...
j'ai pu trouver le problème en utilisant "find".

Code :

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

1
2
3
4
5
6
7
8
9
Sub modifier_admin()
With Sheets("Pers_Admin")
Dim Col As String
        Col = .Range("B:B").Find(TextBox9.Value).Row
        .Cells(Col, 2) = TextBox1
        .Cells(Col, 3) = TextBox2
        .Cells(Col, 4) = TextBox3
End With
End Sub