Dennnisss
XLDnaute Occasionnel
Bonjour a tous
J'ai creer un UF avec l'aide des intervenants et j'ai trouver un Uf sur votre site que j'essaie de mettre a mon besoin il fonctionne presque sauf qu'il transfert tres mal ces donnees , il semble transferer ces donnees en mode texte alors il ne compte plus ces chiffres correct , j'ai fait un test sur la feuille Entree donc j'ai mis dans la rangee 10 une somme des colonnes et j'ai recopier ces donnees dans la rangee 12 pour la verification si il change bien ces donnees j'ai en bas un code qui transfert ces donnees vers la feuille de calcul j'ai tenter en fouillant sur votre site quelque formule mais envain pas de bon resultats , les lignes en rouge sont un test que j'ai tenter mais apres sont tranfert il appose un triangle dans le coin gauche de la cellule comme etant une erreur
alors j'aurais besoin d'aide svp , pour resoudre se probleme , lorsque j'utilise le bouton Modif alors est la mon probleme
alors merci de votre attention a lire cette alerte
dennnisss
Private Sub btnmodifier_Click()
If ComboBox1 <> "" Then
With Feuil2
lig = ComboBox1.ListIndex + 3
.Cells(lig, 1) = ComboBox1: ComboBox1 = ""
For i = 1 To 18
.Cells(lig, i + 1) = Controls("T" & i): Controls("T" & i) = ""
' Controls("T1") = Format(Controls("T1"), "dd mmmm yyyy")
' Controls("T2") = Format(Val(Controls("T2")))
Next i
End With
End If
Unload Me
Correcteur.Show
End Sub
J'ai creer un UF avec l'aide des intervenants et j'ai trouver un Uf sur votre site que j'essaie de mettre a mon besoin il fonctionne presque sauf qu'il transfert tres mal ces donnees , il semble transferer ces donnees en mode texte alors il ne compte plus ces chiffres correct , j'ai fait un test sur la feuille Entree donc j'ai mis dans la rangee 10 une somme des colonnes et j'ai recopier ces donnees dans la rangee 12 pour la verification si il change bien ces donnees j'ai en bas un code qui transfert ces donnees vers la feuille de calcul j'ai tenter en fouillant sur votre site quelque formule mais envain pas de bon resultats , les lignes en rouge sont un test que j'ai tenter mais apres sont tranfert il appose un triangle dans le coin gauche de la cellule comme etant une erreur
alors j'aurais besoin d'aide svp , pour resoudre se probleme , lorsque j'utilise le bouton Modif alors est la mon probleme
alors merci de votre attention a lire cette alerte
dennnisss
Private Sub btnmodifier_Click()
If ComboBox1 <> "" Then
With Feuil2
lig = ComboBox1.ListIndex + 3
.Cells(lig, 1) = ComboBox1: ComboBox1 = ""
For i = 1 To 18
.Cells(lig, i + 1) = Controls("T" & i): Controls("T" & i) = ""
' Controls("T1") = Format(Controls("T1"), "dd mmmm yyyy")
' Controls("T2") = Format(Val(Controls("T2")))
Next i
End With
End If
Unload Me
Correcteur.Show
End Sub