XL 2019 Textbox, comment en récupérer sa valeur numérique

[thespeedy20]

Bonjour le Forum,

Via un formulaire, j''encode des données... quand je transfère les données vers les cellules tout ce qui numérique (texteBox3 et 4), se retrouve en chaine de caractère...
Pouvez-vous m'aider ?

Oli

 

[Jacky67]

Bonjour le Forum,

Via un formulaire, j''encode des données... quand je transfère les données vers les cellules tout ce qui numérique (texteBox3 et 4), se retrouve en chaine de caractère...
Pouvez-vous m'aider ?

Oli

Bonjour,
Ce qui est décrit est un comportement normal, un textbox retourne du text
Il faudra le transformer en numérique ou date (par exemple) selon les besoins
Essaye en modifiant les transferts vers la feuille avec un code de ce type

'-----------
'-----------
    For j = 1 To 7
        If IsNumeric(Controls("textBox" & j)) Then
            Cells(cell.Row, j) = CLng(Controls("textBox" & j))
        Else
            Cells(cell.Row, j) = Controls("textBox" & j)
        End If
    Next j
    '-----------
    '-----------'

 

[thespeedy20]

Bonjour Jacky67,

j'ai essayé avec ta proposition et j'ai une erreur de type variable objet ou variable de block with non définie sur la ligne après le else

Oli

 

[Jacky67]

Bonjour Jacky67,

j'ai essayé avec ta proposition et j'ai une erreur de type variable objet ou variable de block with non définie sur la ligne après le else

Oli

Re..
Mettre le classeur en ligne avec cette erreur.

 

[thespeedy20]

re ,

en ligne ?

OLi

 

[Jacky67]

re ,

en ligne ?

OLi

Re..
Joindre........

 

[JM27]

bonjour


pour la modification

Private Sub CmdAjout_Click()
    Set cell = Range("A3:A" & Application.Max(3, Range("A" & Rows.Count).End(xlUp).Row)) _
        .Find(CmbNom, lookat:=xlWhole)
    If Not cell Is Nothing Then
        rep = MsgBox("Etes-vous  sûr de vouloir modifier les données de  " & CmbNom & " ?", 20)
        If rep = 7 Then Exit Sub
    End If
    For j = 1 To 7
      
        If IsNumeric(Controls("textBox" & j)) = True Then
            Cells(cell.Row, j) = CLng(Controls("textBox" & j))
         Else
            Cells(cell.Row, j) = Controls("textBox" & j)
        End If
    Next j
  
    MsgBox "Les données de " & CmbNom & " ont été modifiées.", 64
    Unload Me
End Sub

pour la création tu fais de même

Si tu dois transférer une date

If IsDate(Controls("textBox" & j)) = True Then

 

[thespeedy20]

Bonjour JM27,

Private Sub CmdNouv_Click()
    Dim j As Integer
    
    Set cell = Range("A3:A" & Application.Max(3, Range("A" & Rows.Count).End(xlUp).Row)) _
        .Find(CmbNom, lookat:=xlWhole)
    If Not cell Is Nothing Then
        MsgBox CmbNom & " Existe déjà." & Chr(13) & "Vous ne pouvez que le modifier ou le supprimer", 16
        Exit Sub
    End If
    lgn = Application.Max(3, Range("A" & Rows.Count).End(xlUp)(2).Row)
    
    
    For j = 1 To 7
        If IsNumeric(Controls("textBox" & j)) Then
            Cells(cell.Row, j) = CLng(Controls("textBox" & j))
        Else
            
            Cells(cell.Row, j) = Controls("textBox" & j)
        
        End If
    Next j
    
    Range("A3:G" & lgn).Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlNo

si cell est défini...

Oli

 

[JM27]

effectivement je n'avais pas ouvert ton fichier au début
ci joint ton fichier : OK chez moi

 

[Jacky67]

Bonjour JM27,

Private Sub CmdNouv_Click()
    Dim j As Integer
  
    Set cell = Range("A3:A" & Application.Max(3, Range("A" & Rows.Count).End(xlUp).Row)) _
        .Find(CmbNom, lookat:=xlWhole)
    If Not cell Is Nothing Then
        MsgBox CmbNom & " Existe déjà." & Chr(13) & "Vous ne pouvez que le modifier ou le supprimer", 16
        Exit Sub
    End If
    lgn = Application.Max(3, Range("A" & Rows.Count).End(xlUp)(2).Row)
  
  
    For j = 1 To 7
        If IsNumeric(Controls("textBox" & j)) Then
            Cells(cell.Row, j) = CLng(Controls("textBox" & j))
        Else
          
            Cells(cell.Row, j) = Controls("textBox" & j)
      
        End If
    Next j
  
    Range("A3:G" & lgn).Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlNo

si cell est défini...

Oli

Re..
Dans cette partie de code ce n'est pas
Cells(cell.Row, j) =....
Mais
Cells(lgn, j)=....

 

[thespeedy20]

Bonsoir Jacky67, JM27,

Dans les deux cas, quand il transfère dans la cellule, c'est toujours sous forme de texte et non un nombre....🙁

OLi

 

[Jacky67]

Bonsoir Jacky67, JM27,

Dans les deux cas, quand il transfère dans la cellule, c'est toujours sous forme de texte et non un nombre....🙁

Regarde la pièce jointe 1087166

OLi

Re...
Etonnant ca!
Les cellules de destination sont bien au bon format ???? ,et non mis au format texte manuellement.

 

[thespeedy20]

re,

oups, cellules étaient en format texte, j'ai changé ..cela fonctionne maintenant....
Merci Jacky67

Oli

 

[thespeedy20]

re,

J'ai mis les corrections dans mon fichier original, j'ai une erreur de dépassement de capacité...?

sur la ligne contenant CLng

Une solution ?

OLi

 

[JM27]

Bonsoir
variable mal déclarée
peut être déclarée en byte ou alors la valeur d'une des textbox comporte une virgule.
Ce qui n'est plus un entier long
essaye cdbl

mais sans fichier .....