Bonjour,
Mon probl=E8me est le suivant : dans un mod=E8le, gr=E2ce =E0 6=20
CheckBoxs, je cr=E9e des lignes suppl=E9mentaires dans un=20
tableau. Chaque ligne doit poss=E9der son propre texte et=20
c'est l=E0 que le b=E2t blesse. En effet, avec le code qui=20
est attach=E9 =E0 chaque CheckBox, les nouvelles lignes sont=20
bien cr=E9es, mais le texte ne s'inscrit que dans la=20
premi=E8re. Le code de chaque CheckBox est le suivant :
ActiveDocument.Tables(1).Rows.Add
Selection.TypeText Text:=3D"Avis du ..."
Est-il possible de forcer VBA =E0 =E9crire le bon texte dans=20
la ligne ad=E9quate, sachant que je ne peux pas r=E9f=E9rencer=20
les lignes cr=E9es puisque leur nombre d=E9pend de=20
l'utilisateur.
Par avance, merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour François Et pourquoi ne pas créer un signet numéroté (par exemple) à chaque création de ligne et utiliser ce signet pour y inclure ton texte ? Cordialement Pascal
"François" a écrit dans le message de news:1a46401c44e0a$7779ffa0$ Bonjour, Mon problème est le suivant : dans un modèle, grâce à 6 CheckBoxs, je crée des lignes supplémentaires dans un tableau. Chaque ligne doit posséder son propre texte et c'est là que le bât blesse. En effet, avec le code qui est attaché à chaque CheckBox, les nouvelles lignes sont bien crées, mais le texte ne s'inscrit que dans la première. Le code de chaque CheckBox est le suivant : ActiveDocument.Tables(1).Rows.Add Selection.TypeText Text:="Avis du ..." Est-il possible de forcer VBA à écrire le bon texte dans la ligne adéquate, sachant que je ne peux pas référencer les lignes crées puisque leur nombre dépend de l'utilisateur. Par avance, merci
Bonjour François
Et pourquoi ne pas créer un signet numéroté (par exemple) à chaque création
de ligne et utiliser ce signet pour y inclure ton texte ?
Cordialement
Pascal
"François" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1a46401c44e0a$7779ffa0$a001280a@phx.gbl...
Bonjour,
Mon problème est le suivant : dans un modèle, grâce à 6
CheckBoxs, je crée des lignes supplémentaires dans un
tableau. Chaque ligne doit posséder son propre texte et
c'est là que le bât blesse. En effet, avec le code qui
est attaché à chaque CheckBox, les nouvelles lignes sont
bien crées, mais le texte ne s'inscrit que dans la
première. Le code de chaque CheckBox est le suivant :
ActiveDocument.Tables(1).Rows.Add
Selection.TypeText Text:="Avis du ..."
Est-il possible de forcer VBA à écrire le bon texte dans
la ligne adéquate, sachant que je ne peux pas référencer
les lignes crées puisque leur nombre dépend de
l'utilisateur.
Par avance, merci
Bonjour François Et pourquoi ne pas créer un signet numéroté (par exemple) à chaque création de ligne et utiliser ce signet pour y inclure ton texte ? Cordialement Pascal
"François" a écrit dans le message de news:1a46401c44e0a$7779ffa0$ Bonjour, Mon problème est le suivant : dans un modèle, grâce à 6 CheckBoxs, je crée des lignes supplémentaires dans un tableau. Chaque ligne doit posséder son propre texte et c'est là que le bât blesse. En effet, avec le code qui est attaché à chaque CheckBox, les nouvelles lignes sont bien crées, mais le texte ne s'inscrit que dans la première. Le code de chaque CheckBox est le suivant : ActiveDocument.Tables(1).Rows.Add Selection.TypeText Text:="Avis du ..." Est-il possible de forcer VBA à écrire le bon texte dans la ligne adéquate, sachant que je ne peux pas référencer les lignes crées puisque leur nombre dépend de l'utilisateur. Par avance, merci
geo
Bonjour
-----Message d'origine----- Bonjour, Mon problème est le suivant : dans un modèle, grâce à 6 CheckBoxs, je crée des lignes supplémentaires dans un tableau. Chaque ligne doit posséder son propre texte et c'est là que le bât blesse. En effet, avec le code qui est attaché à chaque CheckBox, les nouvelles lignes sont bien crées, mais le texte ne s'inscrit que dans la première. Le code de chaque CheckBox est le suivant : ActiveDocument.Tables(1).Rows.Add Selection.TypeText Text:="Avis du ..." Le plus simple est de simuler ce qu'on fait à la main :
ajouter à partir de la deuxième une tabulation qui fait passer de cellule en cellule : Selection.TypeText Text:=chr(9) & " Avis...
Bonjour
-----Message d'origine-----
Bonjour,
Mon problème est le suivant : dans un modèle, grâce à 6
CheckBoxs, je crée des lignes supplémentaires dans un
tableau. Chaque ligne doit posséder son propre texte et
c'est là que le bât blesse. En effet, avec le code qui
est attaché à chaque CheckBox, les nouvelles lignes sont
bien crées, mais le texte ne s'inscrit que dans la
première. Le code de chaque CheckBox est le suivant :
ActiveDocument.Tables(1).Rows.Add
Selection.TypeText Text:="Avis du ..."
Le plus simple est de simuler ce qu'on fait à la main :
ajouter à partir de la deuxième une tabulation qui fait
passer de cellule en cellule :
Selection.TypeText Text:=chr(9) & " Avis...
-----Message d'origine----- Bonjour, Mon problème est le suivant : dans un modèle, grâce à 6 CheckBoxs, je crée des lignes supplémentaires dans un tableau. Chaque ligne doit posséder son propre texte et c'est là que le bât blesse. En effet, avec le code qui est attaché à chaque CheckBox, les nouvelles lignes sont bien crées, mais le texte ne s'inscrit que dans la première. Le code de chaque CheckBox est le suivant : ActiveDocument.Tables(1).Rows.Add Selection.TypeText Text:="Avis du ..." Le plus simple est de simuler ce qu'on fait à la main :
ajouter à partir de la deuxième une tabulation qui fait passer de cellule en cellule : Selection.TypeText Text:=chr(9) & " Avis...
AB
Bonjour, Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit le texte voulu. J'espère que ça pourra t'aider. AB
Sub Macro2() ActiveDocument.Tables(1).Rows.Add ActiveDocument.Tables(1).Select ligne = Selection.Information(wdEndOfRangeRowNumber) ActiveDocument.Tables(1).Rows(ligne).Select Selection.TypeText Text:="Avis du ..." End Sub
geo wrote: | Bonjour || -----Message d'origine----- || Bonjour, || Mon problème est le suivant : dans un modèle, grâce à 6 || CheckBoxs, je crée des lignes supplémentaires dans un || tableau. Chaque ligne doit posséder son propre texte et || c'est là que le bât blesse. En effet, avec le code qui || est attaché à chaque CheckBox, les nouvelles lignes sont || bien crées, mais le texte ne s'inscrit que dans la || première. Le code de chaque CheckBox est le suivant : || ActiveDocument.Tables(1).Rows.Add || Selection.TypeText Text:="Avis du ..." | Le plus simple est de simuler ce qu'on fait à la main : | ajouter à partir de la deuxième une tabulation qui fait | passer de cellule en cellule : | Selection.TypeText Text:=chr(9) & " Avis...
Bonjour,
Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit le texte
voulu.
J'espère que ça pourra t'aider.
AB
Sub Macro2()
ActiveDocument.Tables(1).Rows.Add
ActiveDocument.Tables(1).Select
ligne = Selection.Information(wdEndOfRangeRowNumber)
ActiveDocument.Tables(1).Rows(ligne).Select
Selection.TypeText Text:="Avis du ..."
End Sub
geo wrote:
| Bonjour
|| -----Message d'origine-----
|| Bonjour,
|| Mon problème est le suivant : dans un modèle, grâce à 6
|| CheckBoxs, je crée des lignes supplémentaires dans un
|| tableau. Chaque ligne doit posséder son propre texte et
|| c'est là que le bât blesse. En effet, avec le code qui
|| est attaché à chaque CheckBox, les nouvelles lignes sont
|| bien crées, mais le texte ne s'inscrit que dans la
|| première. Le code de chaque CheckBox est le suivant :
|| ActiveDocument.Tables(1).Rows.Add
|| Selection.TypeText Text:="Avis du ..."
| Le plus simple est de simuler ce qu'on fait à la main :
| ajouter à partir de la deuxième une tabulation qui fait
| passer de cellule en cellule :
| Selection.TypeText Text:=chr(9) & " Avis...
Bonjour, Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit le texte voulu. J'espère que ça pourra t'aider. AB
Sub Macro2() ActiveDocument.Tables(1).Rows.Add ActiveDocument.Tables(1).Select ligne = Selection.Information(wdEndOfRangeRowNumber) ActiveDocument.Tables(1).Rows(ligne).Select Selection.TypeText Text:="Avis du ..." End Sub
geo wrote: | Bonjour || -----Message d'origine----- || Bonjour, || Mon problème est le suivant : dans un modèle, grâce à 6 || CheckBoxs, je crée des lignes supplémentaires dans un || tableau. Chaque ligne doit posséder son propre texte et || c'est là que le bât blesse. En effet, avec le code qui || est attaché à chaque CheckBox, les nouvelles lignes sont || bien crées, mais le texte ne s'inscrit que dans la || première. Le code de chaque CheckBox est le suivant : || ActiveDocument.Tables(1).Rows.Add || Selection.TypeText Text:="Avis du ..." | Le plus simple est de simuler ce qu'on fait à la main : | ajouter à partir de la deuxième une tabulation qui fait | passer de cellule en cellule : | Selection.TypeText Text:=chr(9) & " Avis...
AB
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ? Geo, la tab fait passer à la cellule suivante, non ? J'avais compris que François voulait écrire dans la ligne suivante... A+ André
AB wrote: || Bonjour, || Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit || le texte voulu. || J'espère que ça pourra t'aider. || AB || || Sub Macro2() || ActiveDocument.Tables(1).Rows.Add || ActiveDocument.Tables(1).Select || ligne = Selection.Information(wdEndOfRangeRowNumber) || ActiveDocument.Tables(1).Rows(ligne).Select || Selection.TypeText Text:="Avis du ..." || End Sub || || geo wrote: ||| Bonjour |||| -----Message d'origine----- |||| Bonjour, |||| Mon problème est le suivant : dans un modèle, grâce à 6 |||| CheckBoxs, je crée des lignes supplémentaires dans un |||| tableau. Chaque ligne doit posséder son propre texte et |||| c'est là que le bât blesse. En effet, avec le code qui |||| est attaché à chaque CheckBox, les nouvelles lignes sont |||| bien crées, mais le texte ne s'inscrit que dans la |||| première. Le code de chaque CheckBox est le suivant : |||| ActiveDocument.Tables(1).Rows.Add |||| Selection.TypeText Text:="Avis du ..." ||| Le plus simple est de simuler ce qu'on fait à la main : ||| ajouter à partir de la deuxième une tabulation qui fait ||| passer de cellule en cellule : ||| Selection.TypeText Text:=chr(9) & " Avis...
Désolé les gars (et Geo en particulier), impossible de répondre directement
au message d'origine.
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre
à certains messages. Il semble qu'il s'agisse des messages postés via CDO,
ce qui est le cas du message de François.
Avez-vous les mêmes problèmes ?
Geo, la tab fait passer à la cellule suivante, non ? J'avais compris que
François voulait écrire dans la ligne suivante...
A+
André
AB wrote:
|| Bonjour,
|| Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit
|| le texte voulu.
|| J'espère que ça pourra t'aider.
|| AB
||
|| Sub Macro2()
|| ActiveDocument.Tables(1).Rows.Add
|| ActiveDocument.Tables(1).Select
|| ligne = Selection.Information(wdEndOfRangeRowNumber)
|| ActiveDocument.Tables(1).Rows(ligne).Select
|| Selection.TypeText Text:="Avis du ..."
|| End Sub
||
|| geo wrote:
||| Bonjour
|||| -----Message d'origine-----
|||| Bonjour,
|||| Mon problème est le suivant : dans un modèle, grâce à 6
|||| CheckBoxs, je crée des lignes supplémentaires dans un
|||| tableau. Chaque ligne doit posséder son propre texte et
|||| c'est là que le bât blesse. En effet, avec le code qui
|||| est attaché à chaque CheckBox, les nouvelles lignes sont
|||| bien crées, mais le texte ne s'inscrit que dans la
|||| première. Le code de chaque CheckBox est le suivant :
|||| ActiveDocument.Tables(1).Rows.Add
|||| Selection.TypeText Text:="Avis du ..."
||| Le plus simple est de simuler ce qu'on fait à la main :
||| ajouter à partir de la deuxième une tabulation qui fait
||| passer de cellule en cellule :
||| Selection.TypeText Text:=chr(9) & " Avis...
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ? Geo, la tab fait passer à la cellule suivante, non ? J'avais compris que François voulait écrire dans la ligne suivante... A+ André
AB wrote: || Bonjour, || Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit || le texte voulu. || J'espère que ça pourra t'aider. || AB || || Sub Macro2() || ActiveDocument.Tables(1).Rows.Add || ActiveDocument.Tables(1).Select || ligne = Selection.Information(wdEndOfRangeRowNumber) || ActiveDocument.Tables(1).Rows(ligne).Select || Selection.TypeText Text:="Avis du ..." || End Sub || || geo wrote: ||| Bonjour |||| -----Message d'origine----- |||| Bonjour, |||| Mon problème est le suivant : dans un modèle, grâce à 6 |||| CheckBoxs, je crée des lignes supplémentaires dans un |||| tableau. Chaque ligne doit posséder son propre texte et |||| c'est là que le bât blesse. En effet, avec le code qui |||| est attaché à chaque CheckBox, les nouvelles lignes sont |||| bien crées, mais le texte ne s'inscrit que dans la |||| première. Le code de chaque CheckBox est le suivant : |||| ActiveDocument.Tables(1).Rows.Add |||| Selection.TypeText Text:="Avis du ..." ||| Le plus simple est de simuler ce qu'on fait à la main : ||| ajouter à partir de la deuxième une tabulation qui fait ||| passer de cellule en cellule : ||| Selection.TypeText Text:=chr(9) & " Avis...
Clément Marcotte
Salut André,
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre
à certains messages. Il semble qu'il s'agisse des messages postés via CDO,
ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
Pas essayé, mais ce n'est pas impossible, puisque MS a modifié l'interface Web des forums. (Annoncé sur un lieu privé)
Salut André,
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour
répondre
à certains messages. Il semble qu'il s'agisse des messages postés
via CDO,
ce qui est le cas du message de François.
Avez-vous les mêmes problèmes ?
Pas essayé, mais ce n'est pas impossible, puisque MS a modifié
l'interface Web des forums. (Annoncé sur un lieu privé)
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre
à certains messages. Il semble qu'il s'agisse des messages postés via CDO,
ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
Pas essayé, mais ce n'est pas impossible, puisque MS a modifié l'interface Web des forums. (Annoncé sur un lieu privé)
Geo
Bonjour AB
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
J'ai répondu avec CDO du burO :-) Je vais faire un test complémentaire, si tu ne vois rien c'est que ça marche pas pour moi non plus (avec OE :-) )
Geo, la tab fait passer à la cellule suivante, non ? J'avais compris que François voulait écrire dans la ligne suivante...
Voui, mais si le tableau n'a qu'une cellule c'est bon, s'il en a plus il suffit de compter les TAB. Avantage du Tab c'est que si tu es à la dernière cellule il ajoute une ligne. Comme ça, tu démarres avec une seule ligne et tu es certain d'avoir juste le nombre de lignes qu'il faut, ce qui me paraissait être le cas posé.
En pratique j'aime bien ce coup là.
--
A+
Bonjour AB
Désolé les gars (et Geo en particulier), impossible de répondre
directement au message d'origine.
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour
répondre à certains messages. Il semble qu'il s'agisse des messages
postés via CDO, ce qui est le cas du message de François.
Avez-vous les mêmes problèmes ?
J'ai répondu avec CDO du burO :-)
Je vais faire un test complémentaire, si tu ne vois rien c'est que ça
marche pas pour moi non plus (avec OE :-) )
Geo, la tab fait passer à la cellule suivante, non ? J'avais compris
que François voulait écrire dans la ligne suivante...
Voui, mais si le tableau n'a qu'une cellule c'est bon,
s'il en a plus il suffit de compter les TAB.
Avantage du Tab c'est que si tu es à la dernière cellule il ajoute une
ligne.
Comme ça, tu démarres avec une seule ligne et tu es certain d'avoir
juste le nombre de lignes qu'il faut, ce qui me paraissait être le cas
posé.
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
J'ai répondu avec CDO du burO :-) Je vais faire un test complémentaire, si tu ne vois rien c'est que ça marche pas pour moi non plus (avec OE :-) )
Geo, la tab fait passer à la cellule suivante, non ? J'avais compris que François voulait écrire dans la ligne suivante...
Voui, mais si le tableau n'a qu'une cellule c'est bon, s'il en a plus il suffit de compter les TAB. Avantage du Tab c'est que si tu es à la dernière cellule il ajoute une ligne. Comme ça, tu démarres avec une seule ligne et tu es certain d'avoir juste le nombre de lignes qu'il faut, ce qui me paraissait être le cas posé.
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
A priori oui, j'ai l'impression qu'aucun de mes posts n'est arrivé aujourd'hui...
Circé
Bonjour André,
Désolé les gars (et Geo en particulier), impossible de répondre directement
au message d'origine.
J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre
à certains messages. Il semble qu'il s'agisse des messages postés via CDO,
ce qui est le cas du message de François.
Avez-vous les mêmes problèmes ?
A priori oui, j'ai l'impression qu'aucun de mes posts n'est arrivé
aujourd'hui...
Désolé les gars (et Geo en particulier), impossible de répondre directement au message d'origine. J'ai des problèmes récurrents avec OE (idem avec Thunderbird) pour répondre à certains messages. Il semble qu'il s'agisse des messages postés via CDO, ce qui est le cas du message de François. Avez-vous les mêmes problèmes ?
A priori oui, j'ai l'impression qu'aucun de mes posts n'est arrivé aujourd'hui...
