Comment comparer la longueur des colonnes | ||
---|---|---|
Inscription: 05/10/2008
Messages:
24
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 08-10-2009 14h36
Bonjour à tous,
j'ai 4 colonnes de longueur differentes qui change tous les jours et je voudrais en vba identifier la plus longue ou trouver la cellule la plus basse de la feuille j'ai essayé ça derCell = Sheets("Caisses").UsedRange.SpecialCells(xlLastCell).Row
Sheets("Caisses").Range("E3:K" & derCell).Select
mais ça me selectionne j'usqu'en bas de la feuille alors si quelqu'un peut m'aider ?? |
|
|
Re: Comment comparer la longueur des colonnes | ||
---|---|---|
Inscription: 09/01/2008
De Montréal, Québec
Messages:
463
Système d'exploitation: PC Version Excel utilisée: 97 à 2016 |
Posté le : 08-10-2009 15h47
Bonjour spookyz,
J'ai modifié le code du module1. Tu aurais intérêt à poser la directive Option Explicit à tous les modules. C'est une erreur de ne pas le faire mais la majorité sinon la totalité des débutants ne le savent pas. Microsoft : «Utilisez l'instruction Option Explicit pour éviter toute faute de frappe lors de la saisie du nom d'une variable existante ou pour écarter tout risque de confusion dans un code où la portée de la variable n'apparaît pas clairement. Si vous n'utilisez pas l'instruction Option Explicit, toutes les variables non déclarées prennent le type Variant.» Or les variables de type Variant sont notoirement lourdes. Donc déclarer les variables avec le bon type allège le code. J'ai commenté le code dans la procédure cree_la_plage(). Guy |
|
|
Re: Comment comparer la longueur des colonnes | ||
---|---|---|
Inscription: 05/10/2008
Messages:
24
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 08-10-2009 16h04
C'est super merci Guy je prend aussi bonne note de tes conseils de declaration de variable
autre chose je viend de m'apercevoir qu'une cellule tout en bas de la feuille etait rempli dans le fichier que j'ai poster et c'est pourquoi ça me prenais toute la feuille ce code fonctionne aussi tres bien derCell = Sheets("Caisses").UsedRange.SpecialCells(xlLastCell).Row Sheets("Caisses").Range("E3:K" & derCell).Select
désolé pour ce post inutile mais un grand merci pour ton code et ton aide |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes