Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il
y a dans la colonne E ?
Merci beaucoup
Michel
--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))
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
anonymousA
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage
c.EntireRow.AutoFit
if c.RowHeight > 42.75 Then
Else
c.RowHeight = 42.75
End If
next
A+
Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il
y a dans la colonne E ?
Merci beaucoup
Michel
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Michel.Girard
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Bonsoir et merci beaucoup pour ta célérité.
C'est vraiment très sympa de ta part
mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000
j'ai trouvé pour le 1000 ;-) mais pas le A3
Encore merci
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
420bb45d$0$2173$8fcfb975@news.wanadoo.fr...
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage
c.EntireRow.AutoFit
if c.RowHeight > 42.75 Then
Else
c.RowHeight = 42.75
End If
next
A+
Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce
qu'il y a dans la colonne E ?
Merci beaucoup
Michel
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Daniel.M
Bonjour,
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Bonjour,
Au lieu de:
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
écris:
set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" <michel.girard@club-internet.fr> wrote in message
news:uwm4Fn6DFHA.1564@TK2MSFTNGP09.phx.gbl...
Bonsoir et merci beaucoup pour ta célérité.
C'est vraiment très sympa de ta part
mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000
j'ai trouvé pour le 1000 ;-) mais pas le A3
Encore merci
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
420bb45d$0$2173$8fcfb975@news.wanadoo.fr...
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage
c.EntireRow.AutoFit
if c.RowHeight > 42.75 Then
Else
c.RowHeight = 42.75
End If
next
A+
Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce
qu'il y a dans la colonne E ?
Merci beaucoup
Michel
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Michel.Girard
Merci beaucoup Daniel, c'est très sympa de ta part. Je te souhaite une très bonne soirée. Michel
"Daniel.M" a écrit dans le message de news:
Bonjour,
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Merci beaucoup Daniel,
c'est très sympa de ta part.
Je te souhaite une très bonne soirée.
Michel
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news: OmwnJr6DFHA.1012@TK2MSFTNGP14.phx.gbl...
Bonjour,
Au lieu de:
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
écris:
set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" <michel.girard@club-internet.fr> wrote in message
news:uwm4Fn6DFHA.1564@TK2MSFTNGP09.phx.gbl...
Bonsoir et merci beaucoup pour ta célérité.
C'est vraiment très sympa de ta part
mais comment faire si je veux avoir cela mais seulement à partir de
A3:A1000
j'ai trouvé pour le 1000 ;-) mais pas le A3
Encore merci
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
420bb45d$0$2173$8fcfb975@news.wanadoo.fr...
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage
c.EntireRow.AutoFit
if c.RowHeight > 42.75 Then
Else
c.RowHeight = 42.75
End If
next
A+
Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard"
au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce
qu'il y a dans la colonne E ?
Merci beaucoup
Michel
Merci beaucoup Daniel, c'est très sympa de ta part. Je te souhaite une très bonne soirée. Michel
"Daniel.M" a écrit dans le message de news:
Bonjour,
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Michel.Girard
Merci également à AnonymousA Michel
"Michel.Girard" a écrit dans le message de news:
Merci beaucoup Daniel, c'est très sympa de ta part. Je te souhaite une très bonne soirée. Michel
"Daniel.M" a écrit dans le message de news:
Bonjour,
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
Merci également à AnonymousA
Michel
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: OlWcXw6DFHA.2180@TK2MSFTNGP10.phx.gbl...
Merci beaucoup Daniel,
c'est très sympa de ta part.
Je te souhaite une très bonne soirée.
Michel
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news: OmwnJr6DFHA.1012@TK2MSFTNGP14.phx.gbl...
Bonjour,
Au lieu de:
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
écris:
set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" <michel.girard@club-internet.fr> wrote in message
news:uwm4Fn6DFHA.1564@TK2MSFTNGP09.phx.gbl...
Bonsoir et merci beaucoup pour ta célérité.
C'est vraiment très sympa de ta part
mais comment faire si je veux avoir cela mais seulement à partir de
A3:A1000
j'ai trouvé pour le 1000 ;-) mais pas le A3
Encore merci
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
420bb45d$0$2173$8fcfb975@news.wanadoo.fr...
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage
c.EntireRow.AutoFit
if c.RowHeight > 42.75 Then
Else
c.RowHeight = 42.75
End If
next
A+
Bonsoir.
J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit
If ActiveCell.RowHeight > 42.75 Then
Else
ActiveCell.RowHeight = 42.75
End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard"
au
niveau des lignes.
Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce
qu'il y a dans la colonne E ?
Merci beaucoup
Michel
Merci beaucoup Daniel, c'est très sympa de ta part. Je te souhaite une très bonne soirée. Michel
"Daniel.M" a écrit dans le message de news:
Bonjour,
Au lieu de: set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5)) écris: set plage=range("A3:A1000")
Salutations,
Daniel M.
"Michel.Girard" wrote in message news:
Bonsoir et merci beaucoup pour ta célérité. C'est vraiment très sympa de ta part mais comment faire si je veux avoir cela mais seulement à partir de A3:A1000 j'ai trouvé pour le 1000 ;-) mais pas le A3 Encore merci Michel
"anonymousA" a écrit dans le message de news: 420bb45d$0$2173$
re,
un truc pas très malin mais qui fonctionne
set plage=range(cells(1,5),cells(cells(65536,5).end(xlup).row,5))
for each c in plage c.EntireRow.AutoFit if c.RowHeight > 42.75 Then Else c.RowHeight = 42.75 End If next
A+
Bonsoir. J'ai cette procédure qui fonctionne très bien.
ActiveCell.EntireRow.AutoFit If ActiveCell.RowHeight > 42.75 Then Else ActiveCell.RowHeight = 42.75 End If
Mais le pb est que quand je trie mon tableau, cela fiche le "bazard" au niveau des lignes. Comment faire afin d'avoir chaque ligne qui soit "AutoFit" suivant ce qu'il y a dans la colonne E ? Merci beaucoup Michel
