refresh

bonjour

par exemple..
MacroActualise affectée à ton bouton "refresh"

sub MacroActualise()
macro1
macro2
macro3
end sub

la macroActualise fait appel aux macros ( 1 2 et 3) que tu souhaites re executer

Bonjour Ok Merci

J n'ai pas réussis a mettre a mettre le bon code pour actualisation mes feuilles

j'ai mis
Private Sub Worksheet_activate()
ActiveWorkbook.RefreshAll
End Sub
+
Bouton
ActiveWorkbook.RefreshAll
ça donne rien

RefreshAll ne sert qu'à rafraichir les formules et TCD et autres calculs d'une feuille Excel.. ca ne sert pas a RELANCER des macros

maintentant... ma boule de cristal est rangée.. pas de fichier exemple = pas de réponse

Ok j'ai compris

Bonjour
Ce code fonctionne parfaitement mais parfois le resultat s'affiche pas !!!
j'aimerai mettre un bouton nommé ACTUALISER qui fait appel a ça


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Fin = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("Tab_Archive").Columns(1)) Is Nothing Then
With Sheets("BD").Range("A:A")
Set trouve = .Find(Target)
If Not trouve Is Nothing Then

Target.Offset(0, 1) = trouve.Offset(0, 1) 'annexe
Target.Offset(0, 2) = trouve.Offset(0, 4) 'nom
Target.Offset(0, 7) = trouve.Offset(0, 2) 'Observation
End If
End With
End If
'si on modifie une date Sortie ou Retour, on met à jour l'Etat Dossier
If Not Intersect(Target, Range("Tab_Archive").Columns(4).Resize(, 2)) Is Nothing Then
If Range("D" & Target.Row) = "" Then
result = ""
ElseIf Range("D" & Target.Row) > 1 And Range("E" & Target.Row) > 1 Then
result = "Rendu"
ElseIf Range("E" & Target.Row) = "" Then
result = "Retard"

End If
Range("F" & Target.Row) = result
End If
End Sub

Merci et bonne fin de journée

Je viens de reconnaitre mon code....
pourquoi faire un nouveau post?
on perd du temps à répondre deux fois aux memes questions

et ce n'est pas EXACTEMENT le code que j'ai posté ..
manque
Application.EnableEvents = true

Ok merci