ligne suivante

[Dominic67]

Bonsoir

J'ai fait un Fax sous excel dont il ne reste a renseigne que 4 cellules et ceci a partir de 4 Textbox. Pour des raisons de suivi, je sauvegarde ces 4 cellules sur une feuille suivante qui me sert de suivi des fax.
Lors de la sauvegarde j'utilise une fonction me permettant de mettre les infos à la ligne suivante.
Par contre pour eviter un decallage lors de la sauvegarde si une ou plusieurs Textbox ne sont pas renseignées ( 4 cellules remplies dans 4 colonnes ), je cherche une astuce qui au moment de la sauvegarde me met une valeur xxxxx dans la ou les textbox vides.

Merci pour vos conseils

 

[Robert]

Bonsoir Dominic, bonsoir le forum,

Difficile sans fichier exemple. En admettant que la feuille suivante se nomme 'Feuil_suiv' et que tu veuilles garder les renseignements à partir de la colonne A, je te porpose :

Sheets('Feuil_suiv').Select 'sélectionne la feuille suivante
'sélectionne la première cellule non éditée de la colonne A
Range('A65536').End(xlUp).Offset(1, 0).Select
If TextBox1.Value = '' Then 'si la TextBox1 est vide
ActiveCell.Value = 'vide' 'écris 'Vide' (à adapter)
Else 'sinon
ActiveCell.Value = TextBox1.Value 'écris la valeur de la TextBox1
End If
'écris la valeur de la TextBox2 dans la cellule décalé de 1 vers la droite
ActiveCell.Offset(0, 1).Value = TextBox2.Value
'écris la valeur de la TextBox3 dans la cellule décalé de 2 vers la droite
ActiveCell.Offset(0, 2).Value = TextBox3.Value
'écris la valeur de la TextBox4 dans la cellule décalé de 3 vers la droite
ActiveCell.Offset(0, 3).Value = TextBox4.Value

Tu n'auras pas de décalage même si un ou plusieurs textbox sont vides