Discussion :

[dellisnicolas]

Bonjour,
Je cherche une macro pour inverser deux phrases dans un texte.
Les phrases sont espacées l'une de l'autre.
J'avais pensé à une sélection multiple, mais je ne sais pas comment travailler avec ça.

Merci.

[Heureux-oli]

Salut,

Une sélection multiple ne fera pas l'affaire.

Pourquoi ne pas sélectionner une de deux phrases et la déplacer à la souris ?
Et ensuite l'autre ?

Même si on peut sélectionner plusieurs partie de texte à la souris, VBA ne reconnait qu'un seul objet sélection, il devient donc difficile d'utiliser du code pour échanger des portions de texte.

Ctrl + X pour couper et coller.

[dellisnicolas]

Merci pour votre réponse,
Mais j'ai besoin de faire cela sous forme de macro car il s'agit de réponses à un QCM où le numéro de la bonne réponse est en "mémoire".
Lorsque l'on inverse deux réponses, je souhaite que la macro modifie cette mémoire.

J'ai pensé au copier-coller, je vais faire des recherches pour mémoriser la position du curseur...

Merci encore et bonne soirée.

[Heureux-oli]

Salut,

On pourrait envisager de le faire avec des signets.
Avec un exemple plus concret, on devrait pouvoir dégager une piste.

[dellisnicolas]

Merci encore, c'est justement ce que je viens de découvrir en cherchant un peu dans les forums, je vais essayer avec ça.

Voici un exemple:
J'ai dans une cellule d'un tableau une question avec quatre propositions:

"a. proposition n°1 b. proposition n°2
c. proposition n°3 d. proposition n°4"

et dans une cellule à coté la bonne réponse. exemple: "c"

Je souhaite que ma macro inverse deux propositions et change la bonne réponse dans la cellule.
Si j'inverse les propositions 2 et 3, la bonne réponse devient "b".

Bonne journée.

[Sepia]

Salut dellisnicolas,

Comme te l'as dit Heureux-Oli, tu peux utiliser un signet pour chercher la bonne réponse dans ton tableau de tes réponses puis directement utiliser les propriétés des tableaux (avec la fonction Cell(Ligne, Colonne) par exemple) pour inverser le contenu de tes cellules. Après si tu as correctement échanger le contenu et PAS les cellules elles-mêmes, le renvoi du ta bonne réponse sera mis à jour par un simple "Mise à jour" des champs (<Ctrl>+<A> puis <F9>). L'un des tutoriels de Heureux-Oli explique comment utiliser les renvois, clique ici.

@+

[dellisnicolas]

Je reviens vers vous pour vous remercier (avec un peu de retard, les vacances...), j'ai réussi avec des signets, recherches et quelques astuces.

Encore merci de votre aide précieuse

Nicolas