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