Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes
(hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un
classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants
pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
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
poy-poy
Bonjour Georges,
Tu peux le faire manuellement avec le format painter (icone de gros pinceau généralement à coté de copier/coller). Tu selectionnes les lignes de ton classeur 2, click sur l'icone, puis selectionne les lignes du classeur 1. C'est fait !
Si tu le veux en vba pour pouvoir le faire automatiquement, tu fais juste un enregistrement de macro avant.
Cordialement Benjamin
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes (hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Bonjour Georges,
Tu peux le faire manuellement avec le format painter (icone de gros pinceau
généralement à coté de copier/coller). Tu selectionnes les lignes de ton
classeur 2, click sur l'icone, puis selectionne les lignes du classeur 1.
C'est fait !
Si tu le veux en vba pour pouvoir le faire automatiquement, tu fais juste un
enregistrement de macro avant.
Cordialement
Benjamin
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes
(hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un
classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants
pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Tu peux le faire manuellement avec le format painter (icone de gros pinceau généralement à coté de copier/coller). Tu selectionnes les lignes de ton classeur 2, click sur l'icone, puis selectionne les lignes du classeur 1. C'est fait !
Si tu le veux en vba pour pouvoir le faire automatiquement, tu fais juste un enregistrement de macro avant.
Cordialement Benjamin
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes (hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Michel Gaboly
Bonjour,
Voici un exemple. Il faut bien sûr adapter si nécessaire le nom du classeur et de la feuille servant de référence.
Le traitement est limité ici aux 100 premières lignes (borne supérieure de i). On pourrait utiliser f.UsedRange.Rows.Count, mais il y a parfois des surprises.
Sub HauteurLignes() Dim f As Worksheet, i As Integer Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par les "bons" noms. For i = 1 To 100 ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height Next End SuB
La mise à jour des hauteurs de lignes se fait sur la feuille active.
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes (hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonjour,
Voici un exemple. Il faut bien sûr adapter si nécessaire le nom du
classeur et de la feuille servant de référence.
Le traitement est limité ici aux 100 premières lignes (borne supérieure
de i). On pourrait utiliser f.UsedRange.Rows.Count, mais il y a parfois
des surprises.
Sub HauteurLignes()
Dim f As Worksheet, i As Integer
Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par
les "bons" noms.
For i = 1 To 100
ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height
Next
End SuB
La mise à jour des hauteurs de lignes se fait sur la feuille active.
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes
(hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un
classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants
pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Voici un exemple. Il faut bien sûr adapter si nécessaire le nom du classeur et de la feuille servant de référence.
Le traitement est limité ici aux 100 premières lignes (borne supérieure de i). On pourrait utiliser f.UsedRange.Rows.Count, mais il y a parfois des surprises.
Sub HauteurLignes() Dim f As Worksheet, i As Integer Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par les "bons" noms. For i = 1 To 100 ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height Next End SuB
La mise à jour des hauteurs de lignes se fait sur la feuille active.
Bonjour les spécialistes enviés !
Je voudrais avoir sur une feuille1 d'un classeur1 la même hauteur des lignes (hauteur différente pour chaque ligne, bien sûr), que sur la feuille1 d'un classeur2.
Quelqu'un pourrait-il me consacrer quelques-uns de ses précieux instants pour m'indiquer la macro à exécuter ?
Merci d'avance,
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
-- Cordialement,
Michel Gaboly www.gaboly.com
Georges Schell
Merci Michel et Benjamin pour vos réponses !
Benjamin , je ne peux, malheureusement pas utiliser le pinceau dans ce cas là, car il y a des cellules fusionnées et des cellules dont je dois conserver le format.
Michel, c'est impeccable, exactement ce qu'il me fallait ! Quelle réactivité ! On peut dire ce que l'on veut, mais le Mac est très rapide !
Bonne journée à tous les deux et encore merci,
Georges
dans l'article , Michel Gaboly à a écrit le 27/01/05 10:42 :
Sub HauteurLignes() Dim f As Worksheet, i As Integer Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par les "bons" noms. For i = 1 To 100 ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height Next End SuB
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Merci Michel et Benjamin pour vos réponses !
Benjamin , je ne peux, malheureusement pas utiliser le pinceau dans ce cas
là, car il y a des cellules fusionnées et des cellules dont je dois
conserver le format.
Michel, c'est impeccable, exactement ce qu'il me fallait ! Quelle réactivité
! On peut dire ce que l'on veut, mais le Mac est très rapide !
Bonne journée à tous les deux et encore merci,
Georges
dans l'article OG6r4RFBFHA.2540@TK2MSFTNGP09.phx.gbl, Michel Gaboly à
michel.gaboly@wanadoo.fr a écrit le 27/01/05 10:42 :
Sub HauteurLignes()
Dim f As Worksheet, i As Integer
Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par
les "bons" noms.
For i = 1 To 100
ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height
Next
End SuB
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Benjamin , je ne peux, malheureusement pas utiliser le pinceau dans ce cas là, car il y a des cellules fusionnées et des cellules dont je dois conserver le format.
Michel, c'est impeccable, exactement ce qu'il me fallait ! Quelle réactivité ! On peut dire ce que l'on veut, mais le Mac est très rapide !
Bonne journée à tous les deux et encore merci,
Georges
dans l'article , Michel Gaboly à a écrit le 27/01/05 10:42 :
Sub HauteurLignes() Dim f As Worksheet, i As Integer Set f = Workbooks("Classeur2").Sheets("Feuil1") ' A remplacer par les "bons" noms. For i = 1 To 100 ActiveSheet.Rows(i).RowHeight = f.Rows(i).Height Next End SuB
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
