reproduite une mise en forme de lignes (hauteur)

Le
Alfred WALLACE
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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Sam
Le #22375061
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"
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é
Sam
Le #22375101
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" 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"
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é







Alfred WALLACE
Le #22377231
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"
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" 4c447869$0$2983$
Sam
Le #22378401
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"
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"
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" 4c447869$0$2983$
Publicité
Poster une réponse
Anonyme