thehaker42
XLDnaute Nouveau
Bonjour à tous,
j'ai réussi a trouver un bout de code VBA
(qui marche sur une liste sur la colonne A)
mais sur mon tableau le VBA marche pas
ou alors il me trouve les inconnus et continu jusqu'en bas du tableur(65000)
ou alors une erreur sur une ligne du VBA: " Cells(p, 16) = n "
Ce programme me sert pour trouver les casiers libres du magasin
Merci
j'ai réussi a trouver un bout de code VBA
(qui marche sur une liste sur la colonne A)
mais sur mon tableau le VBA marche pas
ou alors il me trouve les inconnus et continu jusqu'en bas du tableur(65000)
ou alors une erreur sur une ligne du VBA: " Cells(p, 16) = n "
Sub recup_place_dispo()
' Supprimer les anciennes valeurs pour
' une liste sans les anciens résultats
'Range("Z2:Z450").Select
'Selection.ClearContents
' Initialisation des variables
p = 2
fin = Val([H500])
n = [H2]
i = 2
' placement des chiffres trouvés sur la
' 16° colonne (O)
' incrémentation de la valeur précédente
' … afin de détecter les places dispo.
Do While n < fin
If n <> Val(Cells(i, 8)) Then
Cells(p, 16) = n
p = p + 1
n = n + 1
Else
i = i + 1
If Val(Cells(i, 8)) <> Val(Cells(i - 1, 8)) Then n = n + 1
End If
Loop
End Sub
Ce programme me sert pour trouver les casiers libres du magasin
Merci