bonjour la team.
voilà j'ai un userform qui me renseigne un tableau (par ligne) , mais lorsque je ne remplie pas toutes les cases il me sort le message de débogage.
j'aimerais avoir l'option de pouvoir ne pas remplir les cases à partir du second contact. voici le script:
With Sheets("Base de donnée client")
X = .Cells(Rows.Count, "C").End(xlUp).Row + 1
.Range("B" & X) = Me.Txb_Client
.Range("C" & X) = Me.Cmb_Sect_Acti
.Range("D" & X) = Me.Cmb_Ville
.Range("E" & X) = Me.Txb_Adresse
.Range("F" & X) = Me.Txb_Contact_1
.Range("G" & X) = Me.Txb_Fonction_1
.Range("H" & X) = CLng(Me.Txb_Tel_1)
.Range("I" & X) = Me.Txb_Contact_2
.Range("J" & X) = Me.Txb_Fonction_2
.Range("K" & X) = CLng(Me.Txb_Tel_2)
.Range("L" & X) = Me.Txb_Contact_3
.Range("M" & X) = Me.Txb_Fonction_3
.Range("N" & X) = CLng(Me.Txb_Tel_2)
.Range("O" & X) = Me.Cmb_Besoin
.Range("P" & X) = Me.Cmb_Res_Act
Merci beaucoup pour votre aide.
voilà j'ai un userform qui me renseigne un tableau (par ligne) , mais lorsque je ne remplie pas toutes les cases il me sort le message de débogage.
j'aimerais avoir l'option de pouvoir ne pas remplir les cases à partir du second contact. voici le script:
With Sheets("Base de donnée client")
X = .Cells(Rows.Count, "C").End(xlUp).Row + 1
.Range("B" & X) = Me.Txb_Client
.Range("C" & X) = Me.Cmb_Sect_Acti
.Range("D" & X) = Me.Cmb_Ville
.Range("E" & X) = Me.Txb_Adresse
.Range("F" & X) = Me.Txb_Contact_1
.Range("G" & X) = Me.Txb_Fonction_1
.Range("H" & X) = CLng(Me.Txb_Tel_1)
.Range("I" & X) = Me.Txb_Contact_2
.Range("J" & X) = Me.Txb_Fonction_2
.Range("K" & X) = CLng(Me.Txb_Tel_2)
.Range("L" & X) = Me.Txb_Contact_3
.Range("M" & X) = Me.Txb_Fonction_3
.Range("N" & X) = CLng(Me.Txb_Tel_2)
.Range("O" & X) = Me.Cmb_Besoin
.Range("P" & X) = Me.Cmb_Res_Act
Merci beaucoup pour votre aide.