re,
Bjr Steelson,
Pour ce qui est du tableau, je voulais juste voir comment les utiliser, mais j'ai un soucis. Quand je fais un macro juste pour essayer, cela ne fonctionne pas. Avec le code ci dessous:
Prenez ce code :
Sub suppression_sac()
Dim nb_ligne as integer, i as integer
Dim num_sac As String
Dim tableau()
Dim liste As Variant
nb_ligne = Sheets("BD").Range("A1").End(4).Row
ReDim Preserve tableau(nb_ligne, 4)
For i = 1 To nb_ligne - 1
tableau(i, 0) = Sheets("BD").Range("A" & i + 1)
tableau(i, 1) = Sheets("BD").Range("E" & i + 1)
tableau(i, 2) = Sheets("BD").Range("H" & i + 1)
tableau(i, 3) = Sheets("BD").Range("K" & i + 1)
liste = liste & tableau(i, 0) & " : " & tableau(i, 1) & ", " & tableau(i, 2) & ", " & tableau(i, 3) & vbCrLf
Next
num_sac = InputBox("Quel sac voulez vous supprimer ?" & vbCrLf & vbCrLf & liste)
End Sub
Le code est à placer dans un module et pas dans votre feuille (module 1 par exemple). Mon conseil est de ne mettre dans les feuilles que lorsque l'on est vraiment obligé. Sinon mettez tous vos codes SUB dans les modules. Pour le cas présent je l'ai mis dans le module 1 de votre dernier fichier.
exemple : mettez votre code Retour menu dans un module
Sub retour_menu()
ActiveSheet.Visible = False
With Sheets("Menu")
.Visible = True
.Select
End With
End Sub
Une fois fait, supprimez tous les codes retour menu qui se trouvent dans chacune de vos feuilles. J'ai modifié votre dernier fichier comme cela.
Je n'ai pas encore testé sous MAC mais cela doit fonctionner.
Crdlt