bonjour je suis debutant en bdd excel j'ai telecharché un fichier excel pour adapter à un projet de bdd sur leque l je travail actuellement mais arrivé à un niveau quand j'ajoute les données ça ne fait plus exactement ce que je veux quelqu'un peut-il m'aider.???
c'est une liste deroulante quand tu selection par exemple PIN x PIN tous les PIN PIN s'affichent et pareil pour les BOX x BOX ou BOX x PIN
mais au delà de A50 les donnée que j'ajoute apparaissent peu importe ce que je selection PIN x PIN ou PIN BOX OU BOX BOX.
voici les codes j'arrive pas à telecharger le fichier t
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
'*** quantité sorties (colonne N) ***
If Not Application.Intersect(Target, Range("Sorties")) Is Nothing Then 'Sorties
Flag = True
With Target.Offset(0, -3)
.Value = .Value - Target 'stock (la sortie peut être en négatif)
End With
Target.ClearContents
Flag = False
End If
'*** liste déroulante Famille ***
If Not Application.Intersect(Target, Range("c3")) Is Nothing Then 'liste Famille
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
If Target <> "" Then
Range("Base").Offset(1, 0).Interior.ColorIndex = xlNone
Range("b4").Formula = "=$b6=$c$3"
Range("Base").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("b3:b4"), Unique:=False
Application.Goto Range("d6"), Scroll:=True
End If
Range("a1").Activate
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'*** choix colonne Désignation ***
If Not Application.Intersect(Target, Range("Désignation")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("Base").Offset(1, 0).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 2), Cells(Target.Row, 14)).Interior.ColorIndex = 6
Cells(Target.Row, 14).Activate
End If
End Sub
et quand je selection un ça decale donc je ne vois pas les colonne A B et C il faut il faut defiler vers la gauche pour tout voir je ne veux pas que ça fasse cela.
Quelqu'un peut-il m'aider.??? help!! please.
merci d'avance
c'est une liste deroulante quand tu selection par exemple PIN x PIN tous les PIN PIN s'affichent et pareil pour les BOX x BOX ou BOX x PIN
mais au delà de A50 les donnée que j'ajoute apparaissent peu importe ce que je selection PIN x PIN ou PIN BOX OU BOX BOX.
voici les codes j'arrive pas à telecharger le fichier t
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
'*** quantité sorties (colonne N) ***
If Not Application.Intersect(Target, Range("Sorties")) Is Nothing Then 'Sorties
Flag = True
With Target.Offset(0, -3)
.Value = .Value - Target 'stock (la sortie peut être en négatif)
End With
Target.ClearContents
Flag = False
End If
'*** liste déroulante Famille ***
If Not Application.Intersect(Target, Range("c3")) Is Nothing Then 'liste Famille
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
If Target <> "" Then
Range("Base").Offset(1, 0).Interior.ColorIndex = xlNone
Range("b4").Formula = "=$b6=$c$3"
Range("Base").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("b3:b4"), Unique:=False
Application.Goto Range("d6"), Scroll:=True
End If
Range("a1").Activate
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'*** choix colonne Désignation ***
If Not Application.Intersect(Target, Range("Désignation")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("Base").Offset(1, 0).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 2), Cells(Target.Row, 14)).Interior.ColorIndex = 6
Cells(Target.Row, 14).Activate
End If
End Sub
et quand je selection un ça decale donc je ne vois pas les colonne A B et C il faut il faut defiler vers la gauche pour tout voir je ne veux pas que ça fasse cela.
Quelqu'un peut-il m'aider.??? help!! please.
merci d'avance
