Discussion :

[sash6]

Bonjour tout le monde,

Voilà je vous explique ma doléance. Dans mon code j'ai la boucle suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In ActiveCell.CurrentRegion.Cells
    If c.Value = "" Then c.Value = "nc"
Next

Mon code tourne sur à peu près 80 fichiers. Le problème c'est que sur certains fichiers la boucle continue, alors qu'on n'est plus dans la "currentregion", autrement dit elle dépasse la dernière ligne de mon tableau. A noter, que les cellules dans les colonnes A, B, C contiennent un menu déroulant. Pourquoi? Comment peut-on contourner cette erreur?

Cordialement,

sash

[ouskel'n'or]

For Each c In ActiveCell.CurrentRegion.Cells
If c.Value = "" Then c.Value = "nc"
Next

A vrai dire, je ne vois pas comment ta boucle peut fonctionner
Essaie plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In ActiveCell.CurrentRegion
    If c.Value = "" Then c.Value = "nc"
Next

Et n'utilise pas Activecell mais Cells(NoLigne, NoColonne) ou Range(la cellule) sinon tu vas au devant de surprises

[sash6]

Merci Ouskel, mais ça me génère la même errerur au même endroit...
activecell c'était pratique car le prog trouvait jusque là tout seul la taille du tableau (en l'occurrence la dernière ligne). Je vais essayer les pistes que tu m'as données

[Maxence HUBICHE]

Ton code ne pose, a priori, pas de souci, puisqu'il fonctionne.

Pour comprendre ton véritable souci (continuation au-dela du tableau) il faut comprendre à quoi sert CurrentRegion

CurrentRegion, c'est léquivalent de CTRL+* (ou encore Edition/Atteindre/Cellule/Zone en cours)

un petit coup de F1 sur currentregion apportera un mieux.

une currentregion est une plage délimitée pour des lignes et colonnes vides.
si ta plage est plus grande que ton tableau, c'est qu'il y a des choses à côté. forcément !

[sash6]

effectivement, il devait y avoir quelque chose, bien que les lignes en question étaient vides! En les supprimant, maintenant le ctrl+* fonctionne correctement. C'est bizarre, mais j'ai pas mal de fichiers comme ça, c'est des reportings et les mecs qui les envoient doivent les traffiquer sans vraiment le vouloir...Enfin bref, ça marche maintenant! Merci beaucoup pour vos aiguillages!

[sash6]

merci pour le post Ouskel! C'est marrant, parce que le but de cette boucle c'était justement de remplir les cellules vides dans mes tableaux pour que je puisse les traiter dans des bonnes conditions. En tout cas ça me permettra de prendre des précautions: certains tab arrivent avec des lignes ou des colonnes masquées...

[ouskel'n'or]

Pour supprimer les lignes vides par macro, regarde là
Mais un tri les réunit au même endroit, suffit ensuite que tu sélectionnes la première cellule renseignée.

[ouskel'n'or]

Un peu de lecture ici pour avoir la plage de données réelle. Currentregion, c'est bien mais tu ne dois avoir ni ligne ni colonne entièrement vide dans ta plage de données. Ensuite, la cellule choisie doit se trouver impérativement dans ta plage de données. Ton "ActiveCell" doit être remplacée par une adresse de cellule se trouvant dans la plage.
A toutes fins utiles