Bonjour,
Je rencontre un problème sur la macro jointe dans le fichier.
Cette macro permet d'afficher une msgbox "cheptel positif" lorsque nous scannons numéro dans la colonne O
La macro fonctionne lorsque l'on fait un copier collé dans la colonne O
Par contre, lorsque l'on saisit un numéro manuellement dans la colonne O, elle ne fonctionne plus, et d'ailleurs, lorsque l'on scanne avec la douchette le QRCode, elle ne fonctionne pas non plus.
Voici la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig, Col, DerLi As Integer
Lig = ActiveCell.Row
Col = ActiveCell.Column
DerLi = Worksheets(2).Range("A1").End(xlDown).Row
For i = 1 To DerLi
If Worksheets(1).Cells(Lig, 18) = Worksheets(2).Range("A" & i) Then
MsgBox "CHEPTEL POSITIF"
Exit Sub
End If
Next i
End Sub
je vous joins le fichier.
La Macro permet de contrôler si le numéro de cheptel extrait dans la colonne Q fait partie de la liste des cheptels positifs (sur le deuxième onglet).
Merci d'avance pour vos lumières.
Bonne journée
Je rencontre un problème sur la macro jointe dans le fichier.
Cette macro permet d'afficher une msgbox "cheptel positif" lorsque nous scannons numéro dans la colonne O
La macro fonctionne lorsque l'on fait un copier collé dans la colonne O
Par contre, lorsque l'on saisit un numéro manuellement dans la colonne O, elle ne fonctionne plus, et d'ailleurs, lorsque l'on scanne avec la douchette le QRCode, elle ne fonctionne pas non plus.
Voici la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig, Col, DerLi As Integer
Lig = ActiveCell.Row
Col = ActiveCell.Column
DerLi = Worksheets(2).Range("A1").End(xlDown).Row
For i = 1 To DerLi
If Worksheets(1).Cells(Lig, 18) = Worksheets(2).Range("A" & i) Then
MsgBox "CHEPTEL POSITIF"
Exit Sub
End If
Next i
End Sub
je vous joins le fichier.
La Macro permet de contrôler si le numéro de cheptel extrait dans la colonne Q fait partie de la liste des cheptels positifs (sur le deuxième onglet).
Merci d'avance pour vos lumières.
Bonne journée