Transferer la valeur d'un textbox Fermé

Question

Bonjour, 
dans mon userform j'ai plusieurs textbox et combobox, et le transfert des valeurs vers les cellules se fait par le code suivant:

Private Sub CommandButton1_Click()
Dim derligne As Integer

    If MsgBox("Confirmez-vous l'Ajout des Données?", vbYesNo, "confirmation") = vbYes Then
                           
derligne = Sheets("CE1.1").Range("A254256").End(xlUp).Row + 1
                       
          Cells(derligne, 1) = num_inscr.Value
          Cells(derligne, 2) = nompren_eleve.Value
          Cells(derligne, 3) = sexe.Value
          Cells(derligne, 4) = classe.Value
          Cells(derligne, 5) = transp.Value
          Cells(derligne, 6) = numvehic.Value
           Cells(derligne, 7) = DTPicker1.Value
                               

    End If
    ThisWorkbook.Save

End Sub

grace au commandbutton(enregistrer),  tout fonctionne très bien avec (derligne=sheets("ce1.1")

mais une fois que je change le feuil ("ce1.2"), au lieu qu'il ajoute des donnée il les écrases, comme si End(xlUP.ROW+1 ne fonctionne pas.

merci. 

Configuration: Windows / Firefox 74.0

jordane45 · Answer

Dis voir... va falloir qu'on te le répète combien de fois ??
 Lorsque tu postes du code sur le forum, merci de bien vouloir utiliser LES BALISES DE CODE 
explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code.  

Ensuite... regardes bien ton code et essaies de réfléchir un peu :
Ta variable est trouvée comme ceci

derligne = Sheets("CE1.1").Range("A254256").End(xlUp).Row + 1 

Et tu nous dis :

une fois que je change le feuil ("ce1.2")

Ne vois tu pas le pb ??

Patrice33740 · Answer

Bonjour,

Contrairement à ce que tu affirmes, ton code ne fonctionne « pas très bien », mais plutôt tant bien que mal ! 
Il bénéficie de la très grande souplesse du VBA qui est la cause de ton problème. Il y a d'autres problèmes sous-jacents.

Ta demande en est une preuve flagrante.

La programmation exige beaucoup de rigueur pour coder correctement, voici quelques conseils qui t'éviterons bien des déboires :

1• commences tous les modules par Option Explicit, cela oblige à déclarer toutes les variables ;
2• déclares les variables avec le type ad hoc et fais attention à préciser le type après chaque nom de variable ;
3• limites leur portée au strict nécessaire (i.e. locale, privée, publique ou globale), afin qu'elles n'existent que là où elles sont utiles ;
4• envisages tous les types potentiels de chaque variable pour éviter les erreurs. En particulier lors des affectations, assures-toi que le récepteur est de même type que la source sinon utilises une fonction de conversion, 
   --- par exemple, au lieu de Worksheets(1).Cells(1,2).Value = textboxDate.value,
    écrire Worksheets(1).Cells(1,2).Value = CDate(textboxDate.value) ;
5• dans le doute prévois un gestionnaire d'erreur ;
6• n'utilises jamais .Select, évites d'utiliser les objets actifs : Selection, Activecell, Activesheet, ... (sauf, très très rarement, lorsque c'est absolument indispensable) ;
7• évites les références implicites(i.e. partielles), privilégies les références explicites (i.e. suffisamment    complètes),
   --- par exemple, au lieu de = Cells(1,2) écrire = Worksheets(1).Cells(1,2).Value,
   donc, précises toujours la feuille pour un objet Range (Cells, Rows, ...) et la propriété cible (Value, Text, ...)
8• n'hésites pas à utiliser des variables pour représenter les objets, ça facilite l'écriture et la lecture du code,
   --- par exemple :  Set MaPlage = Me.Range("B2:C8") ; 
9• pour les mêmes raisons, n'hésites pas à utiliser aussi With et End With ;
10• évites d'utiliser des propriétés ou méthodes d'objet héritées qui pourraient ne pas exister,
  --- par exemple, au lieu de : Sheets(1).Range("A1") écrire Workheets(1).Range("A1"), 
   en effet l'objet Range n'appartient pas à Sheet mais à Worksheet ;
11• évites d'utiliser le Presse-Papier de Windows, préfères la copie directe avec une destination :
Source.Copy Destination ou, pour copier que les valeurs : Destination.valeur = Source.Valeur.
12• commentes le code, penses à celui (peut-être toi) qui devra le déboguer dans deux ou trois ans !
13• respectes certaines règles de nommage des variables, notamment l'emploi d'un préfixe : le code est plus lisible par tous. Voir ici : https://argyronet.developpez.com/office/vba/convention/
14• n'écris pas de procédures fleuves (très longues), scindes les en différentes procédures élémentaires : là encore le code sera plus lisible.
15• libéres la mémoire dès que possible, en particulier pour les tableaux et les objets.

Cela devrait te permettre de résoudre ton problème, en particulier dans l'ordre les points 7, 9, et 4, 10,  1.

Transferer la valeur d'un textbox

2 réponses

Lorsque tu postes du code sur le forum, merci de bien vouloir utiliser LES BALISES DE CODE

Discussions similaires