[WD-2010] Création d'une macro avec une condition

[jijidu67]

Bonjour à tous

Je ne suis pas très douée pour les macros et celle que j'aimerai faire me paraît compliquer.
Il y a deux points qui me bloquent:
-comment sélectionner une partie de texte qui en plus est insérer dans un tableau
-comment lui dire de rajouter quelques choses selon ce qui est écrit.

Voilà mon exemple:
- Contenance : n g ( mm minimum)

Si n <50 mettre 2 mm minimum
Si 50< ou = n <200 mettre 3 mm minimum
etc...

Voilà, j'espère avoir exposé clairement mon problème...

Merci d'avance pour vos réponses

[Heureux-oli]

Salut,

Clairement, on peut pas dire ça comme ça.

Tout dépend de l'endroit où se trouve le texte et comment il écrit.

[jijidu67]

Bonjour

Eh bien comme je le disais, le texte est dans un tableau et mon example est:
- Contenance : n g ( mm minimum)
avec n comme nombre qui varie. Et je voulais faire une macro car aujourd'hui on rempli manuellement le ( mm minimum), en mettant 2, 3, 4 ou 6 selon la valeur du nombre n. Du coup, je me posais la question de pouvoir faire une macro qui le ferai en auto...
Je ne sais pas si s'est faisable car qu'en je réfléchi à la fonction "if" sur excel, même là ça m'a l'air difficile de mettre en oeuvre...

[carden752]

Bonjour,

Il y a plusieurs possibilités tout dépend le contexte global.
Premièrement qu'est-ce que le n : Un champs de fusion? Si tel est le cas, c'est mleiux de le définir dans la lettre de base.
Deuxièmement : On peut effectivement par macro sélectionner le mot après "contenance :" et puis tester sa valeur et y insérer un texte après. (Fonction find pour la recherche).

[jijidu67]

non le nombre n est du texte simple, pas de champ de fusion

[Heureux-oli]

Salut,

Crois tu qu'avec si peu on puisse y parvenir ?


Voilà ce que ça peut donner comme code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oTbl As Table
Dim oRw As Row
 
Set oTbl = ActiveDocument.Tables(1)
   For Each oRw In oTbl.Rows
    Debug.Print Mid(oRw.Cells(1).Range.Text, 16, 2)
      Select Case CInt(Mid(oRw.Cells(1).Range.Text, 16, 2))
      Case Is < 50
         oRw.Range.Text = Left(oRw.Cells(1).Range.Text, 20) & "( 2 mm minimum)"
      Case Is > 50
         oRw.Range.Text = Left(oRw.Cells(1).Range.Text, 20) & "( 3 mm minimum)"
      End Select
   Next oRw
Set oTbl = Nothing

[jijidu67]

oui c'est bien ça, si je fais un tableau avec une entrée ça marche. Mais à l'application de mon tableau ça ne fonctionne pas. Mon tableau ressemble à ça:

[IMG][/IMG]

[Heureux-oli]

Salut,

On en revient donc à ce que j'avais demandé.

Envoyé par jijidu67

Bonjour

Eh bien comme je le disais, le texte est dans un tableau et mon example est:
- Contenance : n g ( mm minimum)
avec n comme nombre qui varie. Et je voulais faire une macro car aujourd'hui on rempli manuellement le ( mm minimum), en mettant 2, 3, 4 ou 6 selon la valeur du nombre n. Du coup, je me posais la question de pouvoir faire une macro qui le ferai en auto...
Je ne sais pas si s'est faisable car qu'en je réfléchi à la fonction "if" sur excel, même là ça m'a l'air difficile de mettre en oeuvre...

Et ton info était vraiement incomplète.

[jijidu67]

Désolé, je ne savais pas qu'il falait une grande précision...