Discussion :

[Alp]

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 :

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

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 :

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.

[Bigalo]

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 :

1. 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é.
2. 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, ...).
3. 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).
4. 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.
5. 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 :

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

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,

[Alp]

Bonsoir et merci pour la réponse.

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.

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 :

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 ...

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.

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 ?

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"

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.

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

Code :

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

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 ?

beaucoup

[Bigalo]

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 :

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

=A1

en B2 :

Code :

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

=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 :

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

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 :

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

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 :

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

        Index = Index - 1

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


Cordialement,

[Alp]

Merci beaucoup. Tout cela devrait suffir

[Bigalo]

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

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

Cordialement,

Merci beaucoup. Tout cela devrait suffir