Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonsoir 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
bonsoir 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
Je sais bien que plus c'est long plus c'est bon mais quand même :
VB:
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD