Discussion :

[OliFossa]

Bonjour à tous,

J'aimerais réaliser une commande automatique mais je n'ai pas la moindre idée du code qui pourrait lui donner vie.

Voici mon "problème" :

J'ai 2 feuilles Excel avec sur la première, des candidats en cours de promotion, et sur la deuxième, j'aimerais que soient transférés les candidats promus.

Le critère de promotion est la date d'échéance de la période de stage.
Si celle-ci est de deux ans et que le candidat a commencé son stage en 2010, il sera promu en 2012. Ainsi, au 1er janvier 2012, toute la ligne le concernant (Nom, matricule, date arrivée, date d'échéance, etc...) devrait être transférée dans la deuxième feuille. Cependant, j'aimerais que ces données restent dans la première feuille, mais par exemple en italique ou en barré.

La condition de transfert est donc le terme de sa période de stage (qui est l'une des colonnes de la feuille 1).


J'espère avoir été assez clair, n'hésitez pas à me demander des précisions.

Merci à ceux qui se pencheront sur mon problème


OliFossa

[jfontaine]

Bonjour,

Ci dessous un exemple (Date en colonne B)

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
Dim i As Long
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Set shSource = Sheets("sheet2")
Set shCible = Sheets("sheet3")
 
'Boucle sur chaque ligne de la feuille source
For i = 2 To shSource.Range("A" & Rows.Count).End(xlUp).Row
    'Vérifie si la date de début stage + 2 ans inférieur à aujourdhui et pas déja traité (pas en gras)
    If DateAdd("yyyy", 2, CDate(shSource.Range("B" & i).Value)) < Date And shSource.Range("B" & i).Characters.Font.Bold = False Then
        shSource.Rows(i).Copy shCible.Range("A" & shCible.Range("A" & Rows.Count).End(xlUp).Row + 1)
        shSource.Rows(i).Characters.Font.Italic = True
        shSource.Rows(i).Characters.Font.Bold = True
    End If
Next i

[OliFossa]

Merci pour votre réponse.

J'ai bien mis le code dans mon module, en adaptant la colonne concernée, mais le deboggeur me surligne en jaune la ligne suivante :

Code :

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

For i = 2 to shSource.Range ("I") & Rows.Count).End (x1up).Row

(ma colonne date est en J)

Est-ce du au fait que j'aie une autre macro avant ? Ma première macro est en fait un formulaire qui demande les noms prénoms, etc... de chaque candidat.



Merci pour votre aide.

[jfontaine]

Tu as fermé la parenthèse au mauvais endroit

Code :

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

For i = 2 to shSource.Range ("I") & Rows.Count).End (x1up).Row

[OliFossa]

Voilà, je viens de réessyer, mais le soucis persiste

Le message d'erreur est le suivant : "Erreur d'exécution 1004 - Erreur définie pas l'application ou par l'objet "


Dois-je peut-être écrire ce code dans un autre module ?

Merci

[jfontaine]

Peux tu mettre le code que tu as mis (procédure complète)

[OliFossa]

La procédure est assez longue, ne serait-il pas plus facile de poster le document ici ?

[jfontaine]

Si sa taille le permet, oui

[OliFossa]

Voici donc ma base de donnée en pièce jointe.

Merci

[jfontaine]

dans ma proposition de code, la colonne J doit être au format date JJ/MM/AAAA.
il te faut adapter pour que le test se fasse uniquement sur l'année

[OliFossa]

Je comprends ce que vous me conseillez, mais je n'ai malheureusement pas les notions en suffisance pour savoir quoi changer dans le code et comment l'écrire.

Dans le ligne " If..." doijt remplacer ce qui est entre parenthèse par les emplacements des cellules date ? ?

[jfontaine]

Ci dessous le code adapté à l'année colonne J

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
Dim i As Long
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Set shSource = Sheets("TG")
Set shCible = Sheets("HP")
 
'Boucle sur chaque ligne de la feuille source
For i = 3 To shSource.Range("J" & Rows.Count).End(xlUp).Row
    'Vérifie si la date de début stage + 2 ans inférieur à aujourdhui et pas déja traité (pas en gras)
    If shSource.Range("J" & i).Value + 2 < Year(Date) And shSource.Range("B" & i).Characters.Font.Bold = False Then
        shSource.Rows(i).Copy shCible.Range("A" & shCible.Range("A" & Rows.Count).End(xlUp).Row + 1)
        shSource.Rows(i).Characters.Font.Italic = True
        shSource.Rows(i).Characters.Font.Bold = True
    End If
Next i

[OliFossa]

Merci pour cette adaptation.

Tout semble pouvoir marcher mais quand je lance la macro, toujours ce message d'erreur " Erreur d'execution 1004 - Erreur définie par l'application ou par l'objet ".

Elle me surligne en jaune la ligne "For i = 3... .Row"

Décidément, cette macro génère bien des problèmes...

[jfontaine]

Ci joint ton fichier avec le code
DB Macros.xls

[OliFossa]

La commande a en effet l'air de marcher.

Cependant, je ne sais pour quelle raison, elle ne fonctionne pas chez moi.

Par ailleurs, je pense m'être mal exprimé dans la mesure où l'année de promotion ne peut être inférieure à 2012, comme indiqué dans les possibilités du formulaire.Je m'excuse si je n'ai pas été assez clair.

Les personnes entrent en fait soit en 2010, soit en 2011. Après quoi elles peuvent être promues suivant une période de 2, 3 ou 4 ans. Et c'est cette somme (s'il entre en 2010 et promu en 2 ans : 2012), qui déterminera son transfert l'année concernée dans l'autre feuille. Par exemple, les candidats de 2010 "promotables" en 2 ans changeront de feuille en 2012, ceux en 3 ans en 2013, etc...

Je vous remercie pour le temps que vous passez à adapter mes demandes.

Olivier

[jfontaine]

Essais d'analyser le code pour pouvoir être autonome dessus.
Il me semble que se serait plus enrichissant pour toi d'essayer de faire cette modification en posant des questions sur la façon d'y parvenir plutôt que d'attendre le résultat tout cuit.

Une piste, la ligne qui traite l'ajout du nombre d'année est ici et ajoute 2 ans à la période colonne J

Code :

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

If shSource.Range("J" & i).Value + 2 < Year(Date) And shSource.Range("B" & i).Characters.Font.Bold = False Then

En regardant bien tu devrais trouver pour remplacer le 2 par la valeur de la colonne I (je crois que c'est cette colonne)

Si besoin pose une question

[OliFossa]

J'admets qu'il me sera plus enrichissant de regarder tout cela de plus près

Je vous tiendrai au courant si j'ai une question.

Merci pour votre disponibilité

[OliFossa]

J'ai finalement trouvé une solution alternative, avec un code un peu différent.

Le principal c'est que maintenant la commande fonctionne ! :-)

Merci encore pour votre aide !