Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel reproduite une mise en forme de lignes (hauteur)

reproduite une mise en forme de lignes (hauteur)

4 réponses
Avatar
Alfred WALLACE
bonjour (j'esp=E8re que vous n'avez pas trop chaud)

je pensais qu'apr=E8s r=E9gler la hauteur d'une ligne =E0 5 points , et
celle de la ligne suivante a 3 points, puis de selectionner
ces 2 lignes, je pourrais faire un copier-collage sp=E9cial format, pour
que les 2 hauteurs sp=E9cifiques des 2 lignes se reproduisent....

ben, on dirait bien que non.

Comment je peux reproduire ces 2 hauteurs de lignes dans la plage
de ligne que j'aurai pr=E9alablement s=E9lectionne ?

grace =E0 "Selection.Rows.Count" je peux connaitre le nombre
de lignes s=E9lectionn=E9es, je voudrais avoir un nb de lignes paire, et
ensuite d'appliquer la hauteur pour ma plage concern=E9es.

merci de votre aide.
jos=E9
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Sam
Bonjour,
avec Excel2003, ça fonctionne avec collage spécial mais je préfère utiliser
le pinceau qui est dans la barre d'outils :
sélectionner les 2 lignes puis cliquer sur le pinceau puis sélectionner les
lignes concernées et relâcher la souris

Cordialement
Michel dit "Sam"

"Alfred WALLACE" a écrit dans le message de news:

bonjour (j'espère que vous n'avez pas trop chaud)

je pensais qu'après régler la hauteur d'une ligne à 5 points , et
celle de la ligne suivante a 3 points, puis de selectionner
ces 2 lignes, je pourrais faire un copier-collage spécial format, pour
que les 2 hauteurs spécifiques des 2 lignes se reproduisent....

ben, on dirait bien que non.

Comment je peux reproduire ces 2 hauteurs de lignes dans la plage
de ligne que j'aurai préalablement sélectionne ?

grace à "Selection.Rows.Count" je peux connaitre le nombre
de lignes sélectionnées, je voudrais avoir un nb de lignes paire, et
ensuite d'appliquer la hauteur pour ma plage concernées.

merci de votre aide.
josé
Avatar
Sam
re bonjour,
voici une macro, il suffit de selectionner les lignes concernées et appeler
la macro

Sub Macro1()
'
' Macro enregistrée le 19/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim ligne As Integer
Dim nbligne As Integer
Dim i As Integer
Dim pair As Integer
Dim impair As Integer
Dim txtimpair as string
Dim txpair as string
ligne = Selection.Row
nbligne = Selection.Rows.Count
For i = 0 To Int((nbligne - 1) / 2)
pair = 2 * i + ligne
impair = 2 * i + 1 + ligne
txtimpair = impair & ":" & impair
txtpair = pair & ":" & pair
Rows(txtimpair).RowHeight = 9.75
Rows(txtpair).RowHeight = 5.25
Next i
End Sub

Cordialement
Michel dit "Sam"
"Sam" a écrit dans le message de news:
4c447869$0$2983$

Bonjour,
avec Excel2003, ça fonctionne avec collage spécial mais je préfère
utiliser le pinceau qui est dans la barre d'outils :
sélectionner les 2 lignes puis cliquer sur le pinceau puis sélectionner
les lignes concernées et relâcher la souris

Cordialement
Michel dit "Sam"

"Alfred WALLACE" a écrit dans le message de news:

bonjour (j'espère que vous n'avez pas trop chaud)

je pensais qu'après régler la hauteur d'une ligne à 5 points , et
celle de la ligne suivante a 3 points, puis de selectionner
ces 2 lignes, je pourrais faire un copier-collage spécial format, pour
que les 2 hauteurs spécifiques des 2 lignes se reproduisent....

ben, on dirait bien que non.

Comment je peux reproduire ces 2 hauteurs de lignes dans la plage
de ligne que j'aurai préalablement sélectionne ?

grace à "Selection.Rows.Count" je peux connaitre le nombre
de lignes sélectionnées, je voudrais avoir un nb de lignes paire, et
ensuite d'appliquer la hauteur pour ma plage concernées.

merci de votre aide.
josé







Avatar
Alfred WALLACE
Bonjour Sam,
merci encore pour ton code, très instructif.
je me demande si il y a des stages de formation "développeurs"
spécifiques pour apprendre (comprendre) ce niveau de programmation
avec le VBA....

Par ailleurs, pour le moment, je suis sous excel 2000.

Ton code applique, à la ligne et ligne suivante, une hauteurs de
ligne, mais
j'aimerai faire la chose suivante, après avoir lancé la macro,
celle-ci détecte la sélection des 2 lignes "modèle" et mémorise
la hauteurs de ces 2 lignes.
Puis, dans un deuxième temps, un détecté une nouvelle sélection de X
lignes,
donc le nombre doit être paire (sinon je rajoute une ligne à cette
selection),
pour faire tourner ton code.

