Userform: Ajouter une 2eme condition si valeur dans textbox

Fermé
Javid95800 - 14 juil. 2021 à 22:00
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 15 juil. 2021 à 04:20
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.

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
15 juil. 2021 à 04:20
Bonjour,

Si j'ai bien compris, ceci devrait aller:

If Me.sku1.Value <> "" Then ws.Cells(iRow, 1).Value = ws.Cells(iRow, 1).Value + 1


Cdlt
0