fonction DERCELL (morefun) ne fonctione plus dans macro

[plug2]

bonjour à tous,
j'ai fait des macros dans excel 2000 voila deja un certain temp mais elles ne fonctionne plus dans excel 2010.
elles bug sur la ligne:
Selection.AutoFill Destination:=Range("C2😀ERCELL(C:C)"), Type:=xlFillDefault
la foncion DERCELL est issus de la macrocomplementaire morefun

merci d'avance pour votre aide.
patrice

 

[James007]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

bonjour à tous,
j'ai fait des macros dans excel 2000 voila deja un certain temp mais elles ne fonctionne plus dans excel 2010.
elles bug sur la ligne:
Selection.AutoFill Destination:=Range("C2😀ERCELL(C:C)"), Type:=xlFillDefault
la foncion DERCELL est issus de la macrocomplementaire morefun

merci d'avance pour votre aide.
patrice

Bonjour,

La dernière mise à jour de Laurent Longre de morefunc pour Excel date de Décembre 2007 ...
Cela signifie concrètement que tu vas devoir remplacer dercell() par ta propre fonction en Excel 2010 ...

A +

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

merci pour ta reponse rapide,
mais si quelqun à une solution de remplacement pour cette fonction.
merci

 

[James007]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Re,

Tu peux essayer :

DerLig = Cells(Cells.Rows.Count,"C").End(xlUp).Row

A +

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

merci,
cela ne marche pas, mais je ne sais pas tros comment metre ce code dans ma ligne.

 

[MJ13]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Bonjour Plug, James

Ok, cela ne marche pas, mais il faudrait déjà savoir ce que fait la fonction DERCELL?

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Bonjour james
la fonction DERCELL permet d'ateidre la derniere cellule non vide de la colonne
donc dans le cas ci dessous je veu selectioner les cellules de C2 j'usqu'a la derniere de la colone.
merci

Selection.AutoFill Destination:=Range("C2DERCELL(C:C)"), Type:=xlFillDefault

 

[James007]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Re,

As-tu essaye :

Selection.AutoFill Destination:=Range("C2:C" & Derlig), Type:=xlFillDefault

A +
🙂

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

désolé james, mais ca ne fonctione pas non plus

 

[James007]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Re,

Pour t'aider efficacement, n'hésites pas à poster ta macro ... car, entre autres, je ne sais pas comment tu déclares tes variables ...

A +

 

[job75]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Bonjour le fil,

Cette manie de vouloir sélectionner en VBA alors que ça ne sert à rien...

Dim plage As Range
Set plage = Range("C2", Cells(Cells.Rows.Count, "C").End(xlUp))
Range("C2").AutoFill Destination:=plage

Mais pas bien compris pourquoi on veut écraser les valeurs existantes dans la plage...

A+

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

bonjour job75,
ok ça fonctione merci, mais pour la ligne suivante: Range("C2😀ERCELL(C:C)").Select
que doi-je metre? car moi je n'y connais pas grand chose et j'ais fait ces macros avec l'enregistreur.
merci

 

[job75]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Re,

Quelles cellules suivantes ? J'espère que ce n'est pas C3 C4 C5... ça n'aurait guère de sens...

A+

 

[plug2]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

non j' ais ecris Range("D2😀ERCELL(D😀)").Select car plusieur fois dans mes macros reveint cette ligne code mais avec des plages differentes c'est juste pour les selectioner en vue de les imprimer , les copier, les deplacer...
donc par quoi puis-je remplacer: Range("C10😀ERCELL(J:J)").Select par exemple?
merci

 

[job75]

Re : fonction DERCELL (morefun) ne fonctione plus dans macro

Re,

OK, donc à partir de la cellule active :

Dim plage As Range
Set plage = Range(ActiveCell, Cells(Cells.Rows.Count, ActiveCell.Column).End(xlUp))
plage.Select 'si on veut sélectionner la plage
ActiveSheet.PageSetup.PrintArea = plage.Address 'zone d'impression
'etc...

A+