Problème d'éxécution macros

bonjour

j'ai cré un macro qui me permet d'enregistrer les données dans la feuil 2. mais lorsque je masque cette feuil (feuil2) la macros ne s’exécute pas et affiche le message qui est en image

votre aide svp pour remédier ce problème

Hello,

Oui c'est normal, est ce que tu vois quand tu as les yeux bandés ? Je ne pense pas et pour les macros c'est presque pareil.

si je suis ton code, le plus simple serait de l'afficher en début de code, puis de la masquer en fin de code

    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    Range("Tableau1[N° FI]").Select

au début

&

    Selection.ClearContents
    Range("B2").Select
    Sheets("Feuil2").Visible = False

a la fin

++

Bonjour à tous,

il faut éviter les .Select inutiles dans 99% des cas.

Non seulement ça peut gêner comme ici, mais ça ralenti inutilement aussi

Sub Macro6()
    Dim lig As Long, col As Long
    If [A2] = "" Then MsgBox "N° FI obligatoire": Exit Sub
    With Sheets("Feuil2")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For col = 1 To 8
            .Cells(lig, col).Value = Cells(2, col).Value
        Next col
    End With
    [A2:H2].ClearContents
End Sub

eric

merci beaucoup

vos solutions marche très bien

sincèrement vous m'encourage d'apprendre :)