Traduction de formule

Le 27/12/2024 à 14:26

Bonjour,

Est ce que quelqu'un pourrais me traduire cette macro

J'aimerais changer des données en JAUNE mais je ne comprends pas .

ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"

et J'aimerais changer les données en BLEU en indiquant une cellule

ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"

PLAN Macro
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PLAN DE CHARGEMENT ").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A6").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""YO"",""X"")"
Range("A7").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""DIDIER"",""X"")"
Range("A8").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A9").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A10").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A11").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""YO"",""X"")"
Range("A12").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A13").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""DIDIER"",""X"")"
Range("A14").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A15").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""YO"",""X"")"
Range("A16").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A17").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A18").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""YO"",""X"")"
Range("A19").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""DIDIER"",""X"")"
Range("A20").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""ALIK"",""X"")"
Range("A21").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""LOLO"",""X"")"
Range("A22").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""LYE"",""X"")"
Range("A23").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A24").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""YO"",""X"")"
Range("A25").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""LOLO"",""X"")"
Range("A26").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""LYE"",""X"")"
Range("A27").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A28").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A29").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A30").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A31").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A32").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("A33").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[11]=""x"",""BETTY"",""X"")"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[10]=""X"",'02'!R[12]C[2],""X"")"
Range("B4").Select
Selection.AutoFill Destination:=Range("B4:B33"), Type:=xlFillDefault
Range("B4:B33").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Range("C4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[9]=""X"",'02'!R[12]C[2],""X"")"
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C33"), Type:=xlFillDefault
Range("C4:C33").Select
ActiveWindow.SmallScroll Down:=-40
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PLAN DE CHARGEMENT ").Select
Range("E4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[7]=""X"",'02'!R[12]C[9],""X"")"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:E33"), Type:=xlFillDefault
Range("E4:E33").Select
ActiveWindow.SmallScroll Down:=-40
Range("H4").Select
Range("A3:E3").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$E$33").AutoFilter Field:=1, Criteria1:="X"
Range("A4:E33").Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$3:$E$14").AutoFilter Field:=1
Range("A3:E3").Select
Selection.AutoFilter
Range("I3").Select

Edit moderation : code mis entre balises code "</>" voir barre de menu. merci d'y penser à l'avenir quand tu mets du code.

Merci

Le 27/12/2024 à 14:41

bonjour

R[12]C[11] fait référence à la cellule qui se trouve 12 ligne plus bas et 11 colonne à droite de la cellule qui contient la formule.

Donc pour "=IF('02'!R[12]C[11]=""x"" ... '02'!R[12]C[11] fait référence à la cellule L16 de la feuille 02

tu pourrais plus simplement écrire ta formule ainsi, en supposant que tu veuilles remplacer le texte BETTY par une référence à la cellule Z5

Sheets("PLAN DE CHARGEMENT ").Range("A4").Formula = "=IF('02'!L16=""x"",Z5,""X"")"
Le 27/12/2024 à 15:44

Bonjour,

J'ai bien compris votre solution mais cela ne fonctionne pas.

voici ma nouvelle macro

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PLAN DE CHARGEMENT ").Sellect
Range("A4").Formula = "=IF('02'!M16=""X"",E16,""X"")"
Range("A5").Formula = "=IF('02'!M17=""X"",E17,""X"")"
Range("A6").Formula = "=IF('02'!M18=""X"",E18,""X"")"
Range("A7").Formula = "=IF('02'!M19=""X"",E19,""X"")"
Range("A8").Formula = "=IF('02'!M20=""X"",E02,""X"")"
Range("A9").Formula = "=IF('02'!M21=""X"",E21,""X"")"
Range("A10").Formula = "=IF('02'!M22=""X"",E22,""X"")"
Range("A11").Formula = "=IF('02'!M23=""X"",E23,""X"")"
Range("A12").Formula = "=IF('02'!M24=""X"",E24,""X"")"
Range("A13").Formula = "=IF('02'!M25=""X"",E25,""X"")"
Range("A14").Formula = "=IF('02'!M26=""X"",E26,""X"")"
Range("A15").Formula = "=IF('02'!M27=""X"",E27,""X"")"
Range("A16").Formula = "=IF('02'!M28=""X"",E28,""X"")"
Range("A17").Formula = "=IF('02'!M29=""X"",E29,""X"")"
Range("A18").Formula = "=IF('02'!M30=""X"",E30,""X"")"
Range("A19").Formula = "=IF('02'!M31=""X"",E31,""X"")"
Range("A20").Formula = "=IF('02'!M32=""X"",E32,""X"")"
Range("A21").Formula = "=IF('02'!M33=""X"",E33,""X"")"
Range("A22").Formula = "=IF('02'!M34=""X"",E34,""X"")"
Range("A23").Formula = "=IF('02'!M35=""X"",E35,""X"")"
Range("A24").Formula = "=IF('02'!M36=""X"",E36,""X"")"
Range("A25").Formula = "=IF('02'!M37=""X"",E37,""X"")"
Range("A26").Formula = "=IF('02'!M38=""X"",E38,""X"")"
Range("A27").Formula = "=IF('02'!M39=""X"",E39,""X"")"
Range("A28").Formula = "=IF('02'!M40=""X"",E40,""X"")"
Range("A29").Formula = "=IF('02'!M41=""X"",E41,""X"")"
Range("A30").Formula = "=IF('02'!M42=""X"",E42,""X"")"
Range("A31").Formula = "=IF('02'!M43=""X"",E43,""X"")"
Range("A32").Formula = "=IF('02'!M44=""X"",E44,""X"")"
Range("A33").Formula = "=IF('02'!M45=""X"",E45,""X"")"
Range("A34").Formula = "=IF('02'!M46=""X"",E46,""X"")"
Range("B4").Select
Selection.AutoFill Destination:=Range("B4:B33"), Type:=xlFillDefault
Range("B4:B33").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Range("C4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[9]=""X"",'02'!R[12]C[2],""X"")"
Range("C4").Select
Selection.AutoFill Destination:=Range("C4:C33"), Type:=xlFillDefault
Range("C4:C33").Select
ActiveWindow.SmallScroll Down:=-40
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PLAN DE CHARGEMENT ").Select
Range("E4").Select
ActiveCell.FormulaR1C1 = "=IF('02'!R[12]C[7]=""X"",'02'!R[12]C[9],""X"")"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:E33"), Type:=xlFillDefault
Range("E4:E33").Select
ActiveWindow.SmallScroll Down:=-40
Range("H4").Select
Range("A3:E3").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$E$33").AutoFilter Field:=1, Criteria1:="X"
Range("A4:E33").Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$3:$E$14").AutoFilter Field:=1
Range("A3:E3").Select
Selection.AutoFilter
Range("I3").Select

End Sub
Le 27/12/2024 à 16:24

J'ai bien compris votre solution mais cela ne fonctionne pas.

désolé que cela ne fonctionne pas, je ne peux malheureusement fournir aucune aide sur base d'un "ça ne fonctionne pas".

Y a-t-il un message d'erreur ?

Le 27/12/2024 à 16:38

Bonjour Bettina et H2so4

je suis encore en train de chercher les données en jaune et en bleu. je ne vois pas de couleur dans le premier poste

Par contre je vois dès les premières lignes de code :

Sheets("PLAN DE CHARGEMENT ").Sellect avec 2 L je ne penses pas.

Le 27/12/2024 à 16:57

Bonjour Xmenpl,

Je suis encore en train de chercher les données en jaune et en bleu

J'ai mis le code entre balises et de ce fait, la mise en forme du texte a été perdue. C'est corrigé.

Le 27/12/2024 à 16:59

Vu faut déjà qu'elle corrige son premier select pour que l'on sache ce qui ne fonctionne pas.

Rechercher des sujets similaires à "traduction formule"