Données userforme

loisphil81

XLDnaute Junior
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.
 

Pièces jointes

  • TRAME TEST.xlsm
    59.5 KB · Affichages: 9

JM27

XLDnaute Barbatruc
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
 

Dranreb

XLDnaute Barbatruc
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)
 

Dranreb

XLDnaute Barbatruc
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

XLDnaute Junior
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
 

loisphil81

XLDnaute Junior
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

XLDnaute Junior
voici la solutiono_O
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
 

Discussions similaires

Réponses
3
Affichages
274