Mise en forme conditionnelle avancé VBA
Résolu
Adrien
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Mise en forme conditionnelle avancé VBA
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Excel liste déroulante conditionnelle - Guide
1 réponse
Bonjour,
Finalement j'ai trouvé par moi même. Certainement pas la façon la plus adroite de faire mais c'est le résultat qui compte, je bricole le VBA plus que je ne le maitrise mais j'arrive à faire des choses c'est déjà ça :
Sub Test()
Dim nbrl As Integer
Dim nom As String
Dim Position As Integer
Position = 1
nom = ActiveSheet.Name
i = 0
nbrl = Application.WorksheetFunction.CountA(Sheets(nom).Range("$A:$A"))
'Boucle
Do Until i = nbrl
Set MaPlage = Columns("A:L").Rows(Position + 1)
If Sheets(nom).Range("A" & Position).Value <> Sheets(nom).Range("A" & (Position + 1)).Value Then
MaPlage.Borders(xlEdgeTop).Weight = xlMedium
End If
Position = Position + 1
i = i + 1
Loop
End Sub
bonjour,
L'écriture est un peu lourde, mais l'approche me semble correcte.
Merci pour ces suggestions.
Pour le point n°1 tu veux surment dire que je peux supprimer le compteur i mais à condition que ma boucle se termine d'elle même par une condition du type répéter la boucle jusqu'à une cellule vide. Car la en l'état m'a boucle se répète selon le comptage du nombre de lignes que contient le tableau.
Un seul compteur suffit, tu n'as pas besoin de i et de Position. Tu peux utiliser Position dans le test de fin de boucle.