Sub viande()
Dim ligne As Byte
ligne = 4
With Sheets("edition ticket de caisse")
If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 4) = "Viande"
End With
MsgBox "Produit ajouté"
End Sub
Sub pâtes()
Dim ligne As Byte
ligne = 4
With Sheets("edition ticket de caisse")
If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 4) = "Pâtes"
End With
MsgBox "Produit ajouté"
End Sub
Sub salade()
Dim ligne As Byte
ligne = 4
With Sheets("edition ticket de caisse")
If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 4) = "salade"
End With
MsgBox "Produit ajouté"
End Sub
Sub effacer()
With Sheets("edition ticket de caisse")
.Range("D4:D20").ClearContents
End With
MsgBox "effacement terminé"
End Sub
BEN ecoutez je suis super content je vous remercie bcp je vais pouvoir faire mon application encore mercibonsoir le forum
re valouf
le titre de votre fil ainsi que votre demande diverge de votre problématique dans le classeur.
en réponse des questions du classeur je vous propose ces macros qui seront exécutées sur le clic image.
(activer les macros pour ce classeur)
VB:Sub viande() Dim ligne As Byte ligne = 4 With Sheets("edition ticket de caisse") If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1 .Cells(ligne, 4) = "Viande" End With MsgBox "Produit ajouté" End Sub Sub pâtes() Dim ligne As Byte ligne = 4 With Sheets("edition ticket de caisse") If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1 .Cells(ligne, 4) = "Pâtes" End With MsgBox "Produit ajouté" End Sub Sub salade() Dim ligne As Byte ligne = 4 With Sheets("edition ticket de caisse") If .Cells(ligne, 4) <> "" Then ligne = .Range("D" & .Rows.Count).End(xlUp).Row + 1 .Cells(ligne, 4) = "salade" End With MsgBox "Produit ajouté" End Sub Sub effacer() With Sheets("edition ticket de caisse") .Range("D4:D20").ClearContents End With MsgBox "effacement terminé" End Sub
vous pouvez dupliquer les macros en associant chaque nouvelle image à une nouvelle macro.
Pas dans le titre, mais dans macros, vous pouvez définir les noms (viandes, pâtes, salade, comme vous le souhaitez.
cdt
galouglaou
Oulala je viens de le voir à l'instand je m'en escuse profondement votre aide va m'etre aussi precieuse merci beaucoup et escusez moi encore
Sub Image_Click()
Dim a
a = [{"Image 2","Pâtes";"Image 4","Viande";"Image 6","Salade"}] 'matrice 3 lignes x 2 colonnes
With Sheets("edition ticket de caisse")
.Visible = xlSheetVisible 'si la feuille est masquée
.Range("D2:D" & .Rows.Count).Find("", , xlValues) = Application.VLookup(Application.Caller, a, 2, 0)
.Activate 'facultatif
End With
End Sub