Format de ligne dans une boucle depuis la ligne 50
Résolu/Fermé
moneyshop
Messages postés
8
Date d'inscription
mercredi 1 septembre 2010
Statut
Membre
Dernière intervention
31 août 2018
-
30 août 2018 à 15:00
moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018 - 31 août 2018 à 14:18
moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018 - 31 août 2018 à 14:18
A voir également:
- Format de ligne dans une boucle depuis la ligne 50
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Hors ligne instagram - Guide
- Partage de photos en ligne - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 30 août 2018 à 15:12
Modifié le 30 août 2018 à 15:12
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.
moneyshop
Messages postés
8
Date d'inscription
mercredi 1 septembre 2010
Statut
Membre
Dernière intervention
31 août 2018
30 août 2018 à 15:23
30 août 2018 à 15:23
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"
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 août 2018 à 17:16
30 août 2018 à 17:16
qu'est que c'est le "form16" ? :-/
moneyshop
Messages postés
8
Date d'inscription
mercredi 1 septembre 2010
Statut
Membre
Dernière intervention
31 août 2018
31 août 2018 à 09:36
31 août 2018 à 09:36
il s'agit de mettre la ligne en hauteur 16
merci du temps que tu peux passer
Sub form16()
'
'Application.Run "form16"
'===
With Selection.Font
Selection.RowHeight = 16
End With
'===
End Sub
merci du temps que tu peux passer
Sub form16()
'
'Application.Run "form16"
'===
With Selection.Font
Selection.RowHeight = 16
End With
'===
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 31 août 2018 à 12:03
Modifié le 31 août 2018 à 12:03
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
moneyshop
Messages postés
8
Date d'inscription
mercredi 1 septembre 2010
Statut
Membre
Dernière intervention
31 août 2018
31 août 2018 à 14:18
31 août 2018 à 14:18
peut être plus simple en programme qu'en explication ..... lol!!
en tout cas ca marche et bien sur plus rapide et sans avoir a modifier la zone d'intervention grace à DerLigne.
Merci a toi
en tout cas ca marche et bien sur plus rapide et sans avoir a modifier la zone d'intervention grace à DerLigne.
Merci a toi
