DanielR1971
XLDnaute Nouveau
Bonjour,
J'ai créé une macro pour la mise en page de ma base de données dont les éléments sont extraits de SAP.
Dans ma macro, j'indique qu'il faut ajouter une colonne en "B". Dans cette colonne je désire écrire une formule SI pour déterminer des critères de tri en fonction des données de la colonne de référence "A".
La formule que j'ai écrite est : =SI(A1="";"";SI(A1="n/a";"N";"O"))
Dans la macro, je copie cette formule et la colle de la cellule "B3 : "B8000".
Lorsque je lance la macro, le calcul ne se fait pas, seul la formule est affichée, c'est comme si la colonne était en format texte.
Dès lors, j'ajoute dans ma macro la conversion de la colonne "B" en format standard (donnée, convertir, etc..). Malheureusement cela ne marche pas.
Voici une partie de la macro en question, je copie uniquement ce qui est utile pour l'analyse du problème.
Columns("B:B").Select
Selection.TextToColumns Destination:=Columns("B:B"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
1), TrailingMinusNumbers:=True
Range("B2").Select
ActiveCell.FormulaR1C1 = "=si(A2="""";"""";si(A2=""n/a"";""N"";""O""))"
Range("B2").Select
Selection.Copy
Range("B3:B4806").Select
ActiveSheet.Paste
End Sub
Si quelqu'un pouvait m'aider ou éclairer ma lanterne ce serait bien sympa.
Bien cordialement,
Daniel
J'ai créé une macro pour la mise en page de ma base de données dont les éléments sont extraits de SAP.
Dans ma macro, j'indique qu'il faut ajouter une colonne en "B". Dans cette colonne je désire écrire une formule SI pour déterminer des critères de tri en fonction des données de la colonne de référence "A".
La formule que j'ai écrite est : =SI(A1="";"";SI(A1="n/a";"N";"O"))
Dans la macro, je copie cette formule et la colle de la cellule "B3 : "B8000".
Lorsque je lance la macro, le calcul ne se fait pas, seul la formule est affichée, c'est comme si la colonne était en format texte.
Dès lors, j'ajoute dans ma macro la conversion de la colonne "B" en format standard (donnée, convertir, etc..). Malheureusement cela ne marche pas.
Voici une partie de la macro en question, je copie uniquement ce qui est utile pour l'analyse du problème.
Columns("B:B").Select
Selection.TextToColumns Destination:=Columns("B:B"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
1), TrailingMinusNumbers:=True
Range("B2").Select
ActiveCell.FormulaR1C1 = "=si(A2="""";"""";si(A2=""n/a"";""N"";""O""))"
Range("B2").Select
Selection.Copy
Range("B3:B4806").Select
ActiveSheet.Paste
End Sub
Si quelqu'un pouvait m'aider ou éclairer ma lanterne ce serait bien sympa.
Bien cordialement,
Daniel
