Bonjour, je vais encore demander de l'aide car je ne m'en sort pas.
J'ai un USF avec 7 textbox, celles ci sont enregister sur ma feuille N°1 et classé par ordre alphabétique, grâce à ce code:
With WSCible
If .[A1].Value <> "" Then
lig = .[A65536].End(xlUp).Row + 1
Else: lig = 1
End If
.Cells(lig, 1) = nomclient
.Cells(lig, 2) = adr
.Cells(lig, 3) = prenom
.Cells(lig, 4) = cp
.Cells(lig, 5) = ville
.Cells(lig, 6) = tel1
.Cells(lig, 50) = paiement
Mon problème c'est que j'ai des informations après la cellule 50 qui ne suivent pas.
Comment faire pour obliger à déplacer la ligne entière.
Merci.
Niepce
J'ai un USF avec 7 textbox, celles ci sont enregister sur ma feuille N°1 et classé par ordre alphabétique, grâce à ce code:
With WSCible
If .[A1].Value <> "" Then
lig = .[A65536].End(xlUp).Row + 1
Else: lig = 1
End If
.Cells(lig, 1) = nomclient
.Cells(lig, 2) = adr
.Cells(lig, 3) = prenom
.Cells(lig, 4) = cp
.Cells(lig, 5) = ville
.Cells(lig, 6) = tel1
.Cells(lig, 50) = paiement
Mon problème c'est que j'ai des informations après la cellule 50 qui ne suivent pas.
Comment faire pour obliger à déplacer la ligne entière.
Merci.
Niepce