Userform: Ajouter une 2eme condition si valeur dans textbox
Javid95800
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je voudrais rajouter "1" sur la cellule suivante si il ya a une valeur sur la textbox "sku1":
Exemple: si en A1 il y a "M40156" alors la case A2 contiendra 1
Option Explicit
Private Sub cmAdd1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("PartsData")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.sku1.Value
ws.Cells(iRow + 1, 1).Value = Me.sku2.Value
ws.Cells(iRow + 2, 1).Value = Me.sku3.Value
ws.Cells(iRow + 3, 1).Value = Me.sku4.Value
Dois-je essayer avec un & ? ex: ws.Cells(iRow, 1).Value = Me.sku1.Value &....
Merci infiniment pour votre aide.
Je voudrais rajouter "1" sur la cellule suivante si il ya a une valeur sur la textbox "sku1":
Exemple: si en A1 il y a "M40156" alors la case A2 contiendra 1
Option Explicit
Private Sub cmAdd1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("PartsData")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.sku1.Value
ws.Cells(iRow + 1, 1).Value = Me.sku2.Value
ws.Cells(iRow + 2, 1).Value = Me.sku3.Value
ws.Cells(iRow + 3, 1).Value = Me.sku4.Value
Dois-je essayer avec un & ? ex: ws.Cells(iRow, 1).Value = Me.sku1.Value &....
Merci infiniment pour votre aide.
A voir également:
- Userform: Ajouter une 2eme condition si valeur dans textbox
- Userform excel mac - Forum Excel
- Userform Petit ✓ - Forum VB / VBA
- Grandeur UserForm ✓ - Forum VB / VBA
- Userform vba récupérer valeur - Forum Excel
- Pointillé et userform ✓ - Forum Excel