Besoin d'aide, boucle, et cellule n+1

Re : Besoin d'aide, boucle, et cellule n+1

bonjour,
bonjour Requin,


En essayant d'interpréter ce que ta macro me dit,

Cherche l'employe dans la plage AC21:ACXX (remplacer XX par le numéro de dernière ligne de recherche.


Maintenant ce que ne dis pas ta macro c'est comment trouver employé.

A+

Re : Besoin d'aide, boucle, et cellule n+1

carcharodon-carcharias à dit:

bonjour

est ce bien utile de garder tout les

Code:

Range("B2").Select

????

Cliquez pour agrandir...

Cette ligne, me permet juste de centrer l'ecran sur le groupe de personne concernée.

En fait, j'ai 150 lignes employés, qui sont répartis dans un tableau général, qui me permet d'afficher une ligne de congés :

nom / Prénom / Date de debut de congé/ Date de fin de congé / jour de congé 1 / jour de congé 2, jouyr de congé 3 etc.
Cette ligne me permet d'incrementer un second tableau, afin de faire des lignes "colorés", pour avoir un visuel plus "pratique";

Mes employés sont différencier par type de client, ce qui donne 5 tableaux différents en fonction des types de clients, et des employés, me permettant de calculer mes besoins humain pour les périodes de congés scolaires.

J'espère être clair ....

Re : Besoin d'aide, boucle, et cellule n+1

Hasco à dit:

bonjour,
bonjour Requin,


En essayant d'interpréter ce que ta macro me dit,

Cherche l'employe dans la plage AC21:ACXX (remplacer XX par le numéro de dernière ligne de recherche.

Code:

    [COLOR=blue]Dim[/COLOR] c [COLOR=blue]As[/COLOR] Range
    [COLOR=green]'Chercher employé dans la plage AC21:CAXX[/COLOR]
    [COLOR=blue]Set[/COLOR] c = Range([I]"AC21:ACXX"[/I]).Find(what:=employe, LookIn:=xlValues, lookat:=xlWhole, searchOrder:=xlByRows, MatchCase:=[COLOR=blue]False[/COLOR])
    [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] c [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR]
        [COLOR=green]'Supposer que l'[COLOR=blue]on[/COLOR] va renseingner les [COLOR=blue]date[/COLOR] départ et fin[/COLOR]
        rep = vbYes
        [COLOR=green]'Si l'une ou l'autre est manquante demander le remplacement[/COLOR]
        [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] Range([I]"AD"[/I] & c.Row) = [I]""[/I] [COLOR=blue]Or[/COLOR] [COLOR=blue]Not[/COLOR] Range([I]"AE"[/I] & c.Row) = [I]""[/I] [COLOR=blue]Then[/COLOR]
            rep = MsgBox([I]"Congés déjà présent, voulez vous remplacer ? "[/I], vbYesNo, [I]"Modification ?"[/I])
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
        [COLOR=green]'si rep est toujour [I]"Oui"[/I][/COLOR]
        [COLOR=blue]If[/COLOR] rep [COLOR=blue]Then[/COLOR]
            Range([I]"AD"[/I] & c.Row) = Jour_depart * 1
            Range([I]"AE"[/I] & c.Row) = jour_fin * 1
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
    [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]

Maintenant ce que ne dis pas ta macro c'est comment trouver employé.
A+

Cliquez pour agrandir...

Je ne comprend pas vraiement ce que vous voulez dire ?

Employe dans mon code, est une combobox, avec comme rowsource ma liste d'employé

Re : Besoin d'aide, boucle, et cellule n+1

Re,

D'accord, donc l'utilisateur cliques sur un élément de la liste. et il faut chercher cet element dans la plage de cellule 'Range("AC21:ACXX"), et si l'élément est trouvé, modifier éventuellement les Dates?

Si oui, teste ce que je t'ai donné.

Sinon, il faut être plus explicite.

Sans doute qu'un fichier exemple serait bienvenu, nous ne sommes pas devin.

