Récupérer la valeur d'une textbox dans une plage de cellules

Bonjour,

Voilà dans mon classeur j'ai un userform dans lequel je clique sur un bouton pour afficher un produit qui se trouve dans un textbox.

j'ai une plage de cellule qui va de A1 à A15

Je voudrais que lorsque je clique sur le bouton ca me marque le produit choisit dans la cellule entre A1 et A15, mais dans la cellule qui est vide

donc je pense que je dois résonner comme ceci :

- je boucle sur les cellules de A1 à A15, si la cellule est vide j'écris ma donnée dans la cellule vide.

Le problème c'est que je ne sais pas comment le programmer.

Merci pour votre aide

Hello

voici un code

Définir ta plage de départ

Code:

---

Set PlageDépart = Range("A1:A15")

---

Définir ta plage avec uniquement des cellules vides

Code:

---

Set PlageVide = PlageDépart.SpecialCells(xlCellTypeBlanks)

---

Sélection des cellules vides

Code:

---

PlageVide.Select

---

Indication du nombre de cellules vides

Code:

---

NbreVide = PlageVide.Count

---

Sélection cellule vide n°1

Code:

---

PlageVide.Areas(1).Select

---

Sélection dernière cellule vide

Code:

---

PlageVide.Areas(NbreVide).Select

---

Bonjour,

Voici une solution avec la méthode Find

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim CelVide As Range With Worksheets("Feuil1") 'Nom de feuille à adapter 'On recherche la première cellule vide dans la plage A1:A15 Set CelVide = .Range("A1:A15").Find(What:="", After:=.Range("A15"), LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False) 'S'il existe une cellule vide, on lui affecte la valeur de la TextBox If Not CelVide Is Nothing Then CelVide = Me.TextBox1.Value Else 'Sinon, on affiche un message MsgBox "Aucune cellule vide" End If End With End Sub

---

Cordialement.

Merci c'est ce que je cherchais