je pense pouvoir me débrouiller dans cette écriture, SAUF pour
la détection de la sélection des lignes (les 2 fois)...

Peux tu m'aider pour le code de detection de selection multiple des
lignes ?

Merci
José


On 19 juil, 18:29, "Sam" wrote:
re bonjour,
voici une macro, il suffit de selectionner les lignes concernées et app eler
la macro

Sub Macro1()
'
' Macro enregistrée le 19/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
    Dim ligne As Integer
    Dim nbligne As Integer
    Dim i As Integer
    Dim pair As Integer
    Dim impair As Integer
    Dim txtimpair as string
    Dim txpair as string
    ligne = Selection.Row
    nbligne = Selection.Rows.Count
    For i = 0 To Int((nbligne - 1) / 2)
      pair = 2 * i + ligne
      impair = 2 * i + 1 + ligne
      txtimpair = impair & ":" & impair
      txtpair = pair & ":" & pair
      Rows(txtimpair).RowHeight = 9.75
      Rows(txtpair).RowHeight = 5.25
    Next i
End Sub

Cordialement
Michel dit "Sam"
"Sam" a écrit dans le message de news:
4c447869$0$2983$
Avatar
Sam
Bonjour,
quelquechose de ce genre

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim ligne As Integer
Dim nbligne As Integer
Dim i As Integer
Dim pair As Integer
Dim impair As Integer
Dim txtimpair As String
Dim txtpair As String
Dim Choixligne As Range
Dim hauteur1 As Single
Dim hauteur2 As Single
On Error GoTo 1
Set Choixligne = Application.InputBox(prompt:="Selectionner les 2 lignes
modèles", _
Title:="Choix des lignes modèles", _
Type:=8)
Choixligne.Select
ligne = Selection.Row
hauteur1 = Range(ligne & ":" & ligne).RowHeight
ligne = Selection.Offset(1, 0).Row
hauteur2 = Range(ligne & ":" & ligne).RowHeight
Set Choixligne = Application.InputBox(prompt:="Selectionner les lignes à
formater", _
Title:="Choix des lignes à formater", _
Type:=8)
Choixligne.Select
ligne = Selection.Row
nbligne = Selection.Rows.Count
For i = 0 To Int((nbligne - 1) / 2)
pair = 2 * i + ligne
impair = 2 * i + 1 + ligne
txtpair = pair & ":" & pair
txtimpair = impair & ":" & impair
Rows(txtpair).RowHeight = hauteur1
Rows(txtimpair).RowHeight = hauteur2
Next i
Exit Sub
1 MsgBox ("fin du formatage")
End Sub


Cordialement
Michel dit "Sam"


"Alfred WALLACE" a écrit dans le message de news:

Bonjour Sam,
merci encore pour ton code, très instructif.
je me demande si il y a des stages de formation "développeurs"
spécifiques pour apprendre (comprendre) ce niveau de programmation
avec le VBA....

Par ailleurs, pour le moment, je suis sous excel 2000.

Ton code applique, à la ligne et ligne suivante, une hauteurs de
ligne, mais
j'aimerai faire la chose suivante, après avoir lancé la macro,
celle-ci détecte la sélection des 2 lignes "modèle" et mémorise
la hauteurs de ces 2 lignes.
Puis, dans un deuxième temps, un détecté une nouvelle sélection de X
lignes,
donc le nombre doit être paire (sinon je rajoute une ligne à cette
selection),
pour faire tourner ton code.

je pense pouvoir me débrouiller dans cette écriture, SAUF pour
la détection de la sélection des lignes (les 2 fois)...

Peux tu m'aider pour le code de detection de selection multiple des
lignes ?

Merci
José


On 19 juil, 18:29, "Sam" wrote:
re bonjour,
voici une macro, il suffit de selectionner les lignes concernées et
appeler
la macro

Sub Macro1()
'
' Macro enregistrée le 19/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim ligne As Integer
Dim nbligne As Integer
Dim i As Integer
Dim pair As Integer
Dim impair As Integer
Dim txtimpair as string
Dim txpair as string
ligne = Selection.Row
nbligne = Selection.Rows.Count
For i = 0 To Int((nbligne - 1) / 2)
pair = 2 * i + ligne
impair = 2 * i + 1 + ligne
txtimpair = impair & ":" & impair
txtpair = pair & ":" & pair
Rows(txtimpair).RowHeight = 9.75
Rows(txtpair).RowHeight = 5.25
Next i
End Sub

Cordialement
Michel dit "Sam"
"Sam" a écrit dans le message de news:
4c447869$0$2983$