Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

hauteur des lignes Vides à 0,3 cms

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tounsy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tounsy

Guest
Bonjour,

Je fais à nouveau appel à vous pour une macro que je n'arrive pas à faire...😕

En fait, je souhaite que dans une plage donnée Range(A2:A20), qu'à chaque fois que la cellule A est vide, la hauteur de la ligne doit être égale à 0,3 cms (cf. fichier joint)....

Pouvez-vous svp me donner un coup de main ?

Merci !
 

Pièces jointes

Trier par date Trier par votes
Re : hauteur des lignes Vides à 0,3 cms

bonjour tounsy

A tester

Code: 
Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub
 
Vote positif 0 Vote négatif
Re : hauteur des lignes Vides à 0,3 cms

pierrejean à dit:
bonjour tounsy

A tester

Code: 
Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub
Cliquez pour agrandir...

Bonjour Pierrejean et merci beaucoups pour ta réponse.
C'est exactement ce que je voulais faire !
Pourrais tu me dire comment faire pour limiter cette macro aux lignes 2 à 20 ?

Merci encore
 
Vote positif 0 Vote négatif
Re : hauteur des lignes Vides à 0,3 cms

Hello tounsy, PierreJean,
Loin de moi l'idée de remettre la réponse de PierreJean en question mais pourquoi ne pas simplement masquer les lignes ? (auquel cas une seule ligne de code - que je n'ai pas encore écrite (...) devrait suffire... Enfin, je crois) 🙄
 
Vote positif 0 Vote négatif
Re : hauteur des lignes Vides à 0,3 cms

Re

A tester

Code: 
Sub test()
For n = 2 To 20
 If Range("A" & n) = "" Then
  Rows(n).RowHeight = 3
 Else
  Rows(n).RowHeight = 12.75
 End If
Next n
End Sub

Edit: Salut Requin
 
Vote positif 0 Vote négatif
Re : hauteur des lignes Vides à 0,3 cms

carcharodon-carcharias à dit:
@ Épaf
de tounsy
et PAF 😉
Cliquez pour agrandir...
C'était une simple suggestion. C'est mal venu, les suggestions ?

Ceci dit, et pour que tout soit clair entre nous (je ne voudrais pas que tu sois fâché) mon message serait arrivé avant la réponse de tounsy si un appel téléphonique ne m'avait pas distrait de mon occupation du moment. 😛
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
787
Daniel200666
D
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
354
komarlehomard
K
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
258
JHA
J
Y
  • Résolu(e)
XL 2016 4 Messages dans des formules différentes à imbriquer dans une seule formule SI.est vide.ET.ET
Réponses
6
Affichages
234
YGU1
Y
M
  • Résolu(e)
XL 2016 Formule de ligne précédente non mise à jour après une insertion automatique de lignes dans l'objet tableau.
Réponses
4
Affichages
337
TooFatBoy
  • Résolu(e)
XL 2021 Report de lignes d'un onglet à un autre en conservant format et recopie des commentaires
Réponses
9
Affichages
275
scoobytor
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
326
Phil69970
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
B
  • Question Question
Microsoft 365 Je souhaite que la cellule résultat soit vierge si les autres cellules sont vide.
Réponses
4
Affichages
600
blancolie
B
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
790
Usine à gaz
R
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
4
Affichages
624
Nain porte quoi
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
L
  • Résolu(e)
Microsoft 365 Supprimer lignes vides
Réponses
5
Affichages
795
Cousinhub
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
609
Raziel abel
S
  • Question Question
XL 2010 Connection avec autre feuille excel et insertion
Réponses
5
Affichages
1 K
dysorthographie
T
  • Résolu(e)
XL 2010 Formule - Si 2 cellules non vides sur une plage de cellules
Réponses
5
Affichages
843
Titi456
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…