Données userforme

[loisphil81]

Bonjour forum,

j'ai réussi avec de l'aide a créer un userforme sur ma feuil "DEVIS"
le problème c'est que ça ne copie pas les données ou je voudrais
je voudrais qu'elles aillent sur la feuil "Liste N°de CLIENT" a l'aide du bouton "Ajout contact"
le user doit rester sur la feuil DEVIS.

Merci pour votre aide.

 

[JM27]

Bonsoir tu as oublié les points se référant à With ActiveWorkbook.Sheets("Liste N°de CLIENT")


no_ligne =.Range("A65536").End(xlUp).Row + 1

. Cells(no_ligne, 1) = TextBox_N°Client.Value
.Cells(no_ligne, 2) = civilite
. Cells(no_ligne, 3) = TextBox_Nom.Value
. Cells(no_ligne, 4) = TextBox_Prenom.Value
.Cells(no_ligne, 5) = TextBox_Adresse.Value
. Cells(no_ligne, 6) = TextBox_Ville.Value
.Cells(no_ligne, 7) = TextBox_CodePostale.Value

 

[loisphil81]

Bonsoir
c'est a dire
pas compris

 

[Dranreb]

Bonsoir.
Une instruction With ne s'applique, jusqu'à la End With correspondante, qu'aux seules expressions précédées d'un point sans rien d'autre devant, puisqu'elle indique justement ce qu'il faut assumer devant ce point.
Donc Cells(no_ligne, 1) sans point devant ne l'assume pas et prend par défaut de spécification ActiveSheet.Cells(no_ligne, 1)
tandis que .Cells(no_ligne, 1) prend ActiveWorkbook.Sheets("Liste N°de CLIENT").Cells(no_ligne, 1)

 

[loisphil81]

Bonsoir
donc : With ActiveWorkbook.Sheets("Liste N°de CLIENT").Cells(no_ligne, 1)

 

[Dranreb]

Non. Ce n'est pas l'instruction With qui est en cause, ce sont les instructions où vous voulez qu'elle s'applique ensuite. Il y manque le point devant.
C'est du moins ce que disait loisphil81, mais je n'avais pas ouvert votre classeur. Là je l'ai ouvert et je ne comprend rien à où il faut chercher.

 

[loisphil81]

Comme ca ?

.Cells(no_ligne, 1) = TextBox_N°Client.Value
.Cells(no_ligne, 2) = civilite
.Cells(no_ligne, 3) = TextBox_Nom.Value
.Cells(no_ligne, 4) = TextBox_Prenom.Value
.Cells(no_ligne, 5) = TextBox_Adresse.Value
.Cells(no_ligne, 6) = TextBox_Ville.Value
.Cells(no_ligne, 7) = TextBox_CodePostale.Value

 

[Dranreb]

Oui, comme ça. Sans oublier aussi le .Range devant

 

[loisphil81]

Desolé mais nca ne fonctionne pas
.Range Cells(no_ligne, 1) = TextBox_N°Client.Value
.Range Cells(no_ligne, 2) = civilite
.Range Cells(no_ligne, 3) = TextBox_Nom.Value
.Range Cells(no_ligne, 4) = TextBox_Prenom.Value
.Range Cells(no_ligne, 5) = TextBox_Adresse.Value
.Range Cells(no_ligne, 6) = TextBox_Ville.Value
.Range Cells(no_ligne, 7) = TextBox_CodePostale.Value

 

[loisphil81]

voici la solution😵
no_ligne = Sheets("Liste N°de CLIENT").Range("A65536").End(xlUp).Row + 1

Sheets("Liste N°de CLIENT").Cells(no_ligne, 1) = TextBox_N°Client.Value
Sheets("Liste N°de CLIENT").Cells(no_ligne, 2) = civilite
Sheets("Liste N°de CLIENT").Cells(no_ligne, 3) = TextBox_Nom.Value
Sheets("Liste N°de CLIENT").Cells(no_ligne, 4) = TextBox_Prenom.Value
Sheets("Liste N°de CLIENT").Cells(no_ligne, 5) = TextBox_Adresse.Value
Sheets("Liste N°de CLIENT").Cells(no_ligne, 6) = TextBox_Ville.Value
Sheets("Liste N°de CLIENT").Cells(no_ligne, 7) = TextBox_CodePostale.Value

 

[Dranreb]

Non, je voulais dire sans oublier de mettre aussi le point devant Range dans l'instruction qui précédait.