Discussion :

[JLT007]

Bonjour
Je cherche (peut être mal) mais ne trouvant pas d’explication je fais appel à vos talents

La situation :
Je convertis le contenu d’une cellule (Contenant un lien vers une autre feuille) en texte

Code :

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

1
2
3
4
5
6
7
Range («b5»).select
Sendkeys «{F2}»
Sendkeys«{F9},~»
 
Range («c5»).select
Sendkeys «{F2}»
Sendkeys«{F9},~»

Seule la c5 est réalisée

Et si je supprime la c5, la b5 est réalisée

J’ai essayé avec call de 2 macro dans une troisième macro
Même chose, seule la deuxième est réalisée

Merci pour le petit coup de pouce

[Thautheme]

Bonjour JLT, bonjour le forum,

Peut être comme ça :

Code :

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

1
2
3
4
Sub Macro1()
Range("b5").Hyperlinks(1).Delete
Range("c5").Hyperlinks(1).Delete
End Sub

[Menhir]

Jusqu'à présent, je n'ai jamais rencontré de cas où il soit nécessaire d'utiliser Sendkey pour des actions internes à Excel.
Il faut le réserver pour la manipulation d'applications n'ayant pas de bibliothèque d'objets utilisable en VBA.

[JLT007]

Bonjour Thautheme et Menhir,

Merci pour vos réponses

Le code proposé donne une erreur (j'ai peut être oublié un détail ?).

En ce qui concerne le SendKey, c'est parce que je n'ai rien trouvé d'autre, simple et facile à mettre en œuvre, pour obtenir le résultat souhaité (conversion du résultat dans la cellule, lien vers une cellule d'une autre feuille, en texte afin de pouvoir ensuite faire un classement par ordre alphabétique dans le tableau qui importe ces données).

Précisions :
Un premier tableau (rentrée caisse) est créé avec une macro (à partir de données se trouvant dans un journalier)
Un deuxième (rentrée banque) est encodé manuellement
Un troisième tableau doit importer les données de 2 autres tableaux et les classer par ordre Alphabétique (pour avoir une vue global des membres et des payements).

Merci

PS : Voici ce qui fonctionne pour la conversion voulue (tant que je reste sur la même colonne)

Code :

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

1
2
3
4
5
6
7
8
  Range("B5").Select
        SendKeys "{F2}"
        SendKeys "{F9}~"
        SendKeys "{F2}"
        SendKeys "{F9}~"
        SendKeys "{F2}"
        SendKeys "{F9}~"
...

Et si j'ajoute ceci à la macro, la première partie n'est plus réalisée, seule la dernière (donc la colonne du C5 est réalisée)

Code :

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

1
2
3
4
5
6
7
8
    Range("C5").Select
    SendKeys "{F2}"
    SendKeys "{F9}~"
    SendKeys "{F2}"
    SendKeys "{F9}~"
    SendKeys "{F2}"
    SendKeys "{F9}~"
...

[JLT007]

Bonsoir,

J'ai trouvé une solution plus simple que ma première idée.

Pour ceux qui souhaiteraient la voir, la voici :

Une feuille avec la synthèse des cotisations caisses des membres (via des "=" vers une autre feuille) sert de base.
J'ai créé une nouvelle feuille pour obtenir des résultats uniquement au format texte, sur base de la feuille précédente, avec la macro suivante :
(il y a surement mieux, mais le simple utilisateur lambda que je suis n'a pas trouvé mieux )

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
Sub Converttexte02()
'
' Converttexte02 Macro
'
 
'
    Sheets("2020 TEST (2)").Select
    Rows("5:28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("2020 TEST (3)").Select
    Rows("5:5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
End Sub

PS : ma première idée induisait une désactivation de la touche "Verr Num" étrange...

[Menhir]

Pour info, ta macro peut se résumer à :

Code :

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

1
2
3
4
Sub Converttexte02()
    Sheets("2020 TEST (2)").Rows("5:28").Copy 
    Sheets("2020 TEST (3)").Range("A5").PasteSpecial Paste:=xlPasteValues
End Sub

[78chris]

Bonjour à tous

...
PS : ma première idée induisait une désactivation de la touche "Verr Num" étrange...

C'est un problème connu d'où le conseil de n'utiliser cette pratique que pour des cas où on n'a pas d'autre solution

[JLT007]

Merci Menhir, je vais tester cette solution plus simple tantôt.

Merci 78chris pour cette info que je ne connaissais pas, je tiendrai compte du conseil dorénavant.

[Menhir]

Merci Menhir, je vais tester cette solution plus simple tantôt.

Ce n'est pas une autre solution mais simplement ton code un peu nettoyé de ses Select/Selection inutiles.

[JLT007]

oui Menhir, mais merci quand même

J'ai amendé ce code "nettoyé" avec
repositionnement de cellule sélectionnée sur "A6",
et dé sélection de la zone à copier avec Application.CutCopyMode = False

Ca fonctionne parfaitement comme ça

Code :

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

1
2
3
4
5
6
Sub Converttexte02()
    Sheets("2020 TEST").Rows("6:100").Copy
    Sheets("2 - 2020 TEST (3)").Range("A6").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A6").Select
End Sub

Merci