Bonjour à tous,
Mon problème est le suivant :
Je fais une recherche à partir d'un userform. Le résultat de cette recherche s'affiche dans la TextBox 1.
Ensuite, dans ma feuille de données, je souhaite inscrire la valeur de la Textbox9 de ce même userform dans la 1ère colonne vide de la ligne correspondant à la textbox1.
J'ai donc écrit le code suivant :
Private Sub Valider_Click()
Dim x As Long
Dim y As Long
Dim z As String
z = SortieStock.TextBox1.Value
Dim trouve As Boolean
Dim FL2 As Worksheet
Set FL2 = Worksheets("SORTIE STOCKS")
For x = 2 To FL2.Range("A65535").End(xlUp).Row
If UCase(FL2.Range("A" & x)) Like z Then
LigneActive = x
End If
Next x
For y = 7 To 50
If FL2.Cells(LigneActive, y).Value = "" Then
ColonneActive = y
FL2.Select
Cells(LigneActive, ColonneActive).Select
FL2.Cells(LigneActive, ColonneActive).Value = SortieStock.TextBox9.Value
Unload SortieStock
MsgBox ("Sortie comptabilisée")
Sheets("MENU").Select
SortieStock.Show
trouve = True
Exit For
End If
Next y
If Not trouve Then
MsgBox ("Requête non trouvée")
End If
End Sub
Mon souci c'est que ce code ne fonctionne que pour une seule ligne.
Pour toutes les autres, l'erreur se situe sur la ligne soulignée et je ne comprends absolument pas pourquoi.
Merci d'avance pour votre aide car je commence à m'arracher les cheveux !
Mon problème est le suivant :
Je fais une recherche à partir d'un userform. Le résultat de cette recherche s'affiche dans la TextBox 1.
Ensuite, dans ma feuille de données, je souhaite inscrire la valeur de la Textbox9 de ce même userform dans la 1ère colonne vide de la ligne correspondant à la textbox1.
J'ai donc écrit le code suivant :
Private Sub Valider_Click()
Dim x As Long
Dim y As Long
Dim z As String
z = SortieStock.TextBox1.Value
Dim trouve As Boolean
Dim FL2 As Worksheet
Set FL2 = Worksheets("SORTIE STOCKS")
For x = 2 To FL2.Range("A65535").End(xlUp).Row
If UCase(FL2.Range("A" & x)) Like z Then
LigneActive = x
End If
Next x
For y = 7 To 50
If FL2.Cells(LigneActive, y).Value = "" Then
ColonneActive = y
FL2.Select
Cells(LigneActive, ColonneActive).Select
FL2.Cells(LigneActive, ColonneActive).Value = SortieStock.TextBox9.Value
Unload SortieStock
MsgBox ("Sortie comptabilisée")
Sheets("MENU").Select
SortieStock.Show
trouve = True
Exit For
End If
Next y
If Not trouve Then
MsgBox ("Requête non trouvée")
End If
End Sub
Mon souci c'est que ce code ne fonctionne que pour une seule ligne.
Pour toutes les autres, l'erreur se situe sur la ligne soulignée et je ne comprends absolument pas pourquoi.
Merci d'avance pour votre aide car je commence à m'arracher les cheveux !