Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb sommeprod en vba pas de respect de la casse

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bigjer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bigjer

Guest
Bonjour,
Je suis en train d'effectuer une petite application de gestion de stock pour mon boulot et j'ai un soucis avec ce code :

Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
Sheets("Feuil1").Select
Application.Goto Reference:="COLREF"
Range("C2").Activate
Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ESDESL1.Value = ActiveCell.Offset(0, -1).Value
Else: ESDESL1.Value = "NON REF"
End If
End Sub

ce code me permet de trouver la désignation rattachée à la reférence
ce code fonctionne très bien mais la fonction sommeprod ne respecte pas la casse

si quelqu'un peut m'aider svp

voici un fichier exemple de ce que je dit.
 

Pièces jointes

Trier par date Trier par votes
Re : pb sommeprod en vba pas de respect de la casse

Je ne sais pas si avec des fonctions Excel ça fonctionne (pas testé) mais as-tu essayé de mettre "Option compare text" en début de module contenant ta macro ?
A tout hasard
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Salut,
Je viens d'essayer mais cela ne fonctionne pas
peut être que je le place mal peut tu me dire exactement où il faut le poser
svp
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

bonjour bigjer

Salut Epaf

vois si cela te convient

note :
j'ai remplacé xlpart par xlwhole pour une recherche exacte
par contre j'ai supprimé un parametre nommé qui n'existe pas dans ma version (excel 2000)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

bigjer à dit:
Salut,
Je viens d'essayer mais cela ne fonctionne pas
peut être que je le place mal peut tu me dire exactement où il faut le poser
svp
Cliquez pour agrandir...
Doit être placé en tête de module avant les macros.
Mais si au contraire tu veux respecter la casse, c'est le paramètre MatchCase:=False que tu dois mettre à True et/ou Option Compare Binary (je n'ai pas compris si tu voulais que la casse soit respectée ou non dans ta recherche)
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

bonjour pierrejean,
merci de venir à mon aide
Je ne parviens pas a télécharger le fichier
mais il me semble que j'ai deja essayer ce que tu me dis et ca avait planter
car la recherche d'une valeur par exemple alize090 au lieu de ALIZE090, il ne vas pas la trouver alors que le sommeprod a laisser passer cette valeur
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Ok. Donc quelque soit la casse, tu veux le retrouver, donc on revient à Option Compare Text et à MatchCase:=False 😉
Tu as quelle version d'Excel ?
A+

Salut PierreJean
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Re
le code:

Code: 
Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
    Sheets("Feuil1").Select
    Application.Goto Reference:="COLREF"
    Range("C2").Activate
    Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    If ActiveCell.Value = ESREFL1.Value Then
      ESDESL1.Value = ActiveCell.Offset(0, -1).Value
    Else
      ESDESL1.Value = "NON REF"
    End If
    'Else: ESDESL1.Value = "NON REF"
End If
End Sub

en supposant que j'aie vu juste
c'est a dire que tu souhaites avoir le resultat si la casse est respectée

ps:

re bonjour Epaf
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Non Epaf c'est le contraire je veut respecter la casse mon pb est que quand je saisie par exemple alize090 alors que la reférence est ALIZE090,la désignation est tout de même trouvée et en changeant matchcase à true comme tu l'a indiqué la macro plante car à mon avis la condition est rempli avec la formule sommeprod car elle ne respecte pas la casse mais la recherche plante car la valeur n'existe pas
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Re pierrejean,
ta macro fonctionne pas trop mal car elle respecte la casse et ne plante pas mais quand je saisie par exemple une référence correcte comme ALIZE090 la désignation s'affiche bien mais si je rajoute une lettre à la suite, la désignation n'est pas raffraichit est reste alors que la réf ALIZE090Z N'EXISTE PAS.
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Je pense qu'il serait possible de remplacer la fonction sommeprod par une fonction qui fait la même chose mais qui respecte la casse
moi je n'en connais pas, je suis un novice
alors si quelqu'un a une idée svp
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

re

une solution un peu radicale

Code: 
Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
    Sheets("Feuil1").Select
    Application.Goto Reference:="COLREF"
    Range("C2").Activate
    Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    If ActiveCell.Value = ESREFL1.Value Then
      ESDESL1.Value = ActiveCell.Offset(0, -1).Value
      ESREFL1.Enabled = False
    Else
      ESDESL1.Value = "NON REF"
    End If
    'Else: ESDESL1.Value = "NON REF"
End If
End Sub
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

C'est normal que ça plante si la donnée n'est pas trouvée. Pour ça, tu dois modifier ton code.
Code: 
Private Sub ESREFL1_Change()
Dim c As Range
    If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
        Sheets("Feuil1").Select
        Application.Goto Reference:="COLREF"
        Range("C2").Activate
        With Sheets("Feuil1").Range("C:C")
            Set c = .Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True, SearchFormat:=False)
            If Not c Is Nothing Then
                ESDESL1.Value = Range(c.Address).Offset(0, -1).Value
            End If
        End With
      Else: ESDESL1.Value = "NON REF"
    End If
End Sub
Et là, j'ai testé
 
Vote positif 0 Vote négatif
Re : pb sommeprod en vba pas de respect de la casse

Je viens de voir ton message petitjean, ta solution doit être bonne je pense, je ne l'ai pas encore essayer car il me semble avoir trouvé une solution un peu moins "radicale" comme tu le dis, voici le code que tu m'as donné où j'ai rajouté un else pour le premier if et ça a l'air de fonctionner :
Code: 
Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
    Sheets("Feuil1").Select
    Application.Goto Reference:="COLREF"
    Range("C2").Activate
    Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
    If ActiveCell.Value = ESREFL1.Value Then
      ESDESL1.Value = ActiveCell.Offset(0, -1).Value
    Else
      ESDESL1.Value = "NON REF"
    End If
[COLOR="Red"]Else
ESDESL1.Value = "NON REF"[/COLOR]
End If
End Sub

UN GRAND MERCI A VOUS,
SUPERPETITJEAN
EPAF
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
760
Francky79
F
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
633
job75
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
640
Phillip
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
591
youguybass
Y
  • Résolu(e)
XL 2019 [Résolu] Problème VBA Find
Réponses
6
Affichages
2 K
lebarbo
  • Résolu(e)
Microsoft 365 MsgBox en 2 temps
Réponses
2
Affichages
992
Usine à gaz
  • Question Question
Microsoft 365 Find : si texte recherché n'existe pas alors .....
Réponses
6
Affichages
1 K
laurent950
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
A
  • Résolu(e)
Microsoft 365 remplacement . ou , par séparateur de décimal en VBA
2
Réponses
25
Affichages
7 K
onyirimba
O
  • Question Question
XL 2019 Ajouter la sélection automatique de toute la feuille dans le code.
Réponses
6
Affichages
1 K
soan
S
V
  • Question Question
Répéter une macro ligne après ligne
Réponses
4
Affichages
3 K
Valentin94
V
T
  • Question Question
XL 2019 Erreur définie par l'application ou par l'objet "1004"
Réponses
4
Affichages
1 K
terrier
T
D
  • Résolu(e)
Microsoft 365 code s'execute 2 fois
Réponses
4
Affichages
2 K
ODVJ
O
A
  • Question Question
XL 2016 Macro copier coller avec ctrl + F en boucle
Réponses
9
Affichages
3 K
Hasco
  • Question Question
XL 2010 copier une ligne avec condition
Réponses
3
Affichages
838
Staple1600
M
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
M
D
  • Question Question
XL 2013 Macro VBA conversion fichier tsv en csv
2
Réponses
22
Affichages
3 K
Robert
O
  • Question Question
XL 2013 MACRO : Transférer des données entre onglets
2
Réponses
20
Affichages
4 K
Omegan
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…