FICHIER CLIENT MODIF VBA Excel 2007

Bonjour,

Tout d'abord je vous souhaite à tous de bonnes fetes.

Dans le cadre d'un projet étudiant, je dois réaliser un logiciel sur une entreprise d'ameublement.

Nous avons un fichier client qu'on aimerait pouvoir modifier depuis l'Userform

Private Sub ValiderModifSaisieClient_Click()

Sheets("BDDClients").Select (Nous avons au préalables déclarer la variable ligne as Byte)
NomSoc = NomClt.Value
numligneClt = 4

     Do While Cells(numligneClt, "A") <> NomSoc

     numligneClt = numligneClt + 1
     Cells(numligneClt, "A").Select

     Loop

 ActiveCell = NomSociete.Value 

 Cells(numligneClt, "B") = Activite.Value
 Cells(numligneClt, "C") = NumeroSIRET.Value
 Cells(numligneClt, "D") = AdresseSociete.Value
 Cells(numligneClt, "E") = CodePostal.Value
 Cells(numligneClt, "F") = Ville.Value

End Sub

 

le code ne fonctionne que pour le changement du nom de la société mais pas pour les autres informations et je ne comprends pas pourquoi

Ainsi, il est impossible pour nous de changer les autres caractéristiques du client. Je suis vraiment dans l'incompréhension puisque normalement à la sortie de la boucle, la ligne correspondant au client à changer est déjà sélectionnée. Ainsi il n'y a plus qu'à changer de colonne et reporter les modifications. Or ça ne fonctionne pas. Cela impacte tout notre fonctionnement...

J'appelle à votre aide car ce projet doit être finalisé demain...

Bonne journée à tous

Bonjour

Tu peux tester quelque chose comme ça:

ActiveCell.Offset(0, 1).Value = résultat.TextBox1.Value

ou "résultat" est le nom de ton USF

et Textbox1 est le "texbox" ou se trouve "Activite" et ensuite changer le 1 par 2,3,4

ActiveCell.Offset(0, 2).Value = résultat.TextBox2.Value

ActiveCell.Offset(0, 3).Value = résultat.TextBox3.Value

ActiveCell.Offset(0, 4).Value = résultat.TextBox4.Value

ActiveCell.Offset(0, 5).Value = résultat.TextBox5.Value

Cela ne marche toujours pas

Re

Peut tu mettre ton fichier, ou plus d'info??