Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel masquer des lignes et inserer le meme nombre de lignes

masquer des lignes et inserer le meme nombre de lignes

7 réponses
Avatar
richard
Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci
Signaler un problème avec ce contenu

7 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
RGI
bonjour

avec ceci

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For i = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Next
End Sub


salutations

RGI

Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci





Avatar
JB
Bonjour,

Sub masq()
n = Selection.Rows.Count
Selection.EntireRow.Hidden = True
[A27].Resize(n).EntireRow.Insert
End Sub

Cordialement JB


Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j' ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci


Avatar
defluc
Sub Masq()
Dim NbrLignes As Integer
Selection.Rows.Select
NbrLignes = Selection.Rows.Count
Selection.EntireRow.Hidden = True
Rows.Range(Cells(28, 1), Cells(NbrLignes + 28, 1)).Select
Selection.EntireRow.Insert
End Sub
Avatar
richard
Vraiement super mais pour compliquer un peu et pour finir comment lui dire
que chaque ligne insérée est une hauteur égale à 12 par exemple alors que la
taille par défaut est de 18
Je connais la synthaxe Row height = 12 mais comment lui positionner
l'argument ?
Encore merci



bonjour

avec ceci

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For i = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Next
End Sub


salutations

RGI

Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci








Avatar
RGI
dans la boucle mettre

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For I = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Rows(27).RowHeight = "12"
Next
End Sub

RGI



Vraiement super mais pour compliquer un peu et pour finir comment lui dire
que chaque ligne insérée est une hauteur égale à 12 par exemple alors que la
taille par défaut est de 18
Je connais la synthaxe Row height = 12 mais comment lui positionner
l'argument ?
Encore merci




bonjour

avec ceci

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For i = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Next
End Sub


salutations

RGI


Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci










Avatar
richard
Vraiement super car çà fonctionne trés bien et en même temps je me forme et
découvre d'autres possibilté en vba
merci encore


dans la boucle mettre

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For I = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Rows(27).RowHeight = "12"
Next
End Sub

RGI



Vraiement super mais pour compliquer un peu et pour finir comment lui dire
que chaque ligne insérée est une hauteur égale à 12 par exemple alors que la
taille par défaut est de 18
Je connais la synthaxe Row height = 12 mais comment lui positionner
l'argument ?
Encore merci




bonjour

avec ceci

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For i = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Next
End Sub


salutations

RGI


Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci













Avatar
RGI
alors pour peaufiner un peu

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For I = 1 To nbre_ligne
With Rows(27)
.Insert Shift:=xlDown
.RowHeight = "12"
End With
Next
End Sub

RGI

Vraiement super car çà fonctionne trés bien et en même temps je me forme et
découvre d'autres possibilté en vba
merci encore



dans la boucle mettre

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For I = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Rows(27).RowHeight = "12"
Next
End Sub

RGI




Vraiement super mais pour compliquer un peu et pour finir comment lui dire
que chaque ligne insérée est une hauteur égale à 12 par exemple alors que la
taille par défaut est de 18
Je connais la synthaxe Row height = 12 mais comment lui positionner
l'argument ?
Encore merci





bonjour

avec ceci

Sub masq()
Selection.Rows.Select
nbre_ligne = Selection.Rows.Count
Selection.EntireRow.Hidden = True
For i = 1 To nbre_ligne
Rows(27).Insert Shift:=xlDown
Next
End Sub


salutations

RGI



Bonjour,
voici ma macro de base et mon problème :
Sub masq()
Selection.Rows.select
Selection.EntireRow.Hidden = True
End Sub
Lorsque je sélectionne des cellules verticalement et que je clique sur un
bouton, mes lignes se masquent.
J'aimerai si possible que la macro m'enregistre le nombre de ligne que j'ai
sélectionné, qu'elle me les masquent et qu'elle m'insére ce même nombre de
lignes aprés la ligne 27 ou la cellule A27
Besoin d'aide et d'avance merci