Remplir automatiquement les lignes vides à partir d'autres feuilles

ça marque que l'indice n'appartient pas à la sélection.

Je vais le supprimer et le télécharger de nouveau pour voir si ça fait pareil

dans ton dernier code dès que je me met sur une cellule vide dans une feuille agent ben ça me met un debug

La part contre c'est bizarre parce que je n'ai pas de message d'erreur de mon côté :0

Peut-tu me dire quelle est le message d'erreur qui s'affiche quand tu va sur une cellule vide ?

Après tu peux modifié ton code comme cela pour que (normalement) sa ne bug pas, mais je trouve bizarre que tu est un prob de ton côté x)

Private Sub worksheet_selectionchange(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Or Target.Value = "" Then
Exit Sub
End If
Sheets("Feuil1").Cells(1, 1) = Target.Value
End Sub

[/quote]

J'ai compris d'où venait l'erreur, j'ai supprimé la feuille 1 où il n'y avait rien, ce que je ne comprend pas pourquoi ça le fait beuguer?

J'ai compris d'où venait l'erreur, j'ai supprimé la feuille 1 où il n'y avait rien

La Feuil1 permet de faire tourner la Private Sub Worksheet_Selection_Change

C'est ce qui permet de faire tourner le programme de suppression

Il ne fallait pas la supprimer :p

Maintenant que tu l'a supprimer tu va avoir des bugs "Indice n'appartenant pas à la selection" à gogo x)

Juice a écrit :

J'ai compris d'où venait l'erreur, j'ai supprimé la feuille 1 où il n'y avait rien

La Feuil1 permet de faire tourner la Private Sub Worksheet_Selection_Change

C'est ce qui permet de faire tourner le programme de suppression

Il ne fallait pas la supprimer :p

Maintenant que tu l'a supprimer tu va avoir des bugs "Indice n'appartenant pas à la selection" à gogo x)

Ah d'accord, bon ben je n'ai pas sauvegardé ma suppression mdr. Je refais

impeccable ça supprime bien la cellule dans la feuille principale . Mais ça ne supprime pas les cellules suivant comme le nom de l'agent. Vue que j'ai été chez Poinsot, j'ai rentré une affaire en exemple, puis je me suis trompée donc je supprime, quand je retourne dans le TE 2018 il reste donc la case étudié par Poinsot le nom de l'affaire est bien supprimé mais pas la ligne. Faut que je rajoute un truc dans le programme?

C'est ce que je voulais te demander justement

On peut supprimer la ligne entière dans la Feuil TE 2018 si on supprime le nom de l'affaire dans une Feuil agent

Je te codifie sa ?

Juice a écrit :

C'est ce que je voulais te demander justement

On peut supprimer la ligne entière dans la Feuil TE 2018 si on supprime le nom de l'affaire dans une Feuil agent

Je te codifie sa ?

yes!! se sera parfait . Et j'en arrive au bout de ce tableau

Voilà

If Target.Value = "" Then 'Si l'utilisateur appuis sur la touche Del ou Supprime
  If IsNumeric(Sheets("Feuil1").Cells(1, 1)) Then
    W = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:ZZ6500"), W) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
        End If
    Else
    y = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:PZ6500"), y) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
            End If
    End If
End If 'Fin de mon SI

Tu le met à la place de celle que tu a déjà

Le truc pénible c'est que sa laisse une ligne vide dans ton TE 2018 :<

La suppression de cette ligne nécessite de se déplacer dessus (à ma connaissance) !

Juice a écrit :

Voilà

If Target.Value = "" Then 'Si l'utilisateur appuis sur la touche Del ou Supprime
  If IsNumeric(Sheets("Feuil1").Cells(1, 1)) Then
    W = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:ZZ6500"), W) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
        End If
    Else
    y = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:PZ6500"), y) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
            End If
    End If
End If 'Fin de mon SI

Tu le met à la place de celle que tu a déjà

Le truc pénible c'est que sa laisse une ligne vide dans ton TE 2018 :<

La suppression de cette ligne nécessite de se déplacer dessus (à ma connaissance) !

ça ne change rien de mon côté il supprime toujours que la première cellule d'affaire mais pas la ligne

Tu est sur de bien d'avoir remplacer (et pas rajouter) le code qu'il fallait par celui que je viens de mettre :0

j'ai bien mis à la place de l'ancien et ça reste le même souci.

le nom de l'affaire est bien supprimé mais pas le nom de l'agent

Lyra,

En effet, si le nom de l'agent reste en place après avoir supprimer le nom de l'affaire c'est parce que le programme tourne encore après avoir appuyé sur Del et cela rajoute donc le nom de l'agent.

Donc pour éviter ce problème (que le programme continue de tourner), nous allons placer des Exit Sub :

If Target.Value = "" Then 'Si l'utilisateur appuis sur la touche Del ou Supprime
  If IsNumeric(Sheets("Feuil1").Cells(1, 1)) Then
    W = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:ZZ6500"), W) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
            Exit Sub 'UN EXIT SUB ICI
        End If
    Else
    y = Sheets("Feuil1").Cells(1, 1)
        If Application.CountIf(Worksheets(1).Range("A1:ZZ6500"), y) = 1 Then
            Set tr = Sheets(1).Cells.Find(Sheets("Feuil1").Cells(1, 1))
            Sheets(1).Rows(tr.Row) = ""
            Exit Sub 'UN EXIT SUB ICI
            End If
    End If
End If 'Fin de mon SI

Normalement sa corrige le problème

Reviens vers moi en cas de soucis ;D

Hello Juice,

Merci infiniment , ça fonctionne parfaitement et pas de bug

Je te remercie encore beaucoup. Je vais pouvoir mettre à ma sauce

Bonne journée

Re,

J'ai copié le dernier code avec tous les agents, mon problème quand je mets des heures dans la case prévus ça me met un bug.

c'est quoi mon souci.?

Est-ce que nous allons nous en sortir xD ??

Peux tu me dire le message d'erreur que tu a s'il te plaît ?

J'étais bien partie .

voici le message d'erreur

Arf,

Le problème de cette erreur, c'est quelle peut englober pas mal de chose.

Et vue que de mon côté sa fonctionne, j'ai pas vraiment de piste.

On va essayer de solutionner sa en regardant autant de chose que possible :

1 - Dans la Feuil TE 2018 en ligne masquée 1. Vérifie que les dates soient correctement indiquées

2 - Dans le code ci-dessous

If Target.Column >= 9 Then
    Cell = Target.Value
    affaire = Range("A" & Target.Row).Value
    prenom = ActiveSheet.Name
    mois = Cells(1, Target.Column).Value
    Set trmois = Sheets(1).Cells.Find(what:=mois)
    k = trmois.Column
    While Sheets(1).Cells(3, k).Value <> prenom
        k = k + 1
    Wend
    Set traffaire = Sheets(1).Cells.Find(what:=affaire)
    x = traffaire.Row
    Sheets(1).Cells(x, k) = Cell
End If

Remplace le :

prenom = ActiveSheet.Name

Par

prenom = "Poinsot"

Et test en Feuil Poinsot d'indiquer une heure

Essayons sa et nous verrons si sa solutionne le problème

Les dates sont bien correctement écrit. et ça fiat toujours le même erreur.

Et avec le [...]

prenom = "Poinsot"

[...] (met le P majuscule) sa ne fonctionne pas :0 ?

Toujours le même erreur