format de ligne dans une boucle depuis la ligne 50 Résolu/Fermé

Question

Bonjour, 
je souhaite faire une boucle jusqu'a la fin du document pour réaliser une liste dont les lignes au départ de ligne 50 soit au format ligne 16 toutes les lignes 51 52 53 54 jusqu'à la fin du document  sont en format 1 pour ne pas etre visible

Rows("50:50").Select
 Application.Run "form16"
Rows("55:55").Select
 Application.Run "form16"

avec arret 
DerLigne = Range("a65536").End(xlUp).Row
Range("a" & DerLigne).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False

merci a vous

Configuration: Linux / Firefox 38.0

michel_m · Answer

onjour

Tu es sûr de ce code ?

Rows("50:50").Select Application.Run "form16" Rows("55:55").Select Application.Run "form16"  

moi, j'ai un refus de VBA....

et ensuite que veux tu faire ?
DerLigne = Range("a65536").End(xlUp).Row Range("a" & DerLigne).Select Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 

en général avant un "paste" il y a un "copy....."

dans ta demande précédente pourquoi utiliser un "choose" : voir ma suggestion.

moneyshop · Answer

Voila le debut de ma macro
1) je voudrais que le premier formatage soit fonction du derligne et l'integrer et remplacer le Range("A50:A716").Select

et dans la partie 

2) avoir une boucle qui integre sur toutes les 5 lignes le form16

'=================
'1)
Application.Run "a_formatage"

DerLigne = Range("a65536").End(xlUp).Row
Range("a" & DerLigne).Select
 
End Sub
Sub a_formatage()
'===
    Range("A50:A716").Select
    Selection.RowHeight = 1

'2) ===
Rows("50:50").Select
 Application.Run "form16"

Rows("55:55").Select
 Application.Run "form16"

michel_m · Answer

qu'est que c'est le "form16" ?   :-/

michel_m · Answer

Bonjour

Pas sûr d'avoir compris ta demande....

Option Explicit'-------------------------------------------Sub Formater_hauteur_lignes()Dim DerLigne As Integer, Lig As IntegerApplication.ScreenUpdating = FalseDerLigne = Range("A65536").End(xlUp).RowRange("A50:A" & DerLigne).RowHeight = 1For Lig = 50 To DerLigne    If Lig Mod 5 = 0 Then Range("A" & Lig).RowHeight = 16NextEnd Sub

Format de ligne dans une boucle depuis la ligne 50

4 réponses

Discussions similaires