For colonne = Columns("S").Column To Columns("U").Column For i = 0 To 11 If Cells(i + 4, colonne).Value = 1 Then toto = (colonne - 18) * 54 - 41 + i * 2 Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow End If Next Next
For colonne = Columns("S").Column To Columns("U").Column For i = 4 To 15 If Cells(i, colonne).Value = 1 Then toto = (i + 9) + i Mod 4 Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow End If Next Next
For colonne = Columns("S").Column To Columns("U").Column Select Case colonne Case 19: titi = 0 Case 20: titi = 52 Case 21: titi = 108 End Select For i = 4 To 15 If Cells(i, colonne).Value = 1 Then toto = (i + 9) + i Mod 4 + titi Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow End If Next Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSheets("Feuil2").Select For colonne = Columns("E").Column To Columns("AI").Column For i = 0 To 11 If Cells(i + 11, colonne).Value = 1 Then toto = (colonne - 5) * 54 - 41 + i * 2 Sheets("Feuil1").Select Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow End If Sheets("Feuil2").Select Next Next
If Cells(i + 11, colonne).Value = 1 Then
If Sheets("Feuil2").Cells(i + 11, colonne).Value = 1 Then
Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow
Sheets("Feuil1").Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow
For colonne = Columns("E").Column To Columns("AI").Column
For colonne = 5 to 35
For colonne 5 To 35 '5 colonne E & 35 = colonne AI For i = 0 To 11 If Sheets("Feuil2").Cells(i + 11, colonne).Value = 1 Then toto = (colonne - 5) * 54 - 41 + i * 2 Sheets("Feuil1").Range("A" & toto & ":A" & toto + 1).Interior.Color = vbYellow End If Next Next
toto = (colonne - 5) * 54 - 41 + i * 2
If Sheets("Feuil2").Range("A3").Value = "X" Then Sheets("Feuil2").Range("G4:L4").FormulaR1C1 = "1" End If
Range("A3:F3").Select Selection.Copy Range("G4").Select ActiveSheet.Paste Selection.Replace What:="X", Replacement:="1"
For i = 1 To 3 Cells(4, i + 6).Value IIf(Cells(3, i).Value "x", 1, "") Next