(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
(RE) bonjour,
Je cherche la transition dans le code.
D'abord, je crée une zone de texte sur une selection de cellules:
Sub ZoneTexte()
y = Selection.Rows.Count
x = Selection.Columns.Count
leTexte = "FRANCAIS"
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set zText = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W * x, H * y)
zText.TextFrame.Characters.Text = leTexte
End Sub
Puis, avant de refermer le code, je voudrais centrer le tout:
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
End With
Le problème, c'est qu'il ne voit pas que je lui indique CETTE zone de texte.
Pourriez vous m'aider à lier ces 2 codes?
Merci
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie m e
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie m e
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie m e
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil
dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil
dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macros.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-poil
dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Merci beaucoup à Serge et à Stef pour leur investissement.
Je pense que je vais garder la proposition de Serge, car celle de Stef
dépasse mon niveau de compétence... désolée
Dernière petite question: Où puis-je placer des codes pour travailler la
mise en forme de ma zone de texte (grosseur des traits, couleur du fond... )?
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel. Si vous avez une piste à me donne r pour
me former (bouquins, CD... je suis preneuse!)
Merci encore à vous.
Emma
"lSteph" a écrit dans le message denews:bddf6b15-c5
Bonjour,
Si c'est pas dans la même macro déclarer Dim Ztext as Shape en haut du
module au dessus de la première sub et non dedans.
Sinon avec le code d'origine le cadre est décalé des cellules sitôt
qu'elles n'ont pas toutes la même taille.
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1
@+
--
lSteph
On 2 jan, 10:49, "Emma" wrote:Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macro s.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-po il
dansles cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Merci beaucoup à Serge et à Stef pour leur investissement.
Je pense que je vais garder la proposition de Serge, car celle de Stef
dépasse mon niveau de compétence... désolée
Dernière petite question: Où puis-je placer des codes pour travailler la
mise en forme de ma zone de texte (grosseur des traits, couleur du fond... )?
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel. Si vous avez une piste à me donne r pour
me former (bouquins, CD... je suis preneuse!)
Merci encore à vous.
Emma
"lSteph" <gmLSt...@gmail.com> a écrit dans le message denews:bddf6b15-c5 8a-4e2d-84ed-4e3cf902eff3@t1g2000pra.googlegroups.com...
Bonjour,
Si c'est pas dans la même macro déclarer Dim Ztext as Shape en haut du
module au dessus de la première sub et non dedans.
Sinon avec le code d'origine le cadre est décalé des cellules sitôt
qu'elles n'ont pas toutes la même taille.
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1
@+
--
lSteph
On 2 jan, 10:49, "Emma" <del...@free.fr> wrote:
Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macro s.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-po il
dans
les cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
Merci beaucoup à Serge et à Stef pour leur investissement.
Je pense que je vais garder la proposition de Serge, car celle de Stef
dépasse mon niveau de compétence... désolée
Dernière petite question: Où puis-je placer des codes pour travailler la
mise en forme de ma zone de texte (grosseur des traits, couleur du fond... )?
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel. Si vous avez une piste à me donne r pour
me former (bouquins, CD... je suis preneuse!)
Merci encore à vous.
Emma
"lSteph" a écrit dans le message denews:bddf6b15-c5
Bonjour,
Si c'est pas dans la même macro déclarer Dim Ztext as Shape en haut du
module au dessus de la première sub et non dedans.
Sinon avec le code d'origine le cadre est décalé des cellules sitôt
qu'elles n'ont pas toutes la même taille.
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1
@+
--
lSteph
On 2 jan, 10:49, "Emma" wrote:Bonjour et merci pour votre investissement.
Vos propositions fonctionnent bien, effectivement, pour lier les 2 macro s.
Le problème, c'est que la zone de texte, qui avant s'insérer pile-po il
dansles cellules concernées, dépassent un peu vers le bas.
ex: si je sélectionne B3:B13, je déborde un peu sur B14. Maniaquerie me
sirez-vous.... certes... mais le but est tellement proche...
Merci à vous de me dire ce que vous en pensez.
Emma
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel.
T'inquiète pas Emma, j'en suis encore là... ou au stade juste après.
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel.
T'inquiète pas Emma, j'en suis encore là... ou au stade juste après.
A vrai dire, j'en suis encore au stade de faire enregistrer mes macros et de
regarder le code proposée par excel.
T'inquiète pas Emma, j'en suis encore là... ou au stade juste après.
...
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1
...
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1
...
Le mien déborde en effet par ailleurs, je suppose à raison de
l'arrondi (1 de trop à chaque addition d'une cellule)+ bordure.
Il faudrait déclarer h et w as double au lieu de long
pour avoir un chiffre précis et réduire d'un dixième point pour la
bordure
msoTextOrientationHorizontal, L, T, W - 0.1, H - 0.1