Traiter une colonne

Bonsoir,

Je débute en VBA pour Excel et j'ai un léger problème.

Ma feuille se présente de la manière suivante :
Je n'ai des informations que sur la colonne A, mais pas une information à chaque ligne.

Je fais Outils > Macros > Visual Basic Editor
Je double clique sur Feuil1.

J'écris le code suivant : (assez court)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Function VaChercher(Ligne As Integer) Dim Index As Integer Index = Ligne Do While Range("A" & Index).Value <> "" Index = Index - 1 Loop VaChercher = Index End Function Function VaChercherValeur(Index As Integer) VaChercherValeur = Range("A" & Index).Value End Function Sub NoManquants() Dim Feuille As Worksheet Set Feuille = Worksheets("Feuil1") Dim i As Integer i = 1 Do While i < 13 If Feuille.Range("A" & i).Value <> "" Then Dim Valeur As Integer Valeur = VaChercherValeur(VaChercher(i)) Feuille.Range("B" & i).Value = Valeur End If i = i + 1 Loop End Sub
Toutefois, lorsque j'exécute dans l'éditeur, j'ai droit à un :

Citation:

La méthode 'Range' de l'objet '_Worksheet' a échoué

Après quelques recherches, je n'ai rien trouvé d'intéressant.
C'est pourquoi je vous sollicite afin d'obtenir des explications sur la nature du problème pour enfin faire fonctionner mon code.

Je n'ai pas jugé nécessaire d'expliquer ce qu'est censé faire le code, mais si vous en avez besoin, je le ferai sans problème.

:merci:

Bonsoir,

Quelle version d’Excel as-tu ? J’ai créé un classeur, copié/collé ton code et je l’ai exécuté, sans avoir de message d’erreur, avec Excel 2007.

Ceci dit, plusieurs remarques :

Que veux-tu obtenir ? En face de chaque cellule non vide de la colonne A, ton programme affiche un 0. Je ne suis pas sur que ce soit le but visé.
Il y a plusieurs sortes de modules où on peut écrire du code. Le module associé à une feuille est en principe destiné à gérer les événements relatifs à la feuille (Activate, Change, SelectionChange, Calculate, ...).
Lorsque le code ne concerne aucun événement, il n'y a aucune raison d’écrire le code dans le module de la feuille. Utilise un module standard, que tu obtiens en l’insérant (menu Insertion de VBE, ou clic droit dans l’explorateur de projets).
Regroupe tes déclarations en début de procédure : on a ainsi une vue d’ensemble des variables, et c’est plus simple à comprendre pour quelqu’un d’autre.
Evite d’utiliser comme nom variable quelque chose comme Index qui est une fonction d’Excel. Cela peut conduire à de mauvaises surprises.

S’il s’agit d’obtenir les numéros de lignes vides en colonne A,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub NumManquants() Dim c As Range, i As Integer i = 1 With Worksheets("Feuil1") For Each c In Intersect(.UsedRange, Range("A:A")) If c = "" Then Range("B" & i) = c.Row i = i + 1 End If Next End With End Sub
suffit.

Cordialement,

Bonsoir et merci pour la réponse.

Citation:

Envoyé par Bigalo

Quelle version d’Excel as-tu ? J’ai créé un classeur, copié/collé ton code et je l’ai exécuté, sans avoir de message d’erreur, avec Excel 2007.

J'ai Excel 2003, mais cela ne devrait pas poser de problème par rapport au 2007.

Citation:

Envoyé par Bigalo

Que veux-tu obtenir ? En face de chaque cellule non vide de la colonne A, ton programme affiche un 0. Je ne suis pas sur que ce soit le but visé.

J'ai par exemple pour A quelque chose du genre :

Citation:

300

301

302
303

Et je voudrais la chose suivante :
Si une case de la colonne A est vide, disons à la ligne i, alors on doit remonter jusqu'à récupérer la valeur contenue dans la dernière case de colonne A non vide (en remontant), et enfin mettre cette valeur dans la colonne B, à la ligne courante. Dans l'exemple que je t'ai donné, je voudrais avoir B2 = 300, B3 = 300, B5 jusqu'à B10 qui valent 301, etc ...

