Bonjour à tous, je souhaite insérer le numéro rentré dans une textbox dans certaines cellules d’une colonne Modif fichier 3.xlsm (102,2 Ko)
je souhaite que le chiffre remplis dans le textbox numero remplisse la colonne B3 à B102 sans remplir les cases B6,B16,B35,B53,B69,B81 et B89
Private Sub NUMERO_AfterUpdate()
Dim i% 'Déclaration variabme
If Me.NUMERO.Value <> "" Then 'Si Textbox NUMERO n'est pas vide, alors
For i = 3 To 102 'boucle de la ligne 3 à 102
If Sheets("TC").Cells(i, 1) <> "" Then 'Si la cellule de la feuille TC en colonne A n'est pas vide
Sheets("TC").Cells(i, 2) = Me.NUMERO.Value 'Place en colonne B la valeur du Textbox Numero
End If
Next i
End If
End Sub