Microsoft 365 excel macros

[omarghatrif]

bonjour,

je suis débutant en vba, je n'arrive pas à créer un programme qui me permet de :
Créer une nouvelle colonne entre la colonne T et la colonne Y qui s'appelle qtés réelles.
Cette nouvelle colonne(qtés réelles ) = si la colonne T= PAL alors qtés réelles = colonne S
si la colonne T= PC alors qtés réelles = 1

le fichier est en PJ et merci d'avance

 

[Dranreb]

Bonjour.
Entre T et Y, c'est vague ! Mettons en U alors :

Sub CréeColU()
   Columns("U").Insert
   [U1].Value = "Qtés réelles."
   Intersect(ActiveSheet.[U2:U1000000], ActiveSheet.UsedRange).FormulaR1C1 _
      = "=IF(RC[-1]=""PAL"",RC[-2],N(RC[-1]=""PC""))"
   End Sub

 

[omarghatrif]

merci de ta réponse.