Bonsoir,
Au vu de mes derniers messages il est facile de comprendre que je "suis" toujours mes applications !
Sinon :
> As tu une solution si j'ai besoin d'ajouter une tache à laquelle je n'avais pas pensé dans un projet ? Pour l'instant si j'insère un ligne ça fait bogger le fichier et si je copie une ligne existante pour l'insérer j'ai l'impression que le résultat est le même.
En fait, il y a des formules à droite du tableau dans les colonnes masquées. Donc pour ajouter une ligne, il suffit de sélectionner une ligne "entière" vierge, de copier, puis "d'insérer". Evidemment il vaut mieux qu'elle soit vierge, la suppression est aussi simple, il faut sélectionner la ligne entière, puis suppression...
Attention, quand je dis "ligne entière" c'est bien une ligne entière sous Excel et non pas la sélection de toutes les cellules visible du tableau, il faut donc cliquer sur l'entête Excel de la ligne, là où il y a d'inscrit son numéro.
> Quand je double clic dans la colonne E pour ajouter une date de début la fenêtre qui s'ouvre avec le calendrier a tendance à descendre petit à petit à chaque nouvelle apparition jusqu'à disparaître de mon écran. Je suis alors obligé de fermer le fichier pour le rouvrir et que ça fonctionne de nouveau. As tu une solution pour fixer cette fenêtre?
Il me semble m'en être aperçu a un moment car ce défaut ne m'est pas étranger... C'est du à la procédure d'affichage du USF, le plus simple pour vous est de mettre une apostrophe en début de ligne du code qui dit :Call UserFormAlign
Private Sub UserForm_Initialize()
Dim I As Integer
Dim m As String
'remplit la liste des mois
For I = 1 To 12
m = Format("01/" & I, "mmmm")
Mois.AddItem UCase(Left(m, 1)) & Right(m, Len(m) - 1)
Next I
'remplit la liste des années
For I = 1900 To 2100
Annee.AddItem I
Next I
With ActiveCell
If .Column = 5 Then
If .Offset(0, 1).Value <> "" Then NB_Jour = .Offset(0, 1).Value
Else
If .Offset(0, -1).Value <> "" Then NB_Jour = .Offset(0, -1).Value
End If
End With
If NB_Jour.Value = "" Then NB_Jour = 1
CheckBox1 = True
'Call UserFormAlign
End Sub
> Dans ta notice d'utilisation tu parles d'un bouton effacer "qui efface la ligne considérée sur la feuille "Planning"." Je n'arrive pas à voir ou trouver ce bouton.
La notice n'est pas de moi mais je remercie encore une fois son auteur !
( horizon musical)
Et je lui aie posé la même question, je crois...
Est-ce mauvais d'effacer une tache simplement en sélectionnant et supprimant toute la ligne
Non comme dit plus haut c'est ce qu'il faut faire, mais toujours en sélectionnant la ligne entière.
Par contre pour ce qui est des dates "accrochées" cela va certainement provoquer des erreurs car la date de référence, si elle disparaît...
Dans ce cas, le mieux est de "passer" la tâche à 100% et cela devient presque transparent...
Voilà, pour cette réponse "un peu tardive", mais je fais ce que je peux avec le peu de temps que je peux consacrer à ce suivi !
@ bientôt
LouReeD