Discussion :

[Nono Sto]

Chères amies, chers amis

Je souhaite afficher les resultats d'un test lors d'une macro, si le test est reussi il retourne un string m_Quote, voici le code que j'ai ecrit pour afficher le resultat ligne par ligne:

Code :

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

1
2
3
4
5
If Worksheets("Feuil1").Cells(3, 3) = "" Then
                Worksheets("Feuil1").Cells(3, 3) = m_Quote
            Else
                Worksheets("Feuil1").Cells(2, 3).Offset(1, 0).End(xlDown) = m_Quote
            End If

Le resultat doit etre un vecteur de taille inconnu au départ.
Or ce code affiche bien le premier résultat en cells (3,3) mais la suite les résultat sont ecrasé en cells (4,3) ce qui affiche en réalité le 1 er et dernier.

Voyez vous j'ai pu me tromper SVP.

Merci

[Daniel.C]

Bonjour,

A vrai dire, j'ai un peu de mal avec ton code :

Code :

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

Worksheets("Feuil1").Cells(3, 3)

c'est équivalent à :

Code :

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

Worksheets("Feuil1").Cells(2, 3).Offset(1, 0)

Où veux-tu afficher le résultat ? au dessous des données de la colonne C ?

[Nono Sto]

Merci

l'idée est si la cell(3,3) est pleine on fait xldown pour attraper la premieres ligne non vide, si je ne fait xldown sur le offset alors j'attérit sur la toute derniere ligne de la colonne.

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
With Worksheets("Feuil1")
    If .Cells(3, 3) = "" Then
        .Cells(3, 3) = m_Quote
    Else
        .Cells(3, 3).End(xlDown).Offset(1) = m_Quote
    End If
End With

[gFZT82]

Bonjour,

Ou peut-être

Code :

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

1
2
3
4
5
6
7
With Worksheets("Feuil1")
    If .Cells(3, 3) = "" Then
        .Cells(3, 3) = m_Quote
    Else
        .Cells(Rows.Count, 3).End(xlUp).Offset(1) = m_Quote
    End If
End With

Cordialement.

[Nono Sto]

Merci beaucoup pour votre aide