Double click -->classement

bonjour

merci encore une fois d'avance pour les réponses

j'ai une colonne B qui comporte des références

la colonne C comporte que les valeurs 1 ou 0 (1=existe et 0n'existe pas dans la stock)

ma macro fonctionne correctement que je joint

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

   Dim i As Integer
    If Sh.Name = "Feuil1" Then
            For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
            Range("D" & i) = ""
            If Range("C" & i) = 0 Then
            Range("D" & i) = Range("B" & i)
            End If
            Next i
    End If
End Sub

pour une question de praticité l'aimerais que le résultats s'affiche comme la colonne F ( je joint un fichier)

" c'est a dire que dans la colonne D les cellules vides seront enlevé"

merci

bonsoir,

Une solution :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim i%, ii%
    ii = 2
    If Sh.Name = "Feuil1" Then
         For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
            Range("D" & i) = ""
            If Range("C" & i) = 0 Then
               Range("D" & ii) = Range("B" & i)
               ii = ii + 1
            End If
         Next i
    End If
End Sub

A+

merci galopin01

ça fonctionne comme je veut

une question

pourrais je avoir une explication sur le "i%, ii%" --->j'ai pas assimilé

merci

C'est l'équivalent de

Dim i as Integer
Dim ii as Integer

A+

merci beaucoup