Comment activé une macro VBA, depuis un bouton dans une autre feuille

Bonjour a tous le monde.

Mon application sera utilisé par plusieurs personnes et afin de protéger les données de mon fichier, j'aimerai cacher la feuille "Ecriture"

Dans un module et pour la feuille "Ecriture" il y a une macro VBA et cette macro et importante, elle permet de prendre les infos qui se trouve dans la feuille Critères.

j'ai placé le bouton VBA dans la première feuille "données", et le problème depuis cette feuille la macro ne fonctionne pas ….

et t'il possible de déclencher la macro avec bouton depuis une autre feuille ????

CI JOINT MON FICHIER

(pour info : le bouton est de couleur bleu dans la première feuille "données")

VRAIMENT JE VOUS REMERCI ¨POUR VOTRE AIDES..

Bonjour,

Je te propose cette correction

Sub miseajour()
  Dim i As Long, lig, col As Integer, j As Integer, dl As Long

    With Sheets("Ecriture")

          dl = Range("A" & Rows.Count).End(xlUp).Row

          .Range("C6:C" & dl).ClearContents:  .Range("H6:H" & dl).ClearContents:  .Range("M6:M" & dl).ClearContents
          .Range("R6:R" & dl).ClearContents:  .Range("W6:W" & dl).ClearContents:  .Range("AB6:AB" & dl).ClearContents
          .Range("AG6:AG" & dl).ClearContents

          For i = 6 To dl  '.Range("A" & Rows.Count).End(xlUp).Row
            lig = Application.Match(.Range("A" & i).Value, Sheets("Criteres").Columns(1), False)
            If Not IsError(lig) Then
             For j = 4 To 25
              If Sheets("Criteres").Cells(lig, j).Value <> "" Then
               For col = 3 To 37 Step 5
                If .Cells(i, col).Value = "" Then
                  .Cells(i, col).Value = Sheets("Criteres").Cells(lig, j).Value
                  Exit For
                End If
               Next col
              End If
             Next j
            End If
          Next i
    End With
End Sub

A mettre dans ton module. En ciblant la feuille, tu peux lancer la macro depuis n'importe où.

Leakim

Re,

Pour tes autres questions, la réponse est oui à chacune d'entre elles.

Beau projet

Leakim