Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel imposer la hauteur de ligne dans la macro

imposer la hauteur de ligne dans la macro

2 réponses
Avatar
Grégory DELBOE
Vous m'avez aidé récemment à créer un bouton pour insérer des lignes par
l'intermédiaire d'"un bouton que je crée. Néanmoins, la hauteur de ligne
semble calibrée.

Comment imposer une hauteur de ligne?

Voici la macro:

Sub Inser_Phase2()
Dim Rep As Variant
Rep = InputBox("après quelle n° de ligne voulez-vous placer votre étape
intermédiaire?")
If IsNumeric(Rep) Then
Rep = CInt(Rep)
If Rep > 0 And Rep < Rows.Count - 2 Then
Sheets("Infos").Rows("103").Copy
Rows(Rep + 1).Insert
End If
End If
End Sub

Merci pour vos lumières.
Signaler un problème avec ce contenu

2 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
Daniel.C
Ajoute :
Rows(Rep + 1).RowHeight = 25
après :
Rows(Rep + 1).Insert
Daniel

Vous m'avez aidé récemment à créer un bouton pour insérer des lignes par
l'intermédiaire d'"un bouton que je crée. Néanmoins, la hauteur de ligne
semble calibrée.

Comment imposer une hauteur de ligne?

Voici la macro:

Sub Inser_Phase2()
Dim Rep As Variant
Rep = InputBox("après quelle n° de ligne voulez-vous placer votre étape
intermédiaire?")
If IsNumeric(Rep) Then
Rep = CInt(Rep)
If Rep > 0 And Rep < Rows.Count - 2 Then
Sheets("Infos").Rows("103").Copy
Rows(Rep + 1).Insert
End If
End If
End Sub

Merci pour vos lumières.


Avatar
Grégory DELBOE
Impaeccable! Merci Daniel et à très bientôt


"Daniel.C" a écrit dans le message de
news:uUhPA0$$
Ajoute :
Rows(Rep + 1).RowHeight = 25
après :
Rows(Rep + 1).Insert
Daniel

Vous m'avez aidé récemment à créer un bouton pour insérer des lignes par
l'intermédiaire d'"un bouton que je crée. Néanmoins, la hauteur de ligne
semble calibrée.

Comment imposer une hauteur de ligne?

Voici la macro:

Sub Inser_Phase2()
Dim Rep As Variant
Rep = InputBox("après quelle n° de ligne voulez-vous placer votre étape
intermédiaire?")
If IsNumeric(Rep) Then
Rep = CInt(Rep)
If Rep > 0 And Rep < Rows.Count - 2 Then
Sheets("Infos").Rows("103").Copy
Rows(Rep + 1).Insert
End If
End If
End Sub

Merci pour vos lumières.