Résultat entre 2 feuille excel

[matrix]

Bonjour,

J'aurais besoin d'aide pour un scripte.

Dans ma feuille "Horaire Viandes" de mon fichier excel, il y a l'horaire des employés.

Dans la feuille "Vacance", se trouve le nom des employés avec les dates de vacances.

Je voudrais faire en sorte que dans la feuille "Horaire Viandes", en cliquant sur un bouton VB, qu'il inscrit automatiquement les journée de vacance des employés sur la même ligne que leurs nom et cela dans la bonne journée.

Comment faire s.v.p?

Merci pour votre aide.

 

[fanfan38]

Re : Résultat entre 2 feuille excel

Bonjour
J'espère avoir répondu à ta question...

A+ François

 

[matrix]

Re : Résultat entre 2 feuille excel

Super, j'aime bien. Je voulais savoir s'il est possible d'ajouter un script qui aurais pour tache d'effacer dans horaire viande tout les mots "vacances" pour ensuite poursuivre avec :

Private Sub CommandButton1_Click()
  Dim datedeb As Date
  Dim datefin As Date
  Dim encours As Date
  Dim i As Integer
  Dim j As Integer
  Dim h As Integer
  Dim varnom As String
  'analyse des dates de vacance
  For i = 3 To Sheets("Vacance").Range("a65536").End(xlUp).Row
    datedeb = Sheets("Vacance").Cells(i, 2).Value
    datefin = Sheets("Vacance").Cells(i, 3).Value
    varnom = Sheets("Vacance").Cells(i, 1).Value
    If datedeb > 0 Then
 'comparaison avec les dates de la feuille
    For j = 5 To 17 Step 2 'boucle colonne 5(E) à 17(Q)
      encours = Sheets("Horaire Viandes").Cells(4, j).Value
     If datedeb <= encours And datefin >= encours Then
      'recherche du nom
      For h = 6 To Sheets("Horaire Viandes").Range("a65536").End(xlUp).Row Step 3
      mavar = Sheets("Horaire Viandes").Cells(h, 1).Value
        If Sheets("Horaire Viandes").Cells(h, 1).Value = varnom Then
          Sheets("Horaire Viandes").Cells(h, j).Value = "Vacance"
          Exit For
        End If
      Next
     End If
    Next
    End If
  Next
End Sub

 

[matrix]

Re : Résultat entre 2 feuille excel

J'ai ajouté le script ci est ça fonctionne:

'Supprimer Vacance
Columns("E:Q").Select
Selection.Replace What:="Vacance", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A6").Select


Merci pour ton aide

 

[fanfan38]

Re : Résultat entre 2 feuille excel

bonjour,
Il y a plus simple
For j = 6 To Range("a65536").End(xlUp).Row Step 3
Range(Cells(j, 5), Cells(j, 17)).ClearContents
Next

A+ François

 

[matrix]

Re : Résultat entre 2 feuille excel

Re bonjour,

Je voudrais apporter quelque modification suite au même code.

Je voudrais faire en sorte comme dans l'exemple du fichier excel joint, Pierre travail selon l'horaire Mardi 05h/10h, Mercredi 05h/10h et Jeudi 05h/10h à la même destination, c'est à dire "Sherbrooke".

Je voudrais qu'avant qu'il marque les vacance dans les cellules, qu'il me transfert l'heure qu'il avait avant 2 cellules plus bas et ensuite qu'il marque vacance.

Comment faire s.v.p?

Merci pour votre aide