Mettre un 1 dans une colonne

Bonjour, forum,

j'aurais besion de votre aide pur un petit problème de code et d'insertion,

voilà mon 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

hello

mets des commentaires dans ton code (difficle à suivre)

quel rapport entre ta question et le code ?

si elle n'est pas vide alors prendre une vide"

que veut dire " vide" " ?

merci

Alors voilà, mon code prend des cellules spécifiques ici

If Cells(x, 3) = 1 And Cells(x, 3).Interior.ColorIndex <> 3 Then 

Je voudrais que lorqu'elles sont sélectionnées alors un 1 apparaissent dans la colonne K

au niveau de la ligne de la cellule sélectionnés

Exemple avec une cellule:

on prend une cellule B4 qui correspond au type de cellule que je veux sélectionner(possédant un 1 et étant rouge), je veux que lorqu'elle est sélectionnée alors un 1 apparaisse en K4.

J'ai essayé comme ça mais ça ne marche pas.

Cells(x,11).SpecilCells(xlCellTypeBlanks).Value=1

Bonjour,

Voir si cela convient :

Cells(x, 11).Value = IIf(Cells(x, 11).Value = "", 1, "")

Salut redi,

je ne pense pas que ce soit un problème de code mais de positionnement de code:

voilà où je l'ai placé mais je ne sais pas si c'est bon.

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
                On Error GoTo 0
                w(v) = Cells(x, 2).Value
                v = v + 1
                Cells(x, 11).Value = IIf(Cells(x, 11).Value = "", 1, "")

Un petit coup de main svp?

re,

Pourrais-tu joindre un exemple de ton fichier ?

Ce serait plus facile pour comprendre.

Merci