Copier les informations d'un textbox dans certaines cellules d'une colonne

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

D’avance merci pour votre aide

Bonjour,

Si j’ai compris

Macro :

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

Modif fichier 3.xlsm (84,2 Ko)

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.