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

[Help] Macro avec boucle de mise en forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion toksib
  • 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

toksib

XLDnaute Nouveau
Bonjour,

Voila, depuis le début de cette journée j'essaye de réaliser une macro avec boucle me permettant de supprimer des lignes de quadrillage.

En fait, j'ai des numéros d'article (colonne A) et en face de chaque premier numéro d'article j'ai une description de cet article (colonne B). Si en dessous j'ai le même numéro d'article (Colonne A) alors dans la colonne description (colonne B) de cet article n'est pas répété.
Mais ce que je voudrais, c'est supprimer la barre qu'il y a entre la description de l'article est la case (ou les cases) vide(s) ci dessous.

Et idem en colonne L.

Pour plus de compréhension je vous envoie un fichier joint. Ce sera beaucoup plus simple.

Je suis vraiment mauvais pour réaliser des boucles. Si quelqu'un d'entre vous peut se pencher sur mon problème, ça serait fort aimable à lui.

en vous remerciant.
 

Pièces jointes

Trier par date Trier par votes
Re : [Help] Macro avec boucle de mise en forme

bonjour toksib

A tester

Code: 
Sub modif()
For n = 5 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = Range("A" & n - 1) Then Range("B" & n).Borders(xlEdgeTop).LineStyle = xlNone
Next n
End Sub
 
Vote positif 0 Vote négatif
Re : [Help] Macro avec boucle de mise en forme

Bonjour toksib, pierrejean 🙂,
Je suis en retard mais comme je l'ai fait...
Code: 
Sub Test()
Dim Derligne As Long
Derligne = Range("C" & Application.Rows.Count).End(xlUp).Row
For i = 2 To Derligne
    If Cells(i + 1, 1).Value = Cells(i, 1).Value Then
        Cells(i, 2).Borders(xlEdgeBottom).LineStyle = xlNone
        Cells(i, 12).Borders(xlEdgeBottom).LineStyle = xlNone
    End If
Next i
End Sub
En prenant en compte la colonne L.
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : [Help] Macro avec boucle de mise en forme

Re

Salut et merci Efgé

J'avais omis de traiter la colonne L

Code: 
Sub modif()
For n = 5 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = Range("A" & n - 1) Then
    Range("B" & n).Borders(xlEdgeTop).LineStyle = xlNone
    Range("L" & n).Borders(xlEdgeTop).LineStyle = xlNone
  End If
Next n
End Sub
 
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

Discussions similaires

F
  • Résolu(e)
XL 2010 Macro : Remplissage de texte sous conditions
Réponses
11
Affichages
394
FLG
F
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
363
AtTheOne
G
  • Question Question
Microsoft 365 Macro VBA - mise en forme export excel
Réponses
6
Affichages
560
gpera
G
C
  • Question Question
Microsoft 365 recopie avec mise en forme
Réponses
6
Affichages
674
Dranreb
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
693
MBax
W
  • Question Question
Autres Besoin d'aide Excel : Récupérer le nombre d'articles à partir de cette mise en forme
Réponses
4
Affichages
320
WIWSAP
W
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
931
spike29
S
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
527
kikilabrax
K
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
751
candido57
C
Z
  • Question Question
Microsoft 365 Mise en forme de tableau et répétition de formule
Réponses
2
Affichages
574
DJunqueira
D
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
889
Laliepomm
L
L
  • Question Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
448
fanfan38
A
  • Question Question
Microsoft 365 Mise en forme conditionnel avec formule qui ne répond pas à des critères
Réponses
2
Affichages
443
TooFatBoy
I
  • Résolu(e)
XL 2013 Mise en forme conditionnelle avec formule
Réponses
4
Affichages
665
sylvanu
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
884
marie3107
M
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
685
MarineU
M
  • Question Question
XL 2016 Mise en forme conditionnelle / Comptage multicritères
Réponses
2
Affichages
519
Wayat
S
  • Résolu(e)
Microsoft 365 vba, récupérer le résultat d'un INDEX(EQUIV en fonction du résultat
Réponses
6
Affichages
565
SOP
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…