Bonjour à tous
Je débute dans les macros, c'est pourquoi je viens chercher conseil.
J'expose mon problème. J'ai plusieurs tournées pour lesquelles il y a différentes sacoches.
J'ai créé des Codes à Barres pour les sacoches et les tournées.
Je ferai une petite macro pour débuter le flashage en "B4" pour le n° de tournée et j'enchaine avec les sacoches correspondantes (il y aura également une MFC de couleur pour détecter les erreurs de sacoches).
Toutes les sacoches sont concaténées en "B25". J'ai également un CAB (et pas un clap) de fin pour signaler que la tournée est prête.
Bon maintenant , on parle sérieusement. Voilà ce que je souhaiterais faire : (je me base sur l'exemple)
je flashe la tournée "6" et les 4 sacoches.
En flashant le Cab de fin, je souhaiterais copier automatiquement "B25" en "E8"
Ensuite relancer le flashage pour une autre tournée.
Hello
ce code à ajouter dans un module
et c'est ce code que tu dois appeler quand tu flashes le CAB
VB:
Sub CabDeFin()
NumTournée = Range("B4")
Sacoches = Range("B25")
Set ici = Range("D:D").Find(NumTournée, lookat:=xlWhole)
If Not ici Is Nothing Then
ici.Offset(0, 1) = Sacoches
End If
End Sub
Bonjour
j'ai pu faire un test hier. La formule fonctionne mais j'au du l'affecter sur une commande.
Je te remet le doc plus complet,j'y ai remis les formules ainsi que les MFC pour la tournée 2 (les autres je n'ai pas eu le temps)
J'ai également utilisé ta formule pour créer 2 boutons.
Le début sera nécessaire pour spécifier l'emplacement mais pour le bouton fin :
je pourrais le laisser mais cela oblige la personne à revenir cliquer pour chaque tournée
Est-il possible que la macro se lance à chaque fois que "FIN" apparaît dans une des cellules en colonne B (càd à chaque fois que que je flashe le CAB) et qu'elle reprenne automatiquement la macro de début?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B24")) Is Nothing And Target = "Fin" Then
CabDeFin
End If
End Sub
Bonjour
désolé mais je n'ai pas compris ????
comme je l'ai dit, je débute en macros et là je cale
J'ai bien mes 2 macros dans la liste mais quand j'ouvre VBA, il n'y a rien
pour créer une macro, il faut entrer dans l'éditeur vba: Alt +F11
sur la partie gauche, tu as l'explorateur du projet, et sur la partie droite, la fenetre de code
une macro "standard" se place dans un module "Standard" --> ces macros sont appelées par un bouton ou par un formulaire ou entre elles
une macro évènementielle (clic de souris, changement de feuille, changement de valeur dans la feuille, ou meme changement de sélection de cellule) se déclenche toute seule lorsque l'évènement concerné est détecté par excel
ces macros se place directement dans le CODE de la feuille: partie gauche: tu doubles clic sur le nom de la feuille (20-11 dans ton cas) ==> une fenetre "vierge" s'ouvre à droite, et c'est dans cette feuille que tu colles la macro fournie
Bonjour
désolé mais c'est le flou total
j'ai repris ce que t'as envoyé et quand je lance le "début", j'ai une erreur avec une ligne qui apparait en jaune dans VBA
et comment je fait pour ouvrir une nouvelle page dans la partie droite de VBA
J'ai fait un dble clic à gauche sur la feuille correspondante mais rien ne se passe
Bonjour
il semble y a voir une erreur mais je ne sais pas pourquoi
de plus quelle est la différence entre un module et une déclaration ?
Merci de ton aide
Sub Début_de_flashage()
'
' Début_de_flashage Macro
' Effacement de la colonne B et positionnement en B4
'
Application.EnableEvents = False
'
Range("B4:B24").Select
Selection.ClearContents
Range("B4").Select
Application.EnableEvents = True
End Sub