O
Ouin-Ouin
Guest
Bonsoir tout le monde,
Je reviens demander de l'aide pour essayer de continuer mon application, j'ai encore de la peine (beaucoup) à parler le langage VBA...
Dans le fichier joint j'ai mis les données en vert en VBA pour essayer de dispaché les données dans AnnexeII et AnnexeV selon les conditions
De plus je ne trouve pas non plus pourquoi????? les chiffres qui arrivent de l'USF se mettent en texte et non en Chiffres malgrès le format préciser en VBA. En effet plus tard je vais travailler avec des filtres pour faire des regroupemments et des totaux.
Merci beaucoup du temps déjà passé à m'aider et du temps futur qui y sera conscacré C'est toujours fort apprécié
Bon week end et/ou bonnes vacances à tous
Ouin-Ouin
Les conditions sont:
Les données doivent se mettrent en "AnnexeII" si:
If TextBox14 = 2.5 Then
Cells(Ligne, 12) = TextBox13
Else
If TextBox14 = "5" Or "10" Then Cells(Ligne, 10) = TextBox13
mais cela ne fonctionne pas...
Les données doivent se mettrent en "AnnexeV" si:
'
'TextBox14=1,5 et TextBox9=M alors la valeur TextBox13 .cells(Ligne,10) et si TextBox14=1,5 ( et seulement 1,5) alors TextBox13 .cells (Ligne12)
Merci beaucoup
Je reviens demander de l'aide pour essayer de continuer mon application, j'ai encore de la peine (beaucoup) à parler le langage VBA...
Dans le fichier joint j'ai mis les données en vert en VBA pour essayer de dispaché les données dans AnnexeII et AnnexeV selon les conditions
De plus je ne trouve pas non plus pourquoi????? les chiffres qui arrivent de l'USF se mettent en texte et non en Chiffres malgrès le format préciser en VBA. En effet plus tard je vais travailler avec des filtres pour faire des regroupemments et des totaux.
Merci beaucoup du temps déjà passé à m'aider et du temps futur qui y sera conscacré C'est toujours fort apprécié
Bon week end et/ou bonnes vacances à tous
Ouin-Ouin
Les conditions sont:
Les données doivent se mettrent en "AnnexeII" si:
If TextBox14 = 2.5 Then
Cells(Ligne, 12) = TextBox13
Else
If TextBox14 = "5" Or "10" Then Cells(Ligne, 10) = TextBox13
mais cela ne fonctionne pas...
Les données doivent se mettrent en "AnnexeV" si:
'
'TextBox14=1,5 et TextBox9=M alors la valeur TextBox13 .cells(Ligne,10) et si TextBox14=1,5 ( et seulement 1,5) alors TextBox13 .cells (Ligne12)
Merci beaucoup