Comment aligner du texte dans une cellule avec horizontalAlignment =
VbCenter (le texte n'est pas centré)
et
horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
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
Jacques93
Bonsoir Alain DONVEN, Alain DONVEN a écrit :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
D'où vient VbJustify ? Quell est sa valeur? Et même si VerticalAligmnent fonctionne avec vbCenter, je crois qu'il serait plus prudent d'utiliser les constantes Excel, en l'occurence :
xlCenter
si tu as ajouté un référence à Microsoft Excel xx Library, sinon à sa valeur :
xlCenter = -4108
-- Cordialement,
Jacques.
Bonsoir Alain DONVEN,
Alain DONVEN a écrit :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré)
et
horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
D'où vient VbJustify ? Quell est sa valeur? Et même si VerticalAligmnent
fonctionne avec vbCenter, je crois qu'il serait plus prudent d'utiliser
les constantes Excel, en l'occurence :
xlCenter
si tu as ajouté un référence à Microsoft Excel xx Library, sinon à sa
valeur :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
D'où vient VbJustify ? Quell est sa valeur? Et même si VerticalAligmnent fonctionne avec vbCenter, je crois qu'il serait plus prudent d'utiliser les constantes Excel, en l'occurence :
xlCenter
si tu as ajouté un référence à Microsoft Excel xx Library, sinon à sa valeur :
xlCenter = -4108
-- Cordialement,
Jacques.
isabelle
Bonjour Alain,
With Sheets("Feuil1").Range("A1") .HorizontalAlignment = xlCenter End With
isabelle
Alain DONVEN a écrit :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
Bonjour Alain,
With Sheets("Feuil1").Range("A1")
.HorizontalAlignment = xlCenter
End With
isabelle
Alain DONVEN a écrit :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré)
et
horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
With Sheets("Feuil1").Range("A1") .HorizontalAlignment = xlCenter End With
isabelle
Alain DONVEN a écrit :
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
Alain DONVEN
Bonjour à tous,
Merci Jacques et Isabelle des renseignements.
Effectivement cela fonctionne très bien avec xlcenter et xljustify en ajoutant dans Projet et Références de mon prog la référence "Microsoft Excel 10.0 Object Library". J'avais oublié d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog. J'explique le problème. Je crée un ou plusieurs fichiers excel dans la procédure. Je veux stocker un logo dans chaque fichier et sur chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au début du fichier sur la 1ère page et pas sur les autres.
Je vais essayer de trouver mais si vous avez la solution.
Encore merci Bonne journée
"Alain DONVEN" a écrit dans le message de news:
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
Bonjour à tous,
Merci Jacques et Isabelle des renseignements.
Effectivement cela fonctionne très bien avec xlcenter et xljustify en
ajoutant dans Projet et Références de mon prog
la référence "Microsoft Excel 10.0 Object Library". J'avais oublié
d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog.
J'explique le problème. Je crée un ou plusieurs fichiers excel dans la
procédure. Je veux stocker un logo dans chaque fichier et sur
chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au
début du fichier sur la 1ère page et pas sur les autres.
Je vais essayer de trouver mais si vous avez la solution.
Encore merci
Bonne journée
"Alain DONVEN" <adonvenNO_SPAM@tnsmi.fr> a écrit dans le message de
news:OgVgKlL2FHA.1256@TK2MSFTNGP09.phx.gbl...
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré)
et
horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
Effectivement cela fonctionne très bien avec xlcenter et xljustify en ajoutant dans Projet et Références de mon prog la référence "Microsoft Excel 10.0 Object Library". J'avais oublié d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog. J'explique le problème. Je crée un ou plusieurs fichiers excel dans la procédure. Je veux stocker un logo dans chaque fichier et sur chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au début du fichier sur la 1ère page et pas sur les autres.
Je vais essayer de trouver mais si vous avez la solution.
Encore merci Bonne journée
"Alain DONVEN" a écrit dans le message de news:
Comment aligner du texte dans une cellule avec horizontalAlignment > VbCenter (le texte n'est pas centré) et horizontalAlignment = VbJustify (le texte s'édite sur une ligne)
Le verticalAlignment = VbCenter fonctionne très bien
Jacques93
Bonjour Alain DONVEN, Alain DONVEN a écrit :
Bonjour à tous,
Merci Jacques et Isabelle des renseignements.
Effectivement cela fonctionne très bien avec xlcenter et xljustify en ajoutant dans Projet et Références de mon prog la référence "Microsoft Excel 10.0 Object Library". J'avais oublié d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog. J'explique le problème. Je crée un ou plusieurs fichiers excel dans la procédure. Je veux stocker un logo dans chaque fichier et sur chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au début du fichier sur la 1ère page et pas sur les autres.
Je vais essayer de trouver mais si vous avez la solution.
Si ton logo se trouve en début de page, tu peux indiquer les lignes à répéter en haut de chaque page avec :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
-- Cordialement,
Jacques.
Bonjour Alain DONVEN,
Alain DONVEN a écrit :
Bonjour à tous,
Merci Jacques et Isabelle des renseignements.
Effectivement cela fonctionne très bien avec xlcenter et xljustify en
ajoutant dans Projet et Références de mon prog
la référence "Microsoft Excel 10.0 Object Library". J'avais oublié
d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog.
J'explique le problème. Je crée un ou plusieurs fichiers excel dans la
procédure. Je veux stocker un logo dans chaque fichier et sur
chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au
début du fichier sur la 1ère page et pas sur les autres.
Effectivement cela fonctionne très bien avec xlcenter et xljustify en ajoutant dans Projet et Références de mon prog la référence "Microsoft Excel 10.0 Object Library". J'avais oublié d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
Par contre il me reste encore un petit souci dans mon prog. J'explique le problème. Je crée un ou plusieurs fichiers excel dans la procédure. Je veux stocker un logo dans chaque fichier et sur chaque page si rupture de page. Pour chaque fichier je n'ai le logo qu'au début du fichier sur la 1ère page et pas sur les autres.
Je vais essayer de trouver mais si vous avez la solution.
Si ton logo se trouve en début de page, tu peux indiquer les lignes à répéter en haut de chaque page avec :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
-- Cordialement,
Jacques.
Alain DONVEN
Bonjour Jacques,
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi. Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page lafeuille.ActiveSheet.Shapes("Picture 1").Select Application.CutCopyMode = False lafeuille.Selection.Copy lafeuille.Sheets(1).Cells(I3, 1).Select lafeuille.ActiveSheet.Paste End If
Encore merci et bonne journée.
Cordialement
Alain
"Jacques93" a écrit dans le message de news:
Bonjour Alain DONVEN, Alain DONVEN a écrit : > Bonjour à tous, > > Merci Jacques et Isabelle des renseignements. > > Effectivement cela fonctionne très bien avec xlcenter et xljustify en > ajoutant dans Projet et Références de mon prog > la référence "Microsoft Excel 10.0 Object Library". J'avais oublié > d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter. > > Par contre il me reste encore un petit souci dans mon prog. > J'explique le problème. Je crée un ou plusieurs fichiers excel dans la > procédure. Je veux stocker un logo dans chaque fichier et sur > chaque page si rupture de page. Pour chaque fichier je n'ai le logo
qu'au
> début du fichier sur la 1ère page et pas sur les autres. > > mon code : > lafeuille.activeSheet.Pictures.Insert( _ > "cheminLogoSecodip.bmp").Select > > Je vais essayer de trouver mais si vous avez la solution. >
Si ton logo se trouve en début de page, tu peux indiquer les lignes à répéter en haut de chaque page avec :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
-- Cordialement,
Jacques.
Bonjour Jacques,
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi.
Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page
lafeuille.ActiveSheet.Shapes("Picture 1").Select
Application.CutCopyMode = False
lafeuille.Selection.Copy
lafeuille.Sheets(1).Cells(I3, 1).Select
lafeuille.ActiveSheet.Paste
End If
Encore merci et bonne journée.
Cordialement
Alain
"Jacques93" <jacques@NoSpam> a écrit dans le message de
news:euqU8TX2FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour Alain DONVEN,
Alain DONVEN a écrit :
> Bonjour à tous,
>
> Merci Jacques et Isabelle des renseignements.
>
> Effectivement cela fonctionne très bien avec xlcenter et xljustify en
> ajoutant dans Projet et Références de mon prog
> la référence "Microsoft Excel 10.0 Object Library". J'avais oublié
> d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter.
>
> Par contre il me reste encore un petit souci dans mon prog.
> J'explique le problème. Je crée un ou plusieurs fichiers excel dans la
> procédure. Je veux stocker un logo dans chaque fichier et sur
> chaque page si rupture de page. Pour chaque fichier je n'ai le logo
qu'au
> début du fichier sur la 1ère page et pas sur les autres.
>
> mon code :
> lafeuille.activeSheet.Pictures.Insert( _
> "\cheminLogoSecodip.bmp").Select
>
> Je vais essayer de trouver mais si vous avez la solution.
>
Si ton logo se trouve en début de page, tu peux indiquer les lignes à
répéter en haut de chaque page avec :
With ActiveSheet.PageSetup
.PrintTitleRows = "A1:A2" ' à adapter
.PrintTitleColumns = ""
End With
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi. Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page lafeuille.ActiveSheet.Shapes("Picture 1").Select Application.CutCopyMode = False lafeuille.Selection.Copy lafeuille.Sheets(1).Cells(I3, 1).Select lafeuille.ActiveSheet.Paste End If
Encore merci et bonne journée.
Cordialement
Alain
"Jacques93" a écrit dans le message de news:
Bonjour Alain DONVEN, Alain DONVEN a écrit : > Bonjour à tous, > > Merci Jacques et Isabelle des renseignements. > > Effectivement cela fonctionne très bien avec xlcenter et xljustify en > ajoutant dans Projet et Références de mon prog > la référence "Microsoft Excel 10.0 Object Library". J'avais oublié > d'ajouter cela car l'alignmentVertical fonctionnait avec VbCenter. > > Par contre il me reste encore un petit souci dans mon prog. > J'explique le problème. Je crée un ou plusieurs fichiers excel dans la > procédure. Je veux stocker un logo dans chaque fichier et sur > chaque page si rupture de page. Pour chaque fichier je n'ai le logo
qu'au
> début du fichier sur la 1ère page et pas sur les autres. > > mon code : > lafeuille.activeSheet.Pictures.Insert( _ > "cheminLogoSecodip.bmp").Select > > Je vais essayer de trouver mais si vous avez la solution. >
Si ton logo se trouve en début de page, tu peux indiquer les lignes à répéter en haut de chaque page avec :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
-- Cordialement,
Jacques.
Jacques93
Bojour Alain DONVEN, Alain DONVEN a écrit :
Bonjour Jacques,
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi. Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page lafeuille.ActiveSheet.Shapes("Picture 1").Select Application.CutCopyMode = False lafeuille.Selection.Copy lafeuille.Sheets(1).Cells(I3, 1).Select lafeuille.ActiveSheet.Paste End If
OK. Merci du retour. Pour info, le code proposé :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
correspond à :
Fichier => Mise en Page => Feuille => Lignes à répéter en haut :
http://cjoint.com/?kAn1HJE4wX
-- Cordialement,
Jacques.
Bojour Alain DONVEN,
Alain DONVEN a écrit :
Bonjour Jacques,
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi.
Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page
lafeuille.ActiveSheet.Shapes("Picture 1").Select
Application.CutCopyMode = False
lafeuille.Selection.Copy
lafeuille.Sheets(1).Cells(I3, 1).Select
lafeuille.ActiveSheet.Paste
End If
OK. Merci du retour. Pour info, le code proposé :
With ActiveSheet.PageSetup
.PrintTitleRows = "A1:A2" ' à adapter
.PrintTitleColumns = ""
End With
correspond à :
Fichier => Mise en Page => Feuille => Lignes à répéter en haut :
Merci pour ta collaboration. J'ai essayé ton code mais je n'ai pas réussi. Par contre j'ai cherché autre chose et cela fonctionne avec :
If I3 > 17 Then ' mon changement de page lafeuille.ActiveSheet.Shapes("Picture 1").Select Application.CutCopyMode = False lafeuille.Selection.Copy lafeuille.Sheets(1).Cells(I3, 1).Select lafeuille.ActiveSheet.Paste End If
OK. Merci du retour. Pour info, le code proposé :
With ActiveSheet.PageSetup .PrintTitleRows = "A1:A2" ' à adapter .PrintTitleColumns = "" End With
correspond à :
Fichier => Mise en Page => Feuille => Lignes à répéter en haut :
