Bonjour,
je me permets de vous solliciter à nouveau pour finaliser un outil qui servira à construire des plannings.
Les aides et conseils que j'ai déjà reçus par un membre du site m'ont permis d'arriver à un résultat au delà de mes espérances...
J'ai réussi à faire la majorité des autres codes mais je bloque sur un combobox, je vous explique :
Dans un userform (user), j'ai une combobox1 qui reprend des données dates ("dddd d mmmm yyyy") d'une feuille (PLANNING) de C2 à C1199.
Sur le même userform (user) , j'ai un bouton de commande qui doit servir à supprimer les cellules (hrs de travail) de la colonne (D) à (G) mais à partir de la ligne au dessus de celle valider par le combobox et ce, jusqu'au début du planning, c'est à dire (D2: G2)
Ex: si dans le combobox1 de l'userform (user), je valide le "1er Mars 2016" (cellule C164) alors sur la feuille "PLANNING", je supprime les cellules (D163: G163 à D2: G2)
Les cellules (D2: G2) correspondent au début du planning (c'est à dire à la cellule C2 le 21 septembre 2015). On n'ira jamais au delà
Dans ts les cas, lorsqu'on supprimera les cellules par le bouton de commande, cela sera toujours jusqu'au cellules (D2: G2).
Je bloque sur le décalage de la ligne et surtout sur la boucle qui varie tout le temps.
J'ai commencé avec ce code, que j'ai trouvé sur le site et je l'ai adapté (tenté) mais cela ne fonctionne pas, je pense que c'est normal
Je pense qu'avec ce code, je supprime la ligne complète au dessus de celle validée par le combobox...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub CommandButton11_Click() Dim i As Integer Dim Editeur As String Editeur = ComboBox1.Value With Sheets("PLANNING") For i = .Range("C" & .Rows.Count).End(xlUp).Row To 4 If .Range("C" & i).Value = Editeur Then Cells(i).Delete End If Next i End With End Sub
Je vous remercie par avance pour votre aide et vos conseils
N'hésitez pas à me dire si un fichier serait utile à la compréhension de la problématique.
Danny
Partager