[E-03] Transfert de données et de lignes

**avyrex** · 24/12/2008, 20h55

Bonjour,

Voici mon problème.

Dans ma première feuille de mon fichier excel, la feuille "Horaire Viande" dans la colone A à partir de la 6ième ligne, ce trouve le nom des personne.

À toute les 3 lignes, apparait un autre nom.

Dans la colonne E de la même ligne = heure de travail du Dimanche. Colonne G = heure de travail du Lundi, Colonne I = heure de travail du Mardi et ainsi de suite.

Dans ma 2ième feuille "Remplacement", se trouve dans la colonne A à partir de la ligne 3, le nom de tous les même personnes, dans le même ordre, et dans les colonne C à I, ce trouve le nom de personne que la personne dans la colonne A de la même ligne voudrait remplacer en ordre de priorité.

Maintenant, c'est là que sa ce complique.Dans la feuille "Horaire Viande", si une personne dans la colonne A, est inscrit "Vacance" dans la colonne S de la même ligne, il va voir dans la feuille "Remplacement" à partir du nom qui suis celui qui est en vacance, il regarde s'il a se choix dans ses préférence, et si oui, il copie les heure que la personne est en vacance et le colle sur la ligne de celui qui à le choix pour le remplacer.

Est-ce possible de faire ça ?

Si oui, comment?

Merci pour votre aide.

**DidierLoche** · 27/12/2008, 13h17

Bonjour,

Un truc que je voudrais clarifier.
Si Michel est en vacances, Gilles le remplace. Faut-il copier les horaires de Michel vers la ligne de Gilles (copie des horaires de la ligne 12 à la ligne 15) ou le contraire : copier les horaires de Gilles (ligne 15) à la ligne de Michel (ligne 12) ?
Dans ton fichier Excel, Yves et Michel sont en vacances.
Pour les deux, c'est Gilles qui les remplace. Que faut-il faire dans ce cas ?

Didier

**avyrex** · 27/12/2008, 17h34

Bonjour et merci pour ton aide,

copier les horaires de Michel vers la ligne de Gilles

s'il n'y a pas de remplaçant disponible dans la liste ou qu'il remplace déjà quelqu'un, seulement inscrire vacance dans l'horaire du vacancier.

Merci encore

**DidierLoche** · 28/12/2008, 16h58

Bonjour,

Voilà, j'ai travaillé sur ton problème.
Pour faciliter le code, j'ai changé l'ordre des noms pour être identique à la liste de la feuille Remplacement.
Voici donc le code activé par le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub remplacement()
Dim li As Integer, li_rep As Integer, li_rep_trouvé As Integer
Dim col_rep As Integer
Dim Nom As String, Nom_rep As String, Situation_remplaçant As String
 
For li = 9 To 15 Step 3
    Nom = Cells(li, 1)
    If Cells(li, 19) = "VACANCE" Then
        li_rep = li / 3 + 1 'ligne correspondante dans "Remplacement"
        col_rep = 2
        Do
        '
        ' Boucle qui cherche le 1er disponible pour remplacer "Nom"
        '
            col_rep = col_rep + 1
            Nom_rep = Worksheets("Remplacement").Cells(li_rep, col_rep)
            If Nom_rep <> "" Then
                Situation_remplaçant = Application.WorksheetFunction.VLookup(Nom_rep, Range("A6:S15"), 19)
            End If
        Loop Until Situation_remplaçant = "" Or Nom_rep = ""
        If Nom_rep <> "" And Situation_remplaçant = "" Then
        '
        ' Remplaçant trouvé
        '
            li_rep_trouvé = Application.WorksheetFunction.Match(Nom_rep, Range("A:A"), 0)
            Range(Cells(li, 5), Cells(li + 2, 17)).Copy Destination:= _
                Range(Cells(li_rep_trouvé, 5), Cells(li_rep_trouvé + 2, 17))
            Cells(li_rep_trouvé, 19) = "Remplacement de " & Nom
        End If
    End If
Next li
End Sub

Quand quelqu'un remplace, le code écrit "Remplacement de ...". Cela permet de déclarer cette personne non disponible pour un autre remplacement.

Est-ce que cela répond à ton besoin ?

Didier

**avyrex** · 28/12/2008, 17h16

Bonjour DidierLoche

Il me donne une erreur sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Situation_remplaçant = Application.WorksheetFunction.VLookup(Nom_rep, Range("A6:S15"), 19)

me disant : impossible de lire la propriété VLookup de la classe WorkSheetFunction.

Que veut dire cette erreur?

**DidierLoche** · 28/12/2008, 17h46

Tu dois être sur la feuille "Horaire Viandes" pour que cela fonctionne. Est-ce bien le cas ?
Pour que cela marhe dans tous les cas, j'ai légèrement modifié le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub remplacement()
Dim li As Integer, li_rep As Integer, li_rep_trouvé As Integer
Dim col_rep As Integer
Dim Nom As String, Nom_rep As String, Situation_remplaçant As String
 
