Discussion :

[volubiliss]

j 'ai crée un bouton de commande dans lequel j'ai intégré une séparation de données sur la 1ere colonne, (scission entre 2 types de données). J'ai procédé par l'enregitreur de macro en utilisant la fonction "convertir"
du menu "données".Tout ce profile bien mais j'ai quand même l'apparition de la msgbox de confirmation "Voulez vous remplacer le contenu
des cellule de destination"
Comment puis je faire pour intégrer dans ma macro commande un ligne de code qui permette de valider la demande de la msgbox de confirmation directement à la suite de ma macro de séparation sans avoir a cliquer ?
Afin que cela soit relativement propre ( 1 seul click sur le bouton de commande et non 2 (bouton de commande + msgbox)?

voici le code la macro commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Worksheets("Feuil1").Activate
 
 
    Columns("A:A").Select 'la décomposition s'opère sur les données de la colonne A    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True 'l'élément de
        'distinction de données est le "-"

Merci d'avance !!

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Application.DisplayAlerts = False
With Sheets("Feuil1")
    .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
                                  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                                  Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
                                                                                             :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True    'l'élément de
End With
Application.DisplayAlerts = True

[volubiliss]

Merci beaucoup pour cette solution Mercatog