Bonjour, voilà mon problème :

Le code ci dessous me permet de sélectionner la première cellule vide d'une plage de cellule. que je définis avec .Range("C12:C40")

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
17
18
 
Private Sub CommandButton1_Click()
Dim CelVide As Range
    With Worksheets("S01") 'Nom de feuille à adapter
        'On recherche la première cellule vide dans la plage A1:A15
        Set CelVide = .Range("C12:C40").Find(What:="", After:=.Range("C12"), 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
            CelVide.Offset(0, 1) = Me.TextBox3.Value 'copie le contenu de la TextBox3 dans la cellule adjacente à la cellule vide
        Else
            'Sinon, on affiche un message
            MsgBox "Aucune cellule vide"
        End If
    End With
End Sub
donc dans ma feuille excel j'ai plusieurs jours dans lesquels ils faut rentrer des produits. afin d'éviter de créer un userform pour chaque jour, je voudrais dans mon userform mettre une textbox avec le jour (ex : 1,2,3,4,5,6,7)

donc voici un bout de code que je veux remplacer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
if me.textbox.value="1" then (et là je voudrais spécifier la plage de cellule ex A1:A22)
 
if me.textbox.value="2" then (et là je voudrais spécifier la plage de cellule ex B1:B22)
...

mais je sais qu'il faudrait employer range mais je vois pas de quelle façon.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
'On recherche la première cellule vide dans la plage A1:A15
        Set CelVide = .Range("C12:C40").Find(What:="", After:=.Range("C12"), LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
dans le code ci dessus que faut il mettre à la place de ce code ci dessous pour sélectionner la plage par rapport au choix du jour dans la textbox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
.Range("C12:C40").Find(What:="", After:=.Range("C12")
J'espère avoir été clair dans ma demande.

Merci