Discussion :

[ph_anrys]

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

[QuestVba]

Hello

voici un code

Définir ta plage de départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Définir ta plage avec uniquement des cellules vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set PlageVide = PlageDépart.SpecialCells(xlCellTypeBlanks)

Sélection des cellules vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PlageVide.Select

Indication du nombre de cellules vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbreVide = PlageVide.Count

Sélection cellule vide n°1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PlageVide.Areas(1).Select

Sélection dernière cellule vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PlageVide.Areas(NbreVide).Select

[gFZT82]

Bonjour,

Voici une solution avec la méthode Find

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ph_anrys]

Merci c'est ce que je cherchais