Userform: Ajouter une 2eme condition si valeur dans textbox

Signaler
-
Messages postés
2215
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 juillet 2021
-
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

Messages postés
2215
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 juillet 2021
324
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