J
joris
Guest
Bonjour a tous,
j'ai un problem que je n'arrive pas a resoudre le mieux est de vous montrer mon code :
Call fill_tender("Contractual clauses", "A")
Call fill_tender("Price", "B")
Sub fill_tender(page As String, col As String)
For i = 1 To 3
test = Sheet3.Range(col & i).Value
Sheet3.Cells(7 + i, 1).Value = test
If test <> "" Then
Worksheets(page).Cells(3 + 2 * i, 1).Value = i & ")" & Worksheets("Sheet2").Range("A" & test).Value
Worksheets(page).Cells(32 + i, 1).Value = i & ")" & Worksheets("Sheet2").Range("D" & test).Value
Worksheets(page).Cells(32 + i, 7).Value = Worksheets("Sheet2").Range("T" & test).Value
Worksheets(page).Cells(32 + i, 8).Value = Worksheets("Sheet2").Range("R" & test).Value
End If
Next i
End Sub
Voila j'appelle trois fois de suite la fonction fill_tender avec comme parametre le nom de la sheet a remplir plus le nom de la colonne ou sont stoke les infos.
Normallement ils y a des chiffre dans A1 A2 et A3 tout comme dans B1 B2 B3
Cependant quand il n'y en a pas je veux rien faire d'ou le If test <> "" Then
.
Le probleme que j'ai c'est que par exemple si A3 est vide ou B1 la boucle s'arrete et je ne comprend pas pourquoi.
Merci de votre aide
Joris
j'ai un problem que je n'arrive pas a resoudre le mieux est de vous montrer mon code :
Call fill_tender("Contractual clauses", "A")
Call fill_tender("Price", "B")
Sub fill_tender(page As String, col As String)
For i = 1 To 3
test = Sheet3.Range(col & i).Value
Sheet3.Cells(7 + i, 1).Value = test
If test <> "" Then
Worksheets(page).Cells(3 + 2 * i, 1).Value = i & ")" & Worksheets("Sheet2").Range("A" & test).Value
Worksheets(page).Cells(32 + i, 1).Value = i & ")" & Worksheets("Sheet2").Range("D" & test).Value
Worksheets(page).Cells(32 + i, 7).Value = Worksheets("Sheet2").Range("T" & test).Value
Worksheets(page).Cells(32 + i, 8).Value = Worksheets("Sheet2").Range("R" & test).Value
End If
Next i
End Sub
Voila j'appelle trois fois de suite la fonction fill_tender avec comme parametre le nom de la sheet a remplir plus le nom de la colonne ou sont stoke les infos.
Normallement ils y a des chiffre dans A1 A2 et A3 tout comme dans B1 B2 B3
Cependant quand il n'y en a pas je veux rien faire d'ou le If test <> "" Then
.
Le probleme que j'ai c'est que par exemple si A3 est vide ou B1 la boucle s'arrete et je ne comprend pas pourquoi.
Merci de votre aide
Joris