Je cale devant un problème simple.
J'ai un fichier qui a 4 onglets : 1) recap, 2) role auteur avec la liste
des personnes qui ont ce role, 3)role reviewer avec la liste des
personnes qui ont ce role,4) role reviewer avec la liste des personnes
qui ont ce role.
Sur la feuille 1) recap, je voudrais avoir la liste de toutes les
personnes (une ligne par personne, là est mon problème) avec chaque role
détenu sur lamême ligne.
| Je ne comprends pas à quoi sert la ligne en fin de code | .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Cela transforme les formules de la plage en valeur en dur dans la plage de cellules. Si tu préfères conserver les formules, c'est ton choix.
| dois-je aussi changer la ligne | .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value | en | .Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
Maintenant que tu sais pourquoi la ligne existe, selon que tu veux conserver les formules ou non, tu devras adapter la ligne ou la supprimer.
MichD ------------------------------------------ "Eric C" a écrit dans le message de groupe de discussion : 4ea8712a$0$5038$
Merci MichD,
Je ne comprends pas à quoi sert la ligne en fin de code .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Si j'ajoute une feuille, j'édite le code pour .Range("E2").Formula = .... (çà, ca marche) dois-je aussi changer la ligne .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value en .Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
(Je ne l'ai pas fait et je ne vois pas ce que ca change, j'aime bien comprendre...)
Eric
Le 26/10/2011 20:01, MichD a écrit :
Le fichier correctif : http://cjoint.com/?AJAubd7e6sz
MichD ------------------------------------------
Me voilà plus malin... ;-)
Merci, à la prochaine
Le 27/10/2011 01:15, MichD a écrit :
| Je ne comprends pas à quoi sert la ligne en fin de code
| .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Cela transforme les formules de la plage en valeur en dur dans la plage de cellules.
Si tu préfères conserver les formules, c'est ton choix.
| dois-je aussi changer la ligne
| .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
| en
| .Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
Maintenant que tu sais pourquoi la ligne existe, selon que tu veux conserver les
formules ou non, tu devras adapter la ligne ou la supprimer.
MichD
------------------------------------------
"Eric C" a écrit dans le message de groupe de discussion : 4ea8712a$0$5038$ba620e4c@news.skynet.be...
Merci MichD,
Je ne comprends pas à quoi sert la ligne en fin de code
.Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Si j'ajoute une feuille, j'édite le code pour
.Range("E2").Formula = .... (çà, ca marche)
dois-je aussi changer la ligne
.Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
en
.Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
(Je ne l'ai pas fait et je ne vois pas ce que ca change, j'aime bien
comprendre...)
Eric
Le 26/10/2011 20:01, MichD a écrit :
Le fichier correctif : http://cjoint.com/?AJAubd7e6sz
| Je ne comprends pas à quoi sert la ligne en fin de code | .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Cela transforme les formules de la plage en valeur en dur dans la plage de cellules. Si tu préfères conserver les formules, c'est ton choix.
| dois-je aussi changer la ligne | .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value | en | .Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
Maintenant que tu sais pourquoi la ligne existe, selon que tu veux conserver les formules ou non, tu devras adapter la ligne ou la supprimer.
MichD ------------------------------------------ "Eric C" a écrit dans le message de groupe de discussion : 4ea8712a$0$5038$
Merci MichD,
Je ne comprends pas à quoi sert la ligne en fin de code .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value
Si j'ajoute une feuille, j'édite le code pour .Range("E2").Formula = .... (çà, ca marche) dois-je aussi changer la ligne .Range("B2:D"& DerLig).Value = .Range("B2:D"& DerLig).Value en .Range("B2:E"& DerLig).Value = .Range("B2:E"& DerLig).Value
(Je ne l'ai pas fait et je ne vois pas ce que ca change, j'aime bien comprendre...)
Eric
Le 26/10/2011 20:01, MichD a écrit :
Le fichier correctif : http://cjoint.com/?AJAubd7e6sz