With Worksheets("Horaire Viandes")
    For li = 9 To 15 Step 3
        Nom = .Cells(li, 1)
        If .Cells(li, 19) = "VACANCE" Then
            li_rep = li / 3 + 1 'ligne correspondante dans "Remplacement"
            col_rep = 2
            Do
            '
            ' Boucle qui cherche le 1er disponible pour remplacer "Nom"
            '
                col_rep = col_rep + 1
                Nom_rep = Worksheets("Remplacement").Cells(li_rep, col_rep)
                If Nom_rep <> "" Then
                    Situation_remplaçant = Application.WorksheetFunction.VLookup(Nom_rep, .Range("A6:S15"), 19)
                End If
            Loop Until Situation_remplaçant = "" Or Nom_rep = ""
            If Nom_rep <> "" And Situation_remplaçant = "" Then
            '
            ' Remplaçant trouvé
            '
                li_rep_trouvé = Application.WorksheetFunction.Match(Nom_rep, .Range("A:A"), 0)
                .Range(Cells(li, 5), Cells(li + 2, 17)).Copy Destination:= _
                    .Range(Cells(li_rep_trouvé, 5), Cells(li_rep_trouvé + 2, 17))
                .Cells(li_rep_trouvé, 19) = "Remplacement de " & Nom
            End If
        End If
    Next li
    End With
End Sub

Didier

**avyrex** · 28/12/2008, 18h11

Bizzard, toujours la même erreur.

Je t'envoies le fichier avec les modifications que tu m'as donné.

Regarde l'erreur que ça fait.

Ce peut-il que l'erreur vient du fait que je suis avec excel 2003?

**DidierLoche** · 28/12/2008, 18h20

Je n'arrive pas à récupérer ton zip, cela me fait une erreur (pièce non valide).
Tu n'aurais pas renommé les onglets ?
Je suis aussi sur Excel-2003.

Didier

**avyrex** · 28/12/2008, 19h02

et voilà.

**DidierLoche** · 28/12/2008, 19h37

Voili-voilà,

2 choses :
- J'avais changé l'ordre des noms dans la feuille "Horaire Viandes" et toi, tu l'as changé dans "Remplacement".
- J'ai oublié un "False" dns l'instruction VLoopUp

Ci-joint le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CommandButton1_Click()
Dim li As Integer, li_rep As Integer, li_rep_trouvé As Integer
Dim col_rep As Integer
Dim Nom As String, Nom_rep As String, Situation_remplaçant As String
 
With Worksheets("Horaire Viandes")
    For li = 6 To 12 Step 3
        Nom = .Cells(li, 1)
        If .Cells(li, 19) = "VACANCE" Then
            li_rep = li / 3 + 1 'ligne correspondante dans "Remplacement"
            col_rep = 2
            Do
            '
            ' Boucle qui cherche le 1er disponible pour remplacer "Nom"
            '
                col_rep = col_rep + 1
                Nom_rep = Worksheets("Remplacement").Cells(li_rep, col_rep)
                If Nom_rep <> "" Then
                    Situation_remplaçant = Application.WorksheetFunction.VLookup(Nom_rep, .Range("A6:S16"), 19, False)
                End If
            Loop Until Situation_remplaçant = "" Or Nom_rep = ""
            If Nom_rep <> "" And Situation_remplaçant = "" Then
            '
            ' Remplaçant trouvé
            '
                li_rep_trouvé = Application.WorksheetFunction.Match(Nom_rep, .Range("A:A"), 0)
                .Range(Cells(li, 5), Cells(li + 2, 17)).Copy Destination:= _
                    .Range(Cells(li_rep_trouvé, 5), Cells(li_rep_trouvé + 2, 17))
                .Cells(li_rep_trouvé, 19) = "Remplacement de " & Nom
            End If
        End If
    Next li
    End With
 
 
End Sub

Didier

**avyrex** · 28/12/2008, 20h28

Merci, super.

Bonne année 2009

**avyrex** · 28/12/2008, 22h14

Bonjour, encore moi,

Je viens de me rendre compte que dans la feuille Horaire Viandes, il ne sont pas toujours dans le même ordre que la feuille Remplacement. Comment faire pour y aller en ordre d'ancienneté selon la feuille Remplacement colonne B?

merci encore

**DidierLoche** · 29/12/2008, 10h59

Bonjour,

La macro fonctionne uniquement si le même ordre est respecté. On peut la modifier pour qu'elle s'en accommode. Elle suppose aussi que Gilles (irremplaçable d'après tes critères ... personne n'est irremplaçable

)

Pour mettre la liste dans le bon ordre dans "Horaire Viandes", deux solutions :

- La liste n'est pas longue : tu le fais à la main, sélectionne les trois lignes d'une personne, tu cliques sur le bord, tu déplaces la sélection en appuyant sur Shift et tu lâches le bouton de la souris au bon endroit.
- La liste est longue et là, une petite macro pourrait le faire rapidement (voir si tu passes plus de temps à développer une macro qui ne sera éxecutée qu'une seule fois que de faire les modifications à la main)

Didier

[E-03] Transfert de données et de lignes

Macros et VBA Excel

Discussions similaires

Partager

Partager