Insérer chiffres dans colonne "I"

bonjour à tous,

j'aimerais une macro vba excel qui mettrait "0.5" dans la colonne "i" lorsque dans la colonne "d" il y a 4 chiffres qui diffèrent du suivant et vice versa lorsque il y a 4 chiffres qui diffèrent du précédent je vous joins un fichier explicatif dans la feuille active

merçi d'avance

Jacques

Bonjour,

Essayez cette macro:

Sub Remplissage_Colonne_I()
    Application.ScreenUpdating = False
    DerLig = Range("D" & Rows.Count).End(xlUp).Row
    Range("I2:I" & DerLig).FormulaR1C1 = "=IF(RC[-5]="""","""",IF(OR(AND(R[-1]C[-5]<>"""",RC[-5]<>R[-1]C[-5]),AND(R[1]C[-5]<>"""",RC[-5]<>R[1]C[-5])),0.5,""""))"
    Range("I2:I" & DerLig).Value = Range("I2:I" & DerLig).Value
End Sub

Cdlt

Bonjour Arturo83

Alors là bravo et un grand merçi

ça fonctionne super

Bonjour Arturo83,

une petite question peut on transformer la macro pour qu'elle n'agisse que si il y a des nombres à 4 chiffres dans la colonne "D" et compris entre 1600 et3600 pour tous les autres cas on ne rajoute rien d'avance merçi , non , un grand merçi

bonne soirée

Jacques

Bonjour,

Essayez celle-ci:

Sub Remplissage_Colonne_I()
    Application.ScreenUpdating = False
    DerLig = Range("D" & Rows.Count).End(xlUp).Row
    Range("I2:I" & DerLig).FormulaR1C1 = "=IF(RC[-5]="""","""",IF(OR(AND(R[-1]C[-5]>=1600,R[-1]C[-5]<=3600,RC[-5]>=1600,RC[-5]<=3600,LEN(R[-1]C[-5])=4,LEN(RC[-5])=4,R[-1]C[-5]<>"""",RC[-5]<>R[-1]C[-5]),AND(RC[-5]>=1600,RC[-5]<=3600,R[1]C[-5]>=1600,R[1]C[-5]<=3600,LEN(RC[-5])=4,LEN(R[1]C[-5])=4,R[1]C[-5]<>"""",RC[-5]<>R[1]C[-5])),0.5,""""))"
    Range("I2:I" & DerLig).Value = Range("I2:I" & DerLig).Value
End Sub

Cdlt

Bonjour Arturo83,

Je vous remercie sincèrement la macro fonctionne à merveille

je vous souhaite un bon week-end encore merçi

Jacques