Délimitation auto
Bonjour,
Je colle des données en B1 par exemple, je voudrais qu'il colle les données en séparant les données dans les colonnes par les points et les espaces, j'utilise ceci :
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Space:=True, Other:=True, OtherChar:="."
Le pb est que lorsque je relance la commande, j'ai un msg d'érreur car c'est déja délimité. Y a t'il un moyen en préparant la feuille préalablement de zapper cette commande, en gros que lorsqu'on colle les données, la séparation se fait automatiquement.
Autre question, peut-on supprimer le message "Voulez vous remplacer le contenu des cellules de destination"
merci
Bonjour Ragus, bonjour le forum,
1- Pour éviter le message d'erreur car la conversion a déjà été effectuée tu peux utiliser :
On Error Resume NextAinsi en cas de plantage Excel passera à la ligne suivante de la macro.
2- Pour éviter le message de remplacement, mettre au début de ta macro (après Sub) :
Application.DisplayAlerts = FalseExcel n'affichera plus aucune boîte de dialogue.
A+