garder résultat de Msgbox

[michal51]

Bonjour,

je voudrais savoir comment je pourrais, en plus de la Msgbox, in sérer le résultat ("i" dans le cas présent) dans une cellule de la feuil 2 (A1 par exemple)

Voici ce que j'ai:

Private Sub CommandButton6_Click()
Dim a As Integer, i As Integer
For a = Range("U65536").End(xlUp).Row To 2 Step -1
If Range("F" & a) <> "Attente" Then Rows(a).Delete: i = i + 1
Next a
MsgBox "Nb de lignes suppimées : " & i

End Sub


Merci

 

[Pierrot93]

Re : garder résultat de Msgbox

Re

essaye comme ci dessous :

Sheets("Feuil2").Range("A1").Value = i

@+

 

[michal51]

Re : garder résultat de Msgbox

c'est exactement çà pierrot

merci encore une fois

A+

 

[Pierrot93]

Re : garder résultat de Msgbox

Re

message edité : grossière horreur...
@+

 

[mutzik]

Re : garder résultat de Msgbox

Bonjour,

Pierrot, pourquoi i-1 ? i me semblait juste au vu du code

 

[Pierrot93]

Re : garder résultat de Msgbox

Re, bonjour Bertrand

aarf, merci Bertrand, tu as raison, j'avais un autre post en tête.... suis nul sur ce coup, j'édite le précedent message, encore merci et @+