Calculs dans TextBox

[lynyrd]

Bonjour le Forum
Lorsque je rentre les infos depuis la"Feuil3",aucun problème.
Lorsque je veux faire des modifs depuis l'UserForm (à savoir modifier les journées de travail par un "C" pour congé,toutes mes formules se trouvant dans les colonnes "GH" à "GS" de la feuille3 disparaîssent.
Quelqu'un aurait t'il une solution à mon problème pour pouvoir faire les modifs"C"depuis l'UserForm afin que les calculs se fassent dans les TextBox des frames "Congé".
Merci.
Download planning.xls from Sendspace.com - send big files the easy way

 

[Staple1600]

Re : Calculs dans TextBox

Bonjour


Il est de coutume sur XLD de travailler sur des fichiers exemples simplifiés
pas sur des fichiers de 2 Mo 🙄

 

[lynyrd]

Re : Calculs dans TextBox

Désolé,voici le fichier modifié.
Merci.

 

[Staple1600]

Re : Calculs dans TextBox

Re

Merci.

Normalement ce devrait être Dim i as Byte

Private Sub ComboBox1_Click()
Dim i As Variant
CommandButton3.Visible = True

Label1.Caption = "mode : Modification"
With ComboBox1
For i = 1 To 202
    Controls("TextBox" & i) = Sheets("feuil3").Cells(.List(.ListIndex, 1), i)
 Next i
 End With
End Sub

et ici Dim i As Long

Public Sub initialisecombo()
Dim i As Variant
With ComboBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;0"
End With
With Sheets("feuil3")
    For i = 2 To .Range("a65536").End(xlUp).Row
        ComboBox1.AddItem
        ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 1) & " " & .Cells(i, 2)
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
    Next i
End With
End Sub

 

[lynyrd]

Re : Calculs dans TextBox

RE
Ca change rien au problème.

 

[Staple1600]

Re : Calculs dans TextBox

Re

Je n'ai jamais dit que cela réglait le problème

Je vois une erreur dans ton code.
Je te la signale.

 

[pierrejean]

Re : Calculs dans TextBox

Bonjour lynyrd

Salut Staple

A tester :

Private Sub CommandButton3_Click()
Dim i As Variant
With ComboBox1
For i = 1 To 189
     Sheets("feuil3").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Controls("TextBox" & i) = ""
Next i
    .ListIndex = -1
End With
CommandButton3.Visible = False
CommandButton2.Visible = False
End Sub

 

[Staple1600]

Re : Calculs dans TextBox

Bonjour pierrejean

pierrejean
le Dim i As Variant ne te pose pas question ?

 

[lynyrd]

Re : Calculs dans TextBox

Merci pierrejean,ca fonctionne
Bon week-end.
A+

 

[pierrejean]

Re : Calculs dans TextBox

Re

Non !
Comme tu ne le sais peut etre pas , je ne suis pas un adepte de l'option Explicit
Dans ces conditions toutes mes variables sont des Variant et en règle plus que générale ce que je produis comme code n'en est pas géné
En gros comme en detail , j'utilise la possibilité offerte par Excel de ne pas declarer mes variables mais je sais qu'elles sont implicitement déclarée en Variant

 

[Staple1600]

Re : Calculs dans TextBox

Re


Dans ce cas là tu déclares bien en Long ?

With Sheets("feuil3")
For i = 2 To .Range("a65536").End(xlUp).Row

 

[pierrejean]

Re : Calculs dans TextBox

Re
Non
je devrais le faire ?

 

[Staple1600]

Re : Calculs dans TextBox

Re


Je pense que tu sais très bien que plusieurs sur XLD le conseillent.
https://www.excel-downloads.com/threads/depassement-de-capacite-type-de-variable-integer.161218/
Comme on lit aussi beaucoup sur XLD
Dim derligne As Long

D'où mon étonnement.

 

[pierrejean]

Re : Calculs dans TextBox

Amusant !!

Dans l'exemple que tu cites ,je pourrais conseiller d'oter l'option Explicit et les declarations de variables et il est probable que tout rentrerait dans l'ordre
[Mode plaisanterie]
Je sais egalement que les ayatollah conseillent l'Islam , les curés le catholicisme, les bonzes le Bouddhisme ...

 

[Staple1600]

Re


Je suivais simplement les conseils de MichelXLD

Le type de données doit être défini en fonction de la valeur prise par la variable. Chaque type de donnée utilise un espace mémoire (de 1 octet pour les types de données Byte jusqu'à 22 octets et plus, pour les types de données Variant). Il est donc important de définir le bon type de données pour libérer de l'espace mémoire et ne pas ralentir inutilement le traitement de la macro.

Maintenant libre à chacun de les suivre ou pas.