Code BVA ne pas sauter de ligne si groupe textbox vide
T
Bonjour
j'ai un problème comme vous avez vu dans la photo j'ai un userform énorme (les numéro dans les texte c'est le numéro du textbox) il est bien le code sauf que je ne sais pas comment faire pour que quand dans une ligne de textbox est vide ne pas sauter de ligne et si possible de regrouper tout les 1 en ajoutant un commentaire.
le voici le code
Private Sub CommandButton1_Click()
Dim wsTableau As Worksheet
Dim wsRefPro As Worksheet
Dim lastRow As Long
Dim i As Integer
Dim rowOffset As Integer
Set wsTableau = ThisWorkbook.Sheets("Produit_issu_d'un_regroupement")
lastRow = wsTableau.Cells(wsTableau.Rows.Count, "A").End(xlUp).Row
For i = 1 To 7
wsTableau.Rows(lastRow + rowOffset).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
wsTableau.Cells(lastRow + rowOffset, 1).Value = Me.Controls("TextBox1").Value
For j = 2 To 8
wsTableau.Cells(lastRow + rowOffset, j).Value = Me.Controls("TextBox" & j + (i - 1) * 7).Value
Next j
rowOffset = rowOffset + 1
Next i
UserForm2.Hide
End Sub
merci d'avance
T
Cbon j'ai trouvé merci pour tous ceux qui ont essayé mais si vous avez d'autre idée j'aimerais bien les avoir
Private Sub CommandButton1_Click()
Dim wsTableau As Worksheet
Dim wsRefPro As Worksheet
Dim lastRow As Long
Dim i As Integer
Dim rowOffset As Integer
Set wsTableau = ThisWorkbook.Sheets("Produit_issu_d'un_regroupement")
lastRow = wsTableau.Cells(wsTableau.Rows.Count, "A").End(xlUp).Row
For i = 1 To 7
' Vérifier si le groupe de TextBox est vide
isEmptyGroup = True
For j = 2 To 8
If Me.Controls("TextBox" & j + (i - 1) * 7).Value <> "" Then
isEmptyGroup = False
Exit For
End If
Next j
If Not isEmptyGroup Then
' Insérer une nouvelle ligne sous la dernière ligne avec des données
wsTableau.Rows(lastRow + rowOffset).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Écrire la valeur du premier TextBox dans la colonne A de la nouvelle ligne
wsTableau.Cells(lastRow + rowOffset, 1).Value = Me.Controls("TextBox1").Value
For j = 2 To 8
wsTableau.Cells(lastRow + rowOffset, j).Value = Me.Controls("TextBox" & j + (i - 1) * 7).Value
Next j
rowOffset = rowOffset + 1
End If
Next i
UserForm2.Hide
End Sub
mais j'ai pas trouvé comment on peut regrouper la première colonne et a ajouter un comantaire