cristobal61
XLDnaute Nouveau
Bonjour,
Totalement novice en VBA, je cherche pour l'instant à réaliser des opérations très simples en VBA, en m'inspirant de l'enregistreur de macro ou l'aide en ligne : ceci dans le simple but de me familiariser avec les notions et structures de code les plus basiques.
Dans le cas présent, l'objectif est le suivant :
Pour chaque cellule d'une plage donnée (d'une même colonne):
- inscription du mot "Présent" dans la cellule voisine (à droite)
- coloration des 2 cellules en jaune (celle de la plage initiale + celle qui contient le mot "Présent")
- Positionnement de la cellule active sur la 1ère ligne sous la plage de cellules sélectionnée à l'origine.
Après quelques bidouillages et tâtonnements de débutant, voici le code qui me permet de réaliser à peu près l'objectif (à la condition cellule active près) : je me doute bien qu'il est très loin d'être fonctionnel et est très perfectible...
J'aimerais voir ce qu'il devient lorsqu'il passe entre les mains d'un chevronné du VBA.
Merci à qui prendra le temps de m'en donner une version un peu moins brouillonne.
Totalement novice en VBA, je cherche pour l'instant à réaliser des opérations très simples en VBA, en m'inspirant de l'enregistreur de macro ou l'aide en ligne : ceci dans le simple but de me familiariser avec les notions et structures de code les plus basiques.
Dans le cas présent, l'objectif est le suivant :
Pour chaque cellule d'une plage donnée (d'une même colonne):
- inscription du mot "Présent" dans la cellule voisine (à droite)
- coloration des 2 cellules en jaune (celle de la plage initiale + celle qui contient le mot "Présent")
- Positionnement de la cellule active sur la 1ère ligne sous la plage de cellules sélectionnée à l'origine.
Après quelques bidouillages et tâtonnements de débutant, voici le code qui me permet de réaliser à peu près l'objectif (à la condition cellule active près) : je me doute bien qu'il est très loin d'être fonctionnel et est très perfectible...
J'aimerais voir ce qu'il devient lorsqu'il passe entre les mains d'un chevronné du VBA.
Merci à qui prendra le temps de m'en donner une version un peu moins brouillonne.
Code:
Sub Jaune_Présent()
Selection.Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Selection.Offset(0, 1).Select
Selection.FormulaR1C1 = "Présent"
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
ActiveCell.Offset(1, -1).Select
End Sub