Compter une autre ligne que la dernière - VBA
Bonjour à tous,
J'ai créé un mini programme qui supprime un bloc de X lignes si l'utilisateur le désire. Cependant pour le moment, le programme prend en compte le nombre de lignes maximales possibles dans le bloc pour supprimer ces X lignes.
Si mon utilisateur souhaite modifier la taille du bloc en cours de projet mon code sera caduc !
J'ai donc pensé à ça :
En dessous de chaque bloc il y a une ligne de sous total en couleur gris foncée avec le mot "SOUS TOTAL" inscrit. Les blocs sont insérés les uns en dessous des autres.
Je souhaite donc dans mon nouveau programme :
- Rechercher la dernière ligne du tableau Excel (ça je sais faire)
DST = Range("F" & Rows.Count).End(xlUp).Row
'Sélection de la dernière case écrite
DST = Dernier Sous Total
- A partir de cette ligne rechercher la prochaine cellule de la colonne F avec la couleur "2630694" (ça je sais pas faire hehe)
ADST = Range("F" & Rows.Count).......Interior.Color = 2630694
'Sélection de l'avant dernier sous total
ADST = Avant Dernier Sous Total
Avez-vous une idée de comment procéder ? Je peux aussi rechercher la dernière case où c'est inscrit Sous Total si c'est plus simple ?
Cordialement,
Quentin
Bonjour,
Jette un oeil sur la fonction Find.
J'ai trouvé et pas à l'aide de la fonction FIND.
Je pose mon code si quelqu'un en a besoin ou juste pour la culture :
Private Sub CommandButton4_Click()
If MsgBox("Etes-vous certain de vouloir supprimer le dernier lot ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("Planning").Select
DST = Range("F" & Rows.Count).End(xlUp).Row 'Sélection du dernier sous total
If DST <= 7 Then
MsgBox "Il n'y a aucun lot a supprimer"
Else
i = DST - 1
While Cells(i, 6).Interior.Color <> 5590862 'Recherche de l'avant dernier sous total colonne F de couleur gris foncé
i = i - 1
Wend
ADST = i 'Ligne de l'avant dernier sous total en colonne F
Sheets("Planning").Select
Range(Cells(ADST + 1, 1), Cells(DST, 19)).Clear
MsgBox "Le dernier lot a été effacé dans le planning !"
End If
End If
End Sub
Merci pour votre aide tout de même.
Cordialement,
Quentin