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

sandra95

XLDnaute Nouveau
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 :)
 

Pièces jointes

  • fichier test.xlsm
    983.8 KB · Affichages: 1
Dernière édition:

Discussions similaires