bonjour à tous,
je suis dans un fichier de reporting et je dois faire la fonction IF-THEN-ELSE 37 fois de suite.
y a t il une astuce pour alléger le code?
voici mon début de code qui fonctionne très bien, sachant que je change les valeurs Fxx et Hxx et la suite de cellule n'est pas linéaire.
je vous remercie d'avance
je suis dans un fichier de reporting et je dois faire la fonction IF-THEN-ELSE 37 fois de suite.
y a t il une astuce pour alléger le code?
voici mon début de code qui fonctionne très bien, sachant que je change les valeurs Fxx et Hxx et la suite de cellule n'est pas linéaire.
Code:
Sub variable()
'
' COMMENTAIRE Macro
'
'environnement du mag
'env 1
If Range("F19").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H19").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H19").Value
End If
'env 2
If Range("F21").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H21").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H21").Value
End If
'env 3
If Range("F23").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H23").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H23").Value
End If
'etc... encore 34 fois
ActiveCell.Offset(1, 0).Select
End Sub
je vous remercie d'avance
Dernière édition: