erreur de syntaxe

[bruno66]

bonjour j'ai toujours quelques souci a faire fonctionner des doubles clic sur des cellules precises plages différentes
elle doivent m'ouvrir l'un ou l'autre onglet , et m'afficher la valeur de la cellule selctionné
merci d'avance
je ne suis pas loin de mon résultat il me semble
erreur else sans if
mon code d'origine ci dessous
dans le fichier joint, exemple , je l'adapterais a mon code près


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [AL2:AL200]) Is Nothing Then
Sheets("SCD STOCK").Select
ActiveSheet.Range("A1:Ai200").AutoFilter Field:=26, Criteria1:=Target
End If
On Error GoTo 0
ElseIf Not Intersect(Target, [C2😀2]) Is Nothing Then
Sheets("Vos commandes").Select
ActiveSheet.Range("A1:M1000").AutoFilter Field:=6, Criterial:=Target
On Error GoTo 0
End If
End Sub

 

[Pierrot93]

Re : erreur de syntaxe

Bonjour,

pas ouvert ton ficher, mais essaye peut être avec ceci :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [AL2:AL200]) Is Nothing Then
Sheets("SCD STOCK").Range("A1:Ai200").AutoFilter Field:=26, Criteria1:=Target
ElseIf Not Intersect(Target, [C22]) Is Nothing Then
Sheets("Vos commandes").Range("A1:M1000").AutoFilter Field:=6, Criterial:=Target
End If
End Sub

bonne journée
@+

 

[bruno66]

Re : erreur de syntaxe

a première vu il n'ouvre pas le fichier.. sur aucune des 2 onglet et ne mets pas d'erreur.. peut etre incomplet .. pour moi il manque un truc au milieu
je regarderais dans la journée , car mon fichier finale est en binaire et de 900 mo
me marque erreur d'ecxecution 1004 je
je reprendrais le fil dans la matinée
merci

 

[Pierrot93]

Re : erreur de syntaxe

Re,

a première vu il n'ouvre pas le fichier

Quel fichier ?? pas de code en ce sens de toute façon... A noter les feuilles ne sont pas selectionnées, rarement utile en vba, mais le filtre doit être malgrès tout positionné....

 

[PrinceCorwin]

Re : erreur de syntaxe

Bonjour,
Pas facile d'avoir un fichier qui n'est pas dans la configuration de la demande. Mais le principe est le même.
Dans la selection du critère, il faut le signe "=", sinon cela ne fonctionnera pas.
Ex:

Selection.AutoFilter field:=26, Criteria1:="=" & Target, Operator:=xlAnd

Bonne journée