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.
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.