Discussion :

[d.tellier]

Bonjour,
j'aimerais pourvoir enregistrer les paramètres par défaut de ma fonction Selection.TextToColumns,
lancer ma fonction en changeant des paramètres :

- DataType:=xlDelimited, _
- TextQualifier:=xlDoubleQuote,
- ConsecutiveDelimiter:=False,
- Tab:=False, _
- Semicolon:=True,
- Comma:=False,
- Space:=False,
- Other:=False

et après remettre les paramètres d'avant l’exécution de ma fonction.
Comment faire ?
Après des heures de recherches je n'ai pas trouvé. Je débute en prog vba Excel.


Cordialement.

[Marc-L]

Bonjour,

les paramètres par défaut sont consultables dans l'aide de la méthode TextToColumns …
Il y a juste besoin dans le code d'indiquer les paramètres sortant de l'ordinaire …

Sinon cette méthode correspond à la fonctionnalité de feuille de calculs de conversion de données,
en activant le Générateur de macros le code est livré sur un plateau !

[d.tellier]

Merci pour ta réponse. Mais ça je le savait.
Je me suis peut-être mal exprimé.
ce que je demandais.
les options sont :

- DataType:=xlDelimited, _
- TextQualifier:=xlDoubleQuote,
- ConsecutiveDelimiter:=False,
- Tab:=False, _
- Semicolon:=False,
- Comma:=False,
- Space:=True,
- Other:=False

Ce que je peux aussi visualiser par le menu Excel Données / Convertir

Je veux lancer une macro pour faire une conversion.
Je veux juste vérifier que Tab:=True, et les autres paramètres sont faux (ConsecutiveDelimite, Semicolon, Comma, Space) Sinon je les met à faux dans ma macro.
J’exécute le découpage avec la fonction TextToColumns

Et avant de resortir de ma macro je veux remettre les paramètres tel qu'ils était avant le lancement de la macro donc Tab:=False, Space:= True etc...

merci.

[Marc-L]

Lire enfin l'aide de la méthode TextToColumns puis indiques-nous s'il y est fait part
d'une quelconque mention de conservation de paramètres entre chaque appel ‼





_________________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

[Docmarti]

Bonjour Marc-L, d.tellier.

Apparemment Excel se rappelle des derniers paramètres utilisés.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const strValue = "1,,2;3 4;5"
 
Sub Parame()
ThisWorkbook.Worksheets(1).Rows(1).Cells.Clear
With ThisWorkbook.Worksheets(1).Range("a1")
.Value = strValue
.TextToColumns Destination:=.Columns(2), _
 DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=True, _
Other:=False
End With
End Sub
 
Sub TestParame()
ThisWorkbook.Worksheets(1).Rows(1).Cells.Clear
With ThisWorkbook.Worksheets(1).Range("a1")
.Value = strValue
.TextToColumns Destination:=.Columns(2)
 
End With
End Sub

[Marc-L]

Salut l'ami de la Belle Province !

Si la documentation ne le précise pas … Je n'ai jamais eu de souci après tant d'années (à deux chiffres !) …

En fait, il suffit juste de passer les bons paramètres lors de l'appel, exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test1()
    With ThisWorkbook.Worksheets(1).Rows(1)
        .Resize(2).Clear
 
        With .Cells(1)
             .Value = "1,2,3,4,5"
             .TextToColumns .Cells(2), Comma:=True
        End With
    End With
End Sub
 
Sub Test2()
    With ThisWorkbook.Worksheets(1).Rows(1)
        .Resize(2).Clear
 
        With .Cells(1)
             .Value = "A;B;C;D;E"
             .TextToColumns .Cells(2), Semicolon:=True
        End With
    End With
End Sub

[d.tellier]

merci.
C'est bien ce que je pensais. Excel conserve les paramètres entre chaque appel.
Il y a ma macro et je ne voulais pas que ça modifie l’environnement Excel.
Je n'ai pas de deuxième appel à lancer avec un autre paramètre. Je voulais juste conserver un contexte

merci.

[Marc-L]

Je pense plutôt, comme les autres méthodes signalées elles dans l'aide
avec certains paramètres conservés entre chaque appel (par exemple la méthode Sort),
cela se passe au niveau de la feuille. Fais un test au cas où me tromperais-je …

Et si tu tiens à remettre des paramètres par défaut, après la consultation de l'aide et des posts #5 & #6,
tu en as donc déduit ce que tu dois coder !

[Docmarti]

Bonjour Marc-L, d.tellier.

Vérification faite, Excel se rappelle des derniers paramètres utilisés et cela affecte les paramètres par défaut de tous les classeurs de la présente Application seulement. Dès que la session se termine, les changements de paramètres sont oubliés.

Pour cette raison, il me semble obligatoire de déclarer la valeur de tous les paramètres à chaque appel.

[Marc-L]

C'est bien la déduction attendue …

[d.tellier]

rebonjour,
Alors Question: Comment faire pour modifié ces paramètres de la feuille.

Ça je ne sais pas faire en Vba.

merci.

[Marc-L]

Comme déjà expliqué, ce n'est pas au niveau de la feuille … Seul l'appel de la méthode modifie les paramètres !