je dois chercher un code (le contenu de la cellule active) grâce à un double
clic et ramener pour ce code le contenu de toutes les cellules de la colonne
B qui ont été trouvées dans une table; avec la méthode find ,un while et un
loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le
tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection:
ActiveSheet.Shapes("Text Box 23").Select
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
michdenis
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1")
.Shapes("Rectangle 1").OLEFormat.Object.Text = Message
End With
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de news: e3sqfMuuFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double
clic et ramener pour ce code le contenu de toutes les cellules de la colonne
B qui ont été trouvées dans une table; avec la méthode find ,un while et un
loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le
tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection:
ActiveSheet.Shapes("Text Box 23").Select
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
...Patrick
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" a écrit dans le message de news:
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eKTpucuuFHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans
ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1")
.Shapes("Rectangle 1").OLEFormat.Object.Text = Message
End With
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: e3sqfMuuFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un
double
clic et ramener pour ce code le contenu de toutes les cellules de la
colonne
B qui ont été trouvées dans une table; avec la méthode find ,un while et
un
loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener
le
tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection:
ActiveSheet.Shapes("Text Box 23").Select
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" a écrit dans le message de news:
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
...Patrick
petite suite , Denis: si je veux mettre un texte à la suite d'un existant , est ce possible ?
je m'explique : je double-clique et le libéllé d'un article vient se placer sur 4 ou 5 lignes dans mon rectangle, mais si j'ai un autre article, je double clique aussi sur son N° et je voudrais alors que le texte vienne s'ajouter sous le premier dans ce meme rectangle
...Patrick (pas doué par moment après qq essais )
Merci
"...Patrick" a écrit dans le message de news:
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" a écrit dans le message de news:
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
petite suite , Denis: si je veux mettre un texte à la suite d'un existant ,
est ce possible ?
je m'explique : je double-clique et le libéllé d'un article vient se placer
sur 4 ou 5 lignes dans mon rectangle, mais si j'ai un autre article, je
double clique aussi sur son N° et je voudrais alors que le texte vienne
s'ajouter sous le premier dans ce meme rectangle
...Patrick (pas doué par moment après qq essais )
Merci
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: ethaypuuFHA.2396@TK2MSFTNGP14.phx.gbl...
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eKTpucuuFHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher
dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1")
.Shapes("Rectangle 1").OLEFormat.Object.Text = Message
End With
Salutations!
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: e3sqfMuuFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un
double
clic et ramener pour ce code le contenu de toutes les cellules de la
colonne
B qui ont été trouvées dans une table; avec la méthode find ,un while et
un
loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener
le
tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection:
ActiveSheet.Shapes("Text Box 23").Select
petite suite , Denis: si je veux mettre un texte à la suite d'un existant , est ce possible ?
je m'explique : je double-clique et le libéllé d'un article vient se placer sur 4 ou 5 lignes dans mon rectangle, mais si j'ai un autre article, je double clique aussi sur son N° et je voudrais alors que le texte vienne s'ajouter sous le premier dans ce meme rectangle
...Patrick (pas doué par moment après qq essais )
Merci
"...Patrick" a écrit dans le message de news:
Merci Denis, je n'avais pas encore cherché assez :-(
Bonne fin de journée
Patrick
"michdenis" a écrit dans le message de news:
Bonjour Patrick,
Dans ta boucle, tu ressembles dans une variable le contenu à afficher dans ton rectangle.
Message = Message & La valeur trouvé & vbcrlf
Et pour mettre le tout dans ton rectangle, en adaptant le nom des objets.
With Worksheets("Feuil1") .Shapes("Rectangle 1").OLEFormat.Object.Text = Message End With
Salutations!
"...Patrick" a écrit dans le message de news: Bonsoir,
je dois chercher un code (le contenu de la cellule active) grâce à un double clic et ramener pour ce code le contenu de toutes les cellules de la colonne B qui ont été trouvées dans une table; avec la méthode find ,un while et un loop ça fonctionne tres bien jusqu'au moment où on me demande de ramener le tout dans un objet (rectangle) et là je bloque.
Comment mettre le tout dans un rectangle à partir de ma sélection: ActiveSheet.Shapes("Text Box 23").Select
Merci de l'aide précieuse
Patrick
Alain CROS
Bonjour.
En reprenant l'exemple de Denis.
With Worksheets("Feuil1").Shapes("Rectangle 1").OLEFormat.Object .Text = .Text & vbLf & Message End With
Alain CROS
"...Patrick" a écrit dans le message de news: | petite suite , Denis: si je veux mettre un texte à la suite d'un existant , | est ce possible ?
Bonjour.
En reprenant l'exemple de Denis.
With Worksheets("Feuil1").Shapes("Rectangle 1").OLEFormat.Object
.Text = .Text & vbLf & Message
End With
Alain CROS
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de news: Oc5d5nHwFHA.2540@TK2MSFTNGP09.phx.gbl...
| petite suite , Denis: si je veux mettre un texte à la suite d'un existant ,
| est ce possible ?
With Worksheets("Feuil1").DrawingObjects("Rectangle 1") .Text = .Text & vbLf & Message End With
AV
...Patrick
Merci !!! Bon week end à tous ...Patrick
"Alain CROS" a écrit dans le message de news:
Bonjour.
En reprenant l'exemple de Denis.
With Worksheets("Feuil1").Shapes("Rectangle 1").OLEFormat.Object .Text = .Text & vbLf & Message End With
Alain CROS
"...Patrick" a écrit dans le message de news: | petite suite , Denis: si je veux mettre un texte à la suite d'un existant , | est ce possible ?
Merci !!!
Bon week end à tous
...Patrick
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
uE62vUQwFHA.3864@TK2MSFTNGP12.phx.gbl...
Bonjour.
En reprenant l'exemple de Denis.
With Worksheets("Feuil1").Shapes("Rectangle 1").OLEFormat.Object
.Text = .Text & vbLf & Message
End With
Alain CROS
"...Patrick" <NOSPAMMMMM.pmac_kay@hotmail.com> a écrit dans le message de
news: Oc5d5nHwFHA.2540@TK2MSFTNGP09.phx.gbl...
| petite suite , Denis: si je veux mettre un texte à la suite d'un
existant ,
| est ce possible ?
