O
Ouin-Ouin
Guest
Bonjour à tous de Djerba ou il fait un temps magnifique et excellente semaine.
Je désire préparer un petit IF (SI) dans mon USF:
la valeur de mon TextBox13 est 1,5 alors (si argument valide ) alors en colonne J "sinon" ( et pour toute autre valeur ) en colonne L
Voilà la procédure actuel:
With TheBaseBook.Sheets("AnnexeII") 'vu qu'on a deux classeurs à ce moment là... ( merci thierry )
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 ou
.Range("L" & CStr(Ligne)) = TextBox13 selon la valeur du TextBox13 dans l'USF
.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
Bonne journée à tous
Ouin-Ouin
Je désire préparer un petit IF (SI) dans mon USF:
la valeur de mon TextBox13 est 1,5 alors (si argument valide ) alors en colonne J "sinon" ( et pour toute autre valeur ) en colonne L
Voilà la procédure actuel:
With TheBaseBook.Sheets("AnnexeII") 'vu qu'on a deux classeurs à ce moment là... ( merci thierry )
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 ou
.Range("L" & CStr(Ligne)) = TextBox13 selon la valeur du TextBox13 dans l'USF
.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
Bonne journée à tous
Ouin-Ouin