Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreur 1004

le62

XLDnaute Nouveau
Bonsoir le forum.

Je débute en vba.

J'ai un fichier contenant deux feuilles.( feuille 1 "compte"; feuille 2 "résultasts)
j'ai du vba sur les deux feuilles

sur la feuille 1 "compte" code:

Private Sub CommandButton2_Click()
Sheets("Résultats").Activate
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" Then
Sheets("Résultats").Range("B9").CurrentRegion.Offset(1, 0).Clear
Sheets("Compte").Range("B10").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Compte").Range("D45"), CopyToRange:=Sheets("Résultats").Range("B8:I8")
End If
End Sub

sur la feuille 2 "résultats" code:
Private Sub CommandButton1_Click()
Sheets("Compte").Activate
End Sub

j'aimerai protéger différentes cellules des deux feuilles;
pour cela outil, protection et validation.

le probléme et que la macro se bloque au niveau de
Sheets("Compte").Range("B10").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Compte").Range("D45"), CopyToRange:=Sheets("Résultats").Range("B8:I8")

Comment éviter le probléme.
J'ai parcouru le forum et j'ai utilisé des codes mais sans résultat!

Merci de me lire.
 

jeanpierre

Nous a quitté
Repose en paix
Re : erreur 1004

Bonsoir le62,

Pas bien compris, mais si ta feuille protégée, il suffit de la déprotéger en début de macro pour que le code puisse faire son boulot et de la reprotéger juste avant la sortie.

Sans fichier, voila ce que je peux dire.

Bonne soirée.

Jean-Pierre
 

le62

XLDnaute Nouveau
Re : erreur 1004

Bonsoir ROGER 2327 et jeanpierre.

J'ai suivi vos conseils et cela marche.
Encore quelques vérifications et je posterai la version du code utilisé

Merci pour vos précieux conseils

Bonsoir à vous
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…