Citation:

Envoyé par Bigalo

Il y a plusieurs sortes de modules où on peut écrire du code. Le module associé à une feuille est en principe destiné à gérer les événements relatifs à la feuille (Activate, Change, SelectionChange, Calculate, ...).

Ici, je ne me préoccupe d'aucun évènement => je voudrais exécuter le script en allant dans Outils > Macros > je sélectionne ma macro, par exemple.

Citation:

Envoyé par Bigalo

Lorsque le code ne concerne aucun événement, il n'y a aucune raison d’écrire le code dans le module de la feuille. Utilise un module standard, que tu obtiens en l’insérant (menu Insertion de VBE, ou clic droit dans l’explorateur de projets).

On peut toutefois laisser le code dans le module de la feuille ? Ou bien cela ne marchera que si on le met dans un module standard ?

Citation:

Envoyé par Bigalo

Regroupe tes déclarations en début de procédure : on a ainsi une vue d’ensemble des variables, et c’est plus simple à comprendre pour quelqu’un d’autre.

Oui, c'est une habitude que j'ai en C++, mais là j'ai écrit ce code "à l'arrache". Merci pour la "piqûre de rappel" :)

Citation:

Envoyé par Bigalo

Evite d’utiliser comme nom variable quelque chose comme Index qui est une fonction d’Excel. Cela peut conduire à de mauvaises surprises.

C'est noté, merci.
Citation:
Envoyé par Bigalo
S’il s’agit d’obtenir les numéros de lignes vides en colonne A,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub NumManquants() Dim c As Range, i As Integer i = 1 With Worksheets("Feuil1") For Each c In Intersect(.UsedRange, Range("A:A")) If c = "" Then Range("B" & i) = c.Row i = i + 1 End If Next End With End Sub
suffit.

Cordialement,
Il ne s'agit pas seulement d'obtenir ces lignes, mais de rajouter dans la case B qui correspond la valeur dernière valeur rencontrée dans la colonne A.
C'est à ceci que servent les fonctions VaChercher/VaChercherValeur.

Qu'est-ce qui ne tourne pas rond dans mon code, donc ?

:merci: beaucoup

De rien, je te demandais ta version, car avec 2007, je n’avais pas réussi à reproduire ton message d’erreur.

Nul besoin de VBA pour ce que tu veux obtenir :

en B1 :

Code:

=A1

en B2 :

Code:

=SI(A2 = "";B1;A2)

à recopier vers le bas jusqu'à la dernière ligne "utile".

Par ailleurs, de manière générale évite d’utiliser un module de feuille si tu ne gères pas d'événement. Il y a des limitations, en particulier pour intervenir sur d’autres feuilles.

Si tu tiens à obtenir le résultat par VBA, voici une façon de faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub NumManquants() Dim Plage As Range, c As Range, Ref As Range With Worksheets("Feuil1") Set Plage = Intersect(.UsedRange, Range("A:A")) Set Ref = Plage.Cells(1, 1) For Each c Plage If c <> "" Then Set Ref = c End If c.Offset(0, 1) = Ref Next End With End Sub
Quant à ton code (pas si court que tu ne prétends :)), j’avais testé avec A1 vide. Dans le cas contraire, j’ai effectivement le plantage que tu signales, et cela vient de :
Code:

1 2 3 Do While Range("A" & Index).Value <> "" Index = Index - 1 Loop
Avec Index = 1, tu traites la cellule A1. Si elle n’est pas vide,

Code:

Index = Index - 1

conduit à tester la cellule "A0" qui n’existe pas

Cordialement,

Merci beaucoup. Tout cela devrait suffir ;)

De rien ;-)

Mon premier bouquin sur les macros (c’était sur Excel 1.5 !), commençait par cette boutade : la meilleure macro, c’est de ne pas en écrire 8-)

En clair, quand une quelque chose est déjà disponible dans Excel, pourquoi écrire du code ?

Cordialement,

Citation:

Envoyé par Alp

Merci beaucoup. Tout cela devrait suffir ;)