A+

Re : Besoin d'aide, boucle, et cellule n+1

Hasco à dit:

Re,

D'accord, donc l'utilisateur cliques sur un élément de la liste. et il faut chercher cet element dans la plage de cellule 'Range("AC21:ACXX"), et si l'élément est trouvé, modifier éventuellement les Dates?

Si oui, teste ce que je t'ai donné.

Sinon, il faut être plus explicite.

Sans doute qu'un fichier exemple serait bienvenu.

A+

Cliquez pour agrandir...

J'essaierai d'envoyer mon fichier de mon domicile, car ici je suis bloqué pour uploader.
Mon code prend naissance au "clique" sur le bouton OK d'un suserform.

Le userform est composé de 3 listes combobox :

employe
jour_depart
jour_fin


J'ai essayé votre code, mais il plante, et reviens en mode debogage sur la ligne :
Set c = Range("AC21:ACXX").Find(what:=employe, LookIn:=xlValues, lookat:=xlWhole, searchOrder:=xlByRows, MatchCase:=False)

Tableau de donnée :
colonne AC : Nom des employé (Rowsource de la combox employe)
colonne AD : Jour de départ des congés
Colonne AE : Jour de fin des congés
connes AF à AU : Ligne de congés avec programmation Excel, me permettant d'afficher chaque jour de congés.

voici ce que j'avais imaginé en algo :

Si jour_fin<jour_depart alors
_____Message d'erreur
Sinon si jour_depart ou jour_fin non saisie alors,
_____message d'erreur
Sinon
_____Si congés déjà existant alors;
__________Proposer le remplacement
_______________Si remplacement accepter alors
____________________Remplacer
_______________Sinon
____________________Revenir au menu
_______________Fin si
_____Sinon
__________Ecrire congés dans Cellules ACXX et ADXX correspondant à l'employe
_____Fin si
Fin si

Re : Besoin d'aide, boucle, et cellule n+1

Re,

En lisant bien les réponses tu aurait vu que j'avais dis de changer XX dans ACXX par le dernier numéro de ligne dans laquelle la recherche doit se faire!!!!

J'ai essayé votre code, mais il plante, et reviens en mode debogage sur la ligne :
Set c = Range("AC21:ACXX").Find(what:=employe, LookIn:=xlValues, lookat:=xlWhole, searchOrder:=xlByRows, MatchCase:=False)

Cliquez pour agrandir...

A+

Re : Besoin d'aide, boucle, et cellule n+1

Hasco à dit:

Re,

En lisant bien les réponses tu aurait vu que j'avais dis de changer XX dans ACXX par le dernier numéro de ligne dans laquelle la recherche doit se faire!!!!



A+

Cliquez pour agrandir...

Autant pour moi, j'essai de ce pas.
J'avais oublié que j'avais mon portable dans ma voiture, voici mon fichier.

je viens de tester, ca fonctionne impeccable, j'ai du par contre, changer légerement le code :

Private Sub OK_Click()

Dim c As Range
'Chercher employé dans la plage AC21:CAXX
Set c = Range("AC21:AC101").Find(what:=employe, LookIn:=xlValues, lookat:=xlWhole, searchOrder:=xlByRows, MatchCase:=False)
If Not c Is Nothing Then
'Supposer que l'on va renseingner les date départ et fin
rep = vbYes
'Si l'une ou l'autre est manquante demander le remplacement
If Not Range("AD" & c.Row) = "" Or Not Range("AE" & c.Row) = "" Then
rep = MsgBox("Congés déjà présent, voulez vous remplacer ? ", vbYesNo, "Modification ?")
If rep = vbYes Then
Range("AD" & c.Row) = Jour_depart * 1
Range("AE" & c.Row) = jour_fin * 1
vacances.Hide
Else
vacances.Hide
Menu.Show
End If

End If
'si rep est toujour "Oui"
If rep Then

End If
End If
End Sub

Merci encore de vos réponses.