Salut salut,
Voila j'ai fait ce petit code afin de:
1) Si checkbox1 est décochée cela efface les lignes dont la cellule en colonne A est vide.
2) Si checkbox1 est cochée cela me rajoute une ligne vide à la fin de mon tableau.
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Dim l As Long
For l = Cells(65356, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End If
If CheckBox1.Value = True Then
Range("tableau63").Rows(Range("tableau63").Rows.Count).Insert shift:=xlDown
End If
End Sub
Mais voilà !! Pour le 1 cela m'efface les ligne dont la cellule en colonne A est vide mais partout !! pas que dans mon tableau63 !!
Pour le 2 ca tourne bien !!
Je voudrais transformer ce code pour que :
Si la checkbox1 est décocher cela efface les ligne du tableau63 dont la cellule colonne A est vide.
Si on coche la checkbox1 cela me rajoute une ligne dans mon tableau63 (comme ça le fais "actuellement") et
que cela copie la valeur de : ComboBox1 en A de cette ligne et ComboBox2 en B de cette ligne.
Si on décoche checkbox1 cela supprime la ligne ou ce trouve la valeur de ComboBox1 en A et la valeur de Combobox2 en B
J'espère avoir été claire !!!
Pour la partie surligner je peux ajouter cette partie sur une bouton plutot que sur cette checkbox si ca complique trop le fait d'ajouter ou supprimer une ligne suivant coche ou décoche de cette checkbox !!
merci par avance car j'avance plus a cause de cette checkbox !!
Nadia