Bonjour, forum,
j'aurais besion de votre aide pur un petit problème de code et d'insertion,
voilà mon code
J'aimerais insérer un code qui dit ceci:
Regarder dans la colonne K, si la cellule est vide alors y inscrire un 1, si elle n'est pas vide alors prendre une vide"
Merci
j'aurais besion de votre aide pur un petit problème de code et d'insertion,
voilà mon code
Code:
Sub Nom_FIP_3(w() As String)
Dim v As Byte, c As New Collection, x As Integer, y() As Variant, z() As Variant, i As Byte
Randomize
y = Array(16, 17, 18)
z = Array(9, 25, 42)
For i = 0 To 2
Do While c.Count < 3
cpt% = cpt% + 1
If cpt% > MAX_ITER Then
cpt% = 0
Exit Do
End If
x = Int(y(i) * Rnd + z(i))
If Cells(x, 3) = 1 And Cells(x, 3).Interior.ColorIndex <> 3 Then
On Error Resume Next
c.Add Cells(x, 3).Address, CStr(Cells(x, 3).Address)
If Err = 0 Then If Err = 0 Then Cells(x, 11) = "1"
On Error GoTo 0
w(v) = Cells(x, 2).Value
v = v + 1
End If
On Error GoTo 0
End If
Loop
Set c = Nothing
Next i
End Sub
Sub FIP_AIP_MUSC_3()
Dim p As Range, v As Byte, w(9) As String
Nom_FIP_3 w
For Each p In Sheets("Mois en cours").Range("F4:F18")
If p.Interior.ColorIndex <> 6 And IsEmpty(p.Value) Then
p.Value = w(0)
For v = 1 To UBound(w)
p.Value = p.Value & "/" & w(v)
Next v
End If
Next p
Nom_FIP_3 w
For Each p In Sheets("Mois en cours").Range("F19:F34")
If p.Interior.ColorIndex <> 6 And IsEmpty(p.Value) Then
p.Value = w(0)
For v = 1 To UBound(w)
p.Value = p.Value & "/" & w(v)
Next v
End If
Next p
End Sub
J'aimerais insérer un code qui dit ceci:
Regarder dans la colonne K, si la cellule est vide alors y inscrire un 1, si elle n'est pas vide alors prendre une vide"
Merci