Bonjour,
J'ai un problème en voulant remplir la ligne suivante quand la ligne précédente est remplie avec mon code du userform "URsltTelConquete". Les trois premières lignes se remplissent normalement, puis la quatrième remplace la deuxième ou la troisième au lieu de continuer à remplir des lignes... en fait le bon fonctionnement de mon code rest bloqué à trois lignes
Pourtant le code que j'utilise, je l'ai utilisé pour mes userforms "UFormConquete" et "UFormDesac" et ca marche parfaitement. La seule différence que j'ai trouvé est que ce code intègre un Select Case Me.URsltTelConquete_ComboBoxIssue qui détermine quelle feuille du classeur va être remplie.
Voici le code du userform "URsltTelConquete":
(code)
(code)
ci-joint le fichier également
Merci d'avance à ceux qui pourront m'aider!
Bobbo
J'ai un problème en voulant remplir la ligne suivante quand la ligne précédente est remplie avec mon code du userform "URsltTelConquete". Les trois premières lignes se remplissent normalement, puis la quatrième remplace la deuxième ou la troisième au lieu de continuer à remplir des lignes... en fait le bon fonctionnement de mon code rest bloqué à trois lignes
Pourtant le code que j'utilise, je l'ai utilisé pour mes userforms "UFormConquete" et "UFormDesac" et ca marche parfaitement. La seule différence que j'ai trouvé est que ce code intègre un Select Case Me.URsltTelConquete_ComboBoxIssue qui détermine quelle feuille du classeur va être remplie.
Voici le code du userform "URsltTelConquete":
(code)
Code:
Select Case Me.URsltTelConquete_ComboBoxIssue
Case Is = ["Pas d'activation"]
With Sheets("HISTORIQUE_CLIENTS")
'Cherche le numero de la dernière ligne remplie
Dim LastRow As Integer
LastRow = Cells.Find("*", , , , , xlPrevious).Row
With .Range("A" & LastRow + 1)
.Value = Me.URsltTelConquete_TextBoxDateEntree
.Borders(xlEdgeLeft).Weight = xlThick
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("B" & LastRow + 1)
.Value = Me.URsltTelConquete_TextBoxDateEnt
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("C" & LastRow + 1)
.Value = "NON"
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("D" & LastRow + 1)
.Value = Me.URsltTelConquete_TextBoxNDC
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("E" & LastRow + 1)
.Value = Me.URsltTelConquete_TextBoxNom
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("F" & LastRow + 1)
.Value = Me.URsltTelConquete_TextBoxPrenom
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("G" & LastRow + 1)
.Value = "CI à activer"
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
With .Range("H" & LastRow + 1)
.Value = URsltTelConquete_TextBoxCom
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
'permet l'ajustement en hauteur de la cellule qui va contenir le commentaire
.WrapText = True
End With
With .Range("I" & LastRow + 1)
.Value = URsltTelConquete_TextBoxDate
.Borders(xlEdgeRight).Weight = xlThick
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThick
End With
'permet de supprimer les lignes vides (si une personne a supprimé directement dans le tableau)
.Range("A1:A200").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Unload Me
End With
(code)
ci-joint le fichier également
Merci d'avance à ceux qui pourront m'aider!
Bobbo