Bonjour,
j'ai enregistré une macro assez longue sur la mise en page d'une feuille de calcul, et j'ai oublié d'inclure de convertir deux colonnes en format texte. Du coup, le reste des calculs est faux.
J'ai un peu la flemme de tout refaire, pourrais-je simplement ajouter le texte manquant dans la macro ? j'ai essayé de faire, mais je ne connais pas trop, et ca ne marche pas. Pouvez vous me donner un petit coup de main ?
Le texte actuel est le suivant
Range("AK2").Select
ActiveCell.FormulaR1C1 = _
"=IF((RC[-14]-RC[-13])=RC[-14],""Rupture"",IF((RC[-14]-RC[-13])=0,""OK"",IF((RC[-14]-RC[-13])<>RC[-14],""Splitter"")))"
Cette opération terminée, je suis sur colonne AK, avant de passer à la formule suivante qui est :
Range("AL2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-8]=""190001"",RC[-10],RC[-8])"
Entre les deux, il manque l'information que les colonne AB et AD sont à convertir en format textge, car la formule en AL2 cherche le texte 190001
Je pourrais changer la formle de AL, mais le problème est que mon fichier comporte d'autres formules, et il faudrait tout changer.
Bref pour insérer mon format texte, j'ai tenté de d'inclure ceci que j'ai pris dans une autre macro :
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Columns("AD:AD").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("AD1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
mais ca ne marche pas, j'ai recopié des infos qui me transforment tout en date.
pourriez vous svp m'aider à corriger ce genre de texte ?
D'avance merci
j'ai enregistré une macro assez longue sur la mise en page d'une feuille de calcul, et j'ai oublié d'inclure de convertir deux colonnes en format texte. Du coup, le reste des calculs est faux.
J'ai un peu la flemme de tout refaire, pourrais-je simplement ajouter le texte manquant dans la macro ? j'ai essayé de faire, mais je ne connais pas trop, et ca ne marche pas. Pouvez vous me donner un petit coup de main ?
Le texte actuel est le suivant
Range("AK2").Select
ActiveCell.FormulaR1C1 = _
"=IF((RC[-14]-RC[-13])=RC[-14],""Rupture"",IF((RC[-14]-RC[-13])=0,""OK"",IF((RC[-14]-RC[-13])<>RC[-14],""Splitter"")))"
Cette opération terminée, je suis sur colonne AK, avant de passer à la formule suivante qui est :
Range("AL2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-8]=""190001"",RC[-10],RC[-8])"
Entre les deux, il manque l'information que les colonne AB et AD sont à convertir en format textge, car la formule en AL2 cherche le texte 190001
Je pourrais changer la formle de AL, mais le problème est que mon fichier comporte d'autres formules, et il faudrait tout changer.
Bref pour insérer mon format texte, j'ai tenté de d'inclure ceci que j'ai pris dans une autre macro :
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Columns("AD:AD").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("AD1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
mais ca ne marche pas, j'ai recopié des infos qui me transforment tout en date.
pourriez vous svp m'aider à corriger ce genre de texte ?
D'avance merci
