Copie de cellules avant effacement

[THEREDCHNICO]

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.

Je pense avoir été clair.
Merci de votre aide

 

[vgendron]

Hello
ce code à ajouter dans un module
et c'est ce code que tu dois appeler quand tu flashes le CAB

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

 

[THEREDCHNICO]

Bonjour
merci, j'essaie demain matin au boulot et je te tiens au courant

 

[THEREDCHNICO]

Bonjour
Désolé mais je n'ai pas eu le temps de tester ce matin
je tente le coup demain sinon lundi

 

[THEREDCHNICO]

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?

 

[vgendron]

Hello
Ajoute ce code dans la feuille 20-11

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

 

[THEREDCHNICO]

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

 

[vgendron]

Hello

oups, pardon, j'avais zappé cette partie

Je débute dans les macros, c'est pourquoi je viens chercher conseil.

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

CF PJ

 

[THEREDCHNICO]

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

 

[THEREDCHNICO]

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

 

[THEREDCHNICO]

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

 

[vgendron]

Hello
Modifies ta macro Début de flashage

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

 

[THEREDCHNICO]

Salut

c'est ok
encore merci pour ton aide
a+