REMPLIR CELLULE
cpsfg
Messages postés
6
Date d'inscription
lundi 12 juin 2006
Statut
Membre
Dernière intervention
29 juin 2006
-
28 juin 2006 à 17:54
petigeni Messages postés 34 Date d'inscription jeudi 4 décembre 2003 Statut Membre Dernière intervention 29 septembre 2006 - 29 juin 2006 à 11:57
petigeni Messages postés 34 Date d'inscription jeudi 4 décembre 2003 Statut Membre Dernière intervention 29 septembre 2006 - 29 juin 2006 à 11:57
3 réponses
petigeni
Messages postés
34
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
29 septembre 2006
29 juin 2006 à 08:05
29 juin 2006 à 08:05
Salut!!!
Il m'étais arrivé la meme chose a moi, quand je copié des formules dans mes cellules elles ne s'executaient pas, ce qui dérange pas mal!!!!
A la place d'utiliser " ActiveCell.FormulaR1C1 " utilise plutot "ActiveCell.FormulaLocal "
C'est pas trés "pratique " de parcourirs toutes t'es cellules comme cela, tu devrait plutot faire une selection et la parcourirs par la suite, voila ce que je te propose :
'variable pour stocker la plage de cellule pleine
dim plageCellulePleine as Range
'affectation des cellules pleine a la plage
set plageCellulePleine = range(celluleDepart:celluleArrivé).specialcells(xlCellTypeFormulas)
'ex range(A1:B3) : tu récupéreras toutes les cellules avec des formules
'maintenant on parcours notre selection
dim temp as range
'parcours des plage
for each temp in plageCellulePlein
temp.formulaLocal="=IF(RC[-21]<>"""",MONTH(RC[-21],"""")"
next
j'espere avoir répondu a ton probleme.
Il m'étais arrivé la meme chose a moi, quand je copié des formules dans mes cellules elles ne s'executaient pas, ce qui dérange pas mal!!!!
A la place d'utiliser " ActiveCell.FormulaR1C1 " utilise plutot "ActiveCell.FormulaLocal "
C'est pas trés "pratique " de parcourirs toutes t'es cellules comme cela, tu devrait plutot faire une selection et la parcourirs par la suite, voila ce que je te propose :
'variable pour stocker la plage de cellule pleine
dim plageCellulePleine as Range
'affectation des cellules pleine a la plage
set plageCellulePleine = range(celluleDepart:celluleArrivé).specialcells(xlCellTypeFormulas)
'ex range(A1:B3) : tu récupéreras toutes les cellules avec des formules
'maintenant on parcours notre selection
dim temp as range
'parcours des plage
for each temp in plageCellulePlein
temp.formulaLocal="=IF(RC[-21]<>"""",MONTH(RC[-21],"""")"
next
j'espere avoir répondu a ton probleme.
cpsfg
Messages postés
6
Date d'inscription
lundi 12 juin 2006
Statut
Membre
Dernière intervention
29 juin 2006
29 juin 2006 à 10:29
29 juin 2006 à 10:29
Salut,
Je te remercie pour la proposition. Par contre, elle ne s'éxecute pas, il y a un problème avec ce passage :
set plageCellulePleine = range(celluleDepart:celluleArrivé).specialcells(xlCellTypeFormulas)
Le debogage mentionne une erreur de syntaxe.
A voir ce que tu en penses....
Merci
Je te remercie pour la proposition. Par contre, elle ne s'éxecute pas, il y a un problème avec ce passage :
set plageCellulePleine = range(celluleDepart:celluleArrivé).specialcells(xlCellTypeFormulas)
Le debogage mentionne une erreur de syntaxe.
A voir ce que tu en penses....
Merci
petigeni
Messages postés
34
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
29 septembre 2006
29 juin 2006 à 11:57
29 juin 2006 à 11:57
Dans mon précédent message j'ai fait un petit oublie,et cela se trouve je t'es fait trompé.....
En fait tu dois mettre des guillements pour spécifié la plage des cellules (moi je l'avais pas fait)
exemple :
range("A3:B4").specialcells(xlCellTypeFormulas)
Cela pourrait venir de la si tu m'a suivi sur mon erreur.
Sinon vérifie que tu as bien Declarer plageCellulePleine de type Range
dim plageCellulePleine as Range
sinon je te donne l'adresse d'un petit pdf qui explique des choses intéréssante sur excel et vba, c'est cela que j'utilise, car je me suis mis y'a peu de temps a vba excel.
ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf
En fait tu dois mettre des guillements pour spécifié la plage des cellules (moi je l'avais pas fait)
exemple :
range("A3:B4").specialcells(xlCellTypeFormulas)
Cela pourrait venir de la si tu m'a suivi sur mon erreur.
Sinon vérifie que tu as bien Declarer plageCellulePleine de type Range
dim plageCellulePleine as Range
sinon je te donne l'adresse d'un petit pdf qui explique des choses intéréssante sur excel et vba, c'est cela que j'utilise, car je me suis mis y'a peu de temps a vba excel.
ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf
