I
IFFIC
Guest
Bonjour à tous
Au diable la honte de me planter pour si peu!
Mais que voulez-vous, j'aimerais préserver mes derniers cheveux.....
Voici l'objet du souci: Cf. Zip joint
Dim QTE As Integer
Dim LARG As Integer
Dim HAUT As Integer
Dim GENRE As String
Dim NOTARIF As Integer
Private Sub UserForm_Initialize()
Dim Derligne As Integer, Ling As Integer
Derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For Ling = 2 To Derligne
QTE = Worksheets("Feuil1").Cells(Ling, 2).Value
LARG = Worksheets("Feuil1").Cells(Ling, 3).Value
HAUT = Worksheets("Feuil1").Cells(Ling, 4).Value
If QTE > 9 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
ElseIf QTE < 10 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
" " & QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
End If
Next Ling
Me.mesure.RowSource =
"Feuil1!E2:E" & Sheets("Feuil1").Cells(2, 1).End(xlDown).Row
End Sub
Private Sub FA1_Click()
NOTARIF = 2
'GENRE = ExecuteExcel4Macro("'C:\[ESSAI]TARIF" & NOTARIF & "'!R4C3")
GENRE = "à la française"
Sheets("Feuil1").Cells(2, 6).Value = QTE & " Chassis " & GENRE & " de " & Right(Me.mesure.Value, 13)
DET.Show (USF avec la listbox du résultat)
End Sub
J'ai tout tenté, même les menaces d'abandon, quand je valide le bouton "FA1":
en Cells 2,6, j'ai le bon résultat, mais toujours la dernière ligne de "QTE" ?
Un p'tit coup de main, s'il vous plait m'Sieurs Dames, je craque!
Ma calvitie et moi vous remercions par avance
Et bon Dimanche à vous
IFFIC
Au diable la honte de me planter pour si peu!
Mais que voulez-vous, j'aimerais préserver mes derniers cheveux.....
Voici l'objet du souci: Cf. Zip joint
Dim QTE As Integer
Dim LARG As Integer
Dim HAUT As Integer
Dim GENRE As String
Dim NOTARIF As Integer
Private Sub UserForm_Initialize()
Dim Derligne As Integer, Ling As Integer
Derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For Ling = 2 To Derligne
QTE = Worksheets("Feuil1").Cells(Ling, 2).Value
LARG = Worksheets("Feuil1").Cells(Ling, 3).Value
HAUT = Worksheets("Feuil1").Cells(Ling, 4).Value
If QTE > 9 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
ElseIf QTE < 10 Then
Worksheets("Feuil1").Cells(Ling, 5).Value =
" " & QTE & " Chassis de " & LARG & " " & " x " & " " & HAUT
End If
Next Ling
Me.mesure.RowSource =
"Feuil1!E2:E" & Sheets("Feuil1").Cells(2, 1).End(xlDown).Row
End Sub
Private Sub FA1_Click()
NOTARIF = 2
'GENRE = ExecuteExcel4Macro("'C:\[ESSAI]TARIF" & NOTARIF & "'!R4C3")
GENRE = "à la française"
Sheets("Feuil1").Cells(2, 6).Value = QTE & " Chassis " & GENRE & " de " & Right(Me.mesure.Value, 13)
DET.Show (USF avec la listbox du résultat)
End Sub
J'ai tout tenté, même les menaces d'abandon, quand je valide le bouton "FA1":
en Cells 2,6, j'ai le bon résultat, mais toujours la dernière ligne de "QTE" ?
Un p'tit coup de main, s'il vous plait m'Sieurs Dames, je craque!
Ma calvitie et moi vous remercions par avance
Et bon Dimanche à vous
IFFIC