Microsoft 365 copier valeur textbox dans les cellules vides d'une colonne filtrée

[sandra95]

Bonjour,

J'ai besoin de votre aide pour finaliser une macro.
Dans un tableau, j'ai plusieurs colonnes dont:
la colonne A
La colonne I
La colonne L

Je filtre la colonne A sur les cellules vides.
Je filtre la colonne I sur la valeur "OK"
jusque la pas de problème...
ActiveSheet.Range("$A$1:$R$9137").AutoFilter Field:=1, Criteria1:="="
ActiveSheet.Range("$A$1:$R$9137").AutoFilter Field:=9, Criteria1:="OK"
Load UserForm2
UserForm2.Show

La colonne L est renseignée par la valeur "X" ou valeur vide.
Dans un userform, (qui m'affiche déja des données utiles en visualisation sur les autres colonnes), j'ai besoin d'alimenter la colonne A (la colonne que j'ai filtrée selon les valeurs vides) selon le résultat de la colonne L ("X" ou cellule vide) en saisissant 2 textbox dans mon userform:
==> si L="X" alors la valeur de la cellule de la colonne A sera = textbox7
==> si L="" alors la valeur de la cellule de la colonne A sera = textbox8

Je vous remercie de votre aide

 

[sandra95]

Bonjour,
Je vous ai joint un fichier pour plus de clareté... Merci