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)