Commentaire et userform

Bonjour

Sur le LOGO de RENAULT quand je clic j’ai un userform

• Dans ce dernier j’inscris dans le USERTEXT1 un numéro de châssis

• Dans le USERTEXT18 j’inscris le nom du réservant et je valide par la commande bouton 4 ainsi j’ai une version de réservation qui se colorise en jaune et qui m’indique que le véhicule en question n’est pas dans notre stock (mais en acheminement depuis usine).

• Je peu ajouter ( et c’est ce que je veut) a travers le USERTEXT20 un commentaire

Jusque la c’est bon

• A l’arrivé a nom stock physique ET LA ET LE PROBLÈME, donc je réinscris le même numéro de châssis dans le USERTEXT1 et puis je peu ajouter un autre commentaire dans le USERTEXT20 et je valide par leCOMMANDEBOUTON1 et là, la couleur change et ca m’indique sue le véhicule et arrivé a bon port (stock physique réel)

PROBLÈME

Je n’arrive pas a joindre les 2 commentaire

Merci

bonsoir,

remplace

dim a as integer

par

dim a as string

et corrige cette partie ci

  
         On Error Resume Next
              a = Range("B" & i).Comment.Text
              range("B" & i).ClearComments
             On Error GoTo 0
              With Range("B" & i)
                .AddComment
                .Comment.Text Text:=a & Me.TextBox20.Value
               End With

dans le code du bouton 1

hola H2SO4

j'ai du seulement ajouter le retour a la ligne, soit

.Comment.Text Text:=a & vbNewLine & Me.TextBox20.Value

c'est superbe, ça fonctionne trop bien

merciiiiiiiiiiiii