Probleme passage à la ligne suivante

[Bobbo]

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)

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

 

[Robert]

Re : Probleme passage à la ligne suivante

Bonjour Bobbo, bonjour le forum,

Sans allez plus loin... Il manque un point devant le Cells dans cette ligne :
LastRow = .Cells.Find("*", , , , , xlPrevious).Row