Format de ligne dans une boucle depuis la ligne 50
Résolu
moneyshop
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
moneyshop Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
moneyshop Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Format de ligne dans une boucle depuis la ligne 50
- Partage de photos en ligne - Guide
- Format epub - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Format factory - Télécharger - Conversion & Codecs
4 réponses
onjour
Tu es sûr de ce code ?
moi, j'ai un refus de VBA....
et ensuite que veux tu faire ?
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.
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.
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"
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"
Bonjour
Pas sûr d'avoir compris ta demande....
Pas sûr d'avoir compris ta demande....
Option Explicit
'-------------------------------------------
Sub Formater_hauteur_lignes()
Dim DerLigne As Integer, Lig As Integer
Application.ScreenUpdating = False
DerLigne = Range("A65536").End(xlUp).Row
Range("A50:A" & DerLigne).RowHeight = 1
For Lig = 50 To DerLigne
If Lig Mod 5 = 0 Then Range("A" & Lig).RowHeight = 16
Next
End Sub