Problème avec RECHERCHEV
Résolu
barou_sanogo
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aimerais savoir comment associer un VBA pour sélection multiple et la fonction RECHERCHEV.
Je veux générer autant de nature de marchandise qu'autant d'espèce manifestée. Quand je sélectionne un seul code tout fonctionne mais au delà c'est #N/A.
La formule utilisée dans la colonne P est: =SI(O10="";"";RECHERCHEV(O10;ref!$V$2:$W$65003;2;0))
La sélection multiple est dans la colonne O est en VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, ", " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Merci de votre coup de main
J'aimerais savoir comment associer un VBA pour sélection multiple et la fonction RECHERCHEV.
Je veux générer autant de nature de marchandise qu'autant d'espèce manifestée. Quand je sélectionne un seul code tout fonctionne mais au delà c'est #N/A.
La formule utilisée dans la colonne P est: =SI(O10="";"";RECHERCHEV(O10;ref!$V$2:$W$65003;2;0))
La sélection multiple est dans la colonne O est en VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, ", " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Merci de votre coup de main
6 réponses
Bonjour,
Peut-être mettre le fichier sur https://www.cjoint.com/ et poster le lien.
Pour une capture d'écran, il faut l'enregistrer en .jpg et l'insérer comme image!
Peut-être mettre le fichier sur https://www.cjoint.com/ et poster le lien.
Pour une capture d'écran, il faut l'enregistrer en .jpg et l'insérer comme image!
Bonjour,
Veuillez trouver ci-dessous le lien vers la capture d'écran
https://www.cjoint.com/c/KJChFeXLkcH
Veuillez trouver ci-dessous le lien vers la capture d'écran
https://www.cjoint.com/c/KJChFeXLkcH
Bonjour,
Veuillez trouver ci-dessous le lien vers le VBA utilisé
https://www.cjoint.com/c/KJCi6MFsovH
Veuillez trouver ci-dessous le lien vers le VBA utilisé
https://www.cjoint.com/c/KJCi6MFsovH
Bonjour,
Je suis de retour, réponse demain.
Juste une question; vous avez plus d'un HS_code en colonne [O], est-il possible n'avoir qu'un seul par cellule Oui / non ?
Merci de votre explication!
Je suis de retour, réponse demain.
Juste une question; vous avez plus d'un HS_code en colonne [O], est-il possible n'avoir qu'un seul par cellule Oui / non ?
Merci de votre explication!
Bonjour,
Il arrive très souvent que le même camion contienne plusieurs marchandises avec différents HS_Code. Avec la formule, pour un seul HS_Code tout marche très bien, mais au-delà c'est le problème. Je veux avoir autant de désignation de marchandise (dans la colonne P) qu'autant de HS_Code (dans la colonne O).
Cordialement.
Il arrive très souvent que le même camion contienne plusieurs marchandises avec différents HS_Code. Avec la formule, pour un seul HS_Code tout marche très bien, mais au-delà c'est le problème. Je veux avoir autant de désignation de marchandise (dans la colonne P) qu'autant de HS_Code (dans la colonne O).
Cordialement.
Bonjour,
Merci, donc si vous avez plusieurs HS_Code dans la même cellule la Recherchev() doit être remplacée par une fonction personnalisée (VBA).
Patience.
Merci, donc si vous avez plusieurs HS_Code dans la même cellule la Recherchev() doit être remplacée par une fonction personnalisée (VBA).
Patience.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Ma proposition avec fonction personnalisée
Le lien : https://www.cjoint.com/c/KJDjCYtYaIn
Ma proposition avec fonction personnalisée
RechTous(valRech As Range), voir votre classeur.
Le lien : https://www.cjoint.com/c/KJDjCYtYaIn
Je ne parviens pas en afficher la capture d'écran
Je veux, dans un tableau excel, générer automatiquement dans une colonne "P" la désignation des marchandises en fonction de position tarifaire qui est dans un menu déroulant (Colonne O). Si je sélectionne deux ou trois HS_Code (qui s'affichent réellement dans la cellule dédiée) #N/A s'affiche dans la cellule qui doit contenir la désignation. Avec un seul code tout marche très bien. Il m'arrive de gérer des camions avec diverses marchandises (+ de deux).
Merci de votre coup de main.
Barou Sanogo