Bonjour le forum, je n'arrive pas à simplifier ce programme ci dessous:
If Cells(2, 2) <> True Then
Cells(55, 4).Value = ""
Cells(55, 5).Value = ""
Cells(55, 6).Value = ""
Cells(55, 7).Value = ""
Cells(55, 8).Value = ""
Cells(55, 9).Value = ""
Else
Cells(55, 4).Value = Sheets("Données CR M1").Cells(2, 3).Value
Cells(55, 5).Value = Sheets("Données CR M1").Cells(2, 4).Value
Cells(55, 6).Value = Sheets("Données CR M1").Cells(2, 5).Value
Cells(55, 7).Value = Sheets("Données CR M1").Cells(2, 6).Value
Cells(55, 8).Value = Sheets("Données CR M1").Cells(2, 7).Value
Cells(55, 9).Value = Sheets("Données CR M1").Cells(2, 8).Value
End If
If Cells(3, 2) <> True Then
Cells(56, 4).Value = ""
Cells(56, 5).Value = ""
Cells(56, 6).Value = ""
Cells(56, 7).Value = ""
Cells(56, 8).Value = ""
Cells(56, 9).Value = ""
Else
Cells(56, 4).Value = Sheets("Données CR M1").Cells(3, 3).Value
Cells(56, 5).Value = Sheets("Données CR M1").Cells(3, 4).Value
Cells(56, 6).Value = Sheets("Données CR M1").Cells(3, 5).Value
Cells(56, 7).Value = Sheets("Données CR M1").Cells(3, 6).Value
Cells(56, 8).Value = Sheets("Données CR M1").Cells(3, 7).Value
Cells(56, 9).Value = Sheets("Données CR M1").Cells(3, 8).Value
End If
If Cells(4, 2) <> True Then
Cells(57, 4).Value = ""
Cells(57, 5).Value = ""
Cells(57, 6).Value = ""
Cells(57, 7).Value = ""
Cells(57, 8).Value = ""
Cells(57, 9).Value = ""
Else
Cells(57, 4).Value = Sheets("Données CR M1").Cells(4, 3).Value
Cells(57, 5).Value = Sheets("Données CR M1").Cells(4, 4).Value
Cells(57, 6).Value = Sheets("Données CR M1").Cells(4, 5).Value
Cells(57, 7).Value = Sheets("Données CR M1").Cells(4, 6).Value
Cells(57, 8).Value = Sheets("Données CR M1").Cells(4, 7).Value
Cells(57, 9).Value = Sheets("Données CR M1").Cells(4, 8).Value
End If
Sachant que i va de 2 à 47 et j de 55 à 100 j'ai écrit ceci mais sa ne marche pas:
For i = 2 To 47
For j = 55 To 100
If Cells(i, 2) <> True Then
Cells(j, 4).Value = ""
Cells(j, 5).Value = ""
Cells(j, 6).Value = ""
Cells(j, 7).Value = ""
Cells(j, 8).Value = ""
Cells(j, 9).Value = ""
j = j + 1
i = i + 1
Else
Cells(j, 4).Value = Sheets("Données CR M1").Cells(i, 3).Value
Cells(j, 5).Value = Sheets("Données CR M1").Cells(i, 4).Value
Cells(j, 6).Value = Sheets("Données CR M1").Cells(i, 5).Value
Cells(j, 7).Value = Sheets("Données CR M1").Cells(i, 6).Value
Cells(j, 8).Value = Sheets("Données CR M1").Cells(i, 7).Value
Cells(j, 9).Value = Sheets("Données CR M1").Cells(i, 8).Value
j = j + 1
i = i + 1
End If
Next j
Next i
Si vous pouvez m'aider...Merci d'avance pour vos réponses.
If Cells(2, 2) <> True Then
Cells(55, 4).Value = ""
Cells(55, 5).Value = ""
Cells(55, 6).Value = ""
Cells(55, 7).Value = ""
Cells(55, 8).Value = ""
Cells(55, 9).Value = ""
Else
Cells(55, 4).Value = Sheets("Données CR M1").Cells(2, 3).Value
Cells(55, 5).Value = Sheets("Données CR M1").Cells(2, 4).Value
Cells(55, 6).Value = Sheets("Données CR M1").Cells(2, 5).Value
Cells(55, 7).Value = Sheets("Données CR M1").Cells(2, 6).Value
Cells(55, 8).Value = Sheets("Données CR M1").Cells(2, 7).Value
Cells(55, 9).Value = Sheets("Données CR M1").Cells(2, 8).Value
End If
If Cells(3, 2) <> True Then
Cells(56, 4).Value = ""
Cells(56, 5).Value = ""
Cells(56, 6).Value = ""
Cells(56, 7).Value = ""
Cells(56, 8).Value = ""
Cells(56, 9).Value = ""
Else
Cells(56, 4).Value = Sheets("Données CR M1").Cells(3, 3).Value
Cells(56, 5).Value = Sheets("Données CR M1").Cells(3, 4).Value
Cells(56, 6).Value = Sheets("Données CR M1").Cells(3, 5).Value
Cells(56, 7).Value = Sheets("Données CR M1").Cells(3, 6).Value
Cells(56, 8).Value = Sheets("Données CR M1").Cells(3, 7).Value
Cells(56, 9).Value = Sheets("Données CR M1").Cells(3, 8).Value
End If
If Cells(4, 2) <> True Then
Cells(57, 4).Value = ""
Cells(57, 5).Value = ""
Cells(57, 6).Value = ""
Cells(57, 7).Value = ""
Cells(57, 8).Value = ""
Cells(57, 9).Value = ""
Else
Cells(57, 4).Value = Sheets("Données CR M1").Cells(4, 3).Value
Cells(57, 5).Value = Sheets("Données CR M1").Cells(4, 4).Value
Cells(57, 6).Value = Sheets("Données CR M1").Cells(4, 5).Value
Cells(57, 7).Value = Sheets("Données CR M1").Cells(4, 6).Value
Cells(57, 8).Value = Sheets("Données CR M1").Cells(4, 7).Value
Cells(57, 9).Value = Sheets("Données CR M1").Cells(4, 8).Value
End If
Sachant que i va de 2 à 47 et j de 55 à 100 j'ai écrit ceci mais sa ne marche pas:
For i = 2 To 47
For j = 55 To 100
If Cells(i, 2) <> True Then
Cells(j, 4).Value = ""
Cells(j, 5).Value = ""
Cells(j, 6).Value = ""
Cells(j, 7).Value = ""
Cells(j, 8).Value = ""
Cells(j, 9).Value = ""
j = j + 1
i = i + 1
Else
Cells(j, 4).Value = Sheets("Données CR M1").Cells(i, 3).Value
Cells(j, 5).Value = Sheets("Données CR M1").Cells(i, 4).Value
Cells(j, 6).Value = Sheets("Données CR M1").Cells(i, 5).Value
Cells(j, 7).Value = Sheets("Données CR M1").Cells(i, 6).Value
Cells(j, 8).Value = Sheets("Données CR M1").Cells(i, 7).Value
Cells(j, 9).Value = Sheets("Données CR M1").Cells(i, 8).Value
j = j + 1
i = i + 1
End If
Next j
Next i
Si vous pouvez m'aider...Merci d'avance pour vos réponses.