If/VBA

[Ouin-Ouin]

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

 

[Robert]

Bonsoir Ouin-ouin, bonsoir le forum,

Impossible de faire tourner ta macro car il manque des feuilles, bug à l'ouverture (manque un UserForm ou alors mauvais nom)... Tu aurais pu aussi préciser que ton problème se situait dans l'Userform1 pour éviter de chercher... Mais bon ! Je pense, avec le peu d'éléments que j'ai, que la solution se trouve peut-être à ce niveau. Essaie :

If val(TextBox14.value) = 2.5 Then

au lieu de :

If TextBox14 = 2.5 Then


Si ça marche modifie les autre lignes.

Bon courage,

Robert

 

[Ouin-Ouin]

Bonjour Robert Bonjour le Forum, et bon dimanche à tous

Désolé de ne pas avoir été claire dans ma demande et du manque de précision... Actuellement le problème se pose toujours dans l'USF1 en ce qui concerne l'annexe II( pour commencer ) avant de passer à l'annexeV le petit problème est le suivant:

Tel que le IF est écrit ci dessous il va se loger dans les colonnes 10 et 12 alors que ce que je désire c'est en colonne 10 OU 12 en fonction du IF

With TheBaseBook.Sheets("AnnexeII") 'vu qu'on a deux classeurs à ce moment là...
Ligne = .Range("B65536").End(xlUp).Row + 1

.Range("B" & CStr(Ligne)) = TextBox16
.Range("C" & CStr(Ligne)) = TextBox15
.Range("D" & CStr(Ligne)) = TextBox2
.Range("E" & CStr(Ligne)) = TextBox9
.Range("F" & CStr(Ligne)) = ComboBox1
.Range("G" & CStr(Ligne)) = TextBox3
.Range("H" & CStr(Ligne)) = TextBox8
.Range("I" & CStr(Ligne)) = TextBox5
.Range("J" & CStr(Ligne)) = TextBox13
.Range("K" & CStr(Ligne)) = TextBox13
.Range("O" & CStr(Ligne)) = Label2
.Range("N" & CStr(Ligne)) = Label1

.Range("J" & CStr(Ligne)).NumberFormat = "#,###,###0.000"
.Range("L" & CStr(Ligne)).NumberFormat = "#,###,###0.000"
.Range("N" & CStr(Ligne)).NumberFormat = "#,###,###0.000"
.Range("O" & CStr(Ligne)).NumberFormat = "#,###,###0.000"

.Cells(Ligne, 1) = Ligne - 2
End With


If TextBox14.Value = "2,5" Then
Cells(Ligne, 12) = TextBox13.Value

Else
If TextBox14.Value = "5" Or "10" Then Cells(Ligne, 10) = TextBox13.Value
End Sub

Merci de votre aide ( ensuite je dois lui faire comprendre pour l'AnnexeV)...
@plus Ouin-Ouin

 

[Ouin-Ouin]

Volà la version qui fonctionne je pense que cela n'allait pas parce qu'il manquait le End With ou sinon je sais pas...

If TextBox14 = 2.5 Then
.Cells(Ligne, 10) = TextBox13
Else
If TextBox14 = "5" Or "10" Then .Cells(Ligne, 12) = TextBox13


End If



End With



End Sub