Bonjour à tous,
Je créé actuellement un planning d'écéhances. Je vous mets la feuille en pièce jointe. J'ai codé la première partie pour ajouter des tâches (bouton 1), tout fonctionne correctement. Je vous mets seulement le début de code pour gérer le second bouton
Je souhaiterais que sur une tâche déjà existante, la personne puisse faire deux choses :
- qu'il puisse se rajouter à une tâche déjà existante s'il n'y ait
- allez modifier le statut de l'échéance : la case est rouge, je voudrais qu'elle devienne rouge si elle est fait
Voici mon raisonnement, l'utilisateur sélectionne la tâche où il souhaite agir puis il clique sur le bouton modifier et là j'ai insérer un code pour sélectionner la cellule. On descend d'une cellule a chaque fois et si le test est vrai alors la selection s'arrete pour ajouter le nom
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
ActiveCell.Select
ActiveCell.Offset(1, 0).Select
For i = 4 To 16 ' OK sélection les cellules en descendant une par une maisn test à intégrer
For j = 4 To 30
Next
Next i
End Sub
Cette partie fonctionne mais je n'arrive pas à insérer un test entre le for et le next pour dire que si :
-la valeur de la listBox = le nom de la ressource en $C alors on coche 1 ds la case select et cela ajoute la ressource
essayons résoudre ce premier problème et je verrais ensuite intégrer le choix de l'optionbox
Toutes les boucles que j'ai testée ont fait bugger excel
Merci d'avance pr votre aide
Je créé actuellement un planning d'écéhances. Je vous mets la feuille en pièce jointe. J'ai codé la première partie pour ajouter des tâches (bouton 1), tout fonctionne correctement. Je vous mets seulement le début de code pour gérer le second bouton
Je souhaiterais que sur une tâche déjà existante, la personne puisse faire deux choses :
- qu'il puisse se rajouter à une tâche déjà existante s'il n'y ait
- allez modifier le statut de l'échéance : la case est rouge, je voudrais qu'elle devienne rouge si elle est fait
Voici mon raisonnement, l'utilisateur sélectionne la tâche où il souhaite agir puis il clique sur le bouton modifier et là j'ai insérer un code pour sélectionner la cellule. On descend d'une cellule a chaque fois et si le test est vrai alors la selection s'arrete pour ajouter le nom
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
ActiveCell.Select
ActiveCell.Offset(1, 0).Select
For i = 4 To 16 ' OK sélection les cellules en descendant une par une maisn test à intégrer
For j = 4 To 30
Next
Next i
End Sub
Cette partie fonctionne mais je n'arrive pas à insérer un test entre le for et le next pour dire que si :
-la valeur de la listBox = le nom de la ressource en $C alors on coche 1 ds la case select et cela ajoute la ressource
essayons résoudre ce premier problème et je verrais ensuite intégrer le choix de l'optionbox
Toutes les boucles que j'ai testée ont fait bugger excel
Merci d'avance pr votre aide