Microsoft 365 sierreur et recherche

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2020

• #2

Bonjour Arthour,
Pourquoi pas :

VB:

Sub Droite6()
    If Val(Right([G2], 6)) = [I2] Then [J2] = [I2]
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2020

• #3

Bonjour Sylvanu,
Merci 🙂
Je teste et je te dis 🙂
lionel,

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 6 Mars 2020

• #4

Bonjour,
Bonjour Sylvanu

Autre test

VB:

Sub Test()
  If Mid(Cells(2, 7).Value, 3, 6) = Cells(2, 9).Text Then Cells(2, 10).Value = Cells(2, 9).Value
  Range("A2").Select
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2020

• #5

Re- Sylvanu,
nickel de chez nickel.
Merci à toi 🙂
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2020

• #6

Bonjour M12,
Merci 🙂
Re - nickel de chez nickel,
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Mars 2020

• #7

Bonjour Sylvanu, M12, le Forum,

Encore merci à vous 2 pour vos codes 🙂

J'ai choisi le code de Sylvanu qui semble me correspondre mieux à l'intégration dans les codes de mon fichier.
Toutefois, le code que j'en ai tiré avec 6 condition est long :

VB:

Sub Sylvanu()
efface
[a2].Select
    If Val(Right(Cells(ActiveCell.Row, 7), 6)) = Cells(ActiveCell.Row, 8) _
       Or Val(Right(Cells(ActiveCell.Row, 7), 7)) = Cells(ActiveCell.Row, 8) _
       Or Val(Right(Cells(ActiveCell.Row, 7), 8)) = Cells(ActiveCell.Row, 8) _
       Or Val(Right(Cells(ActiveCell.Row, 7), 9)) = Cells(ActiveCell.Row, 8) _
       Or Val(Right(Cells(ActiveCell.Row, 7), 10)) = Cells(ActiveCell.Row, 8) _
       Or Val(Right(Cells(ActiveCell.Row, 7), 11)) = Cells(ActiveCell.Row, 8) Then
       Cells(ActiveCell.Row, 11) = Cells(ActiveCell.Row, 8)
    Else
    Cells(ActiveCell.Row, 11) = "vous recherchez - de 6 chiffres ou n'existe pas !"
    End If
End Sub

Je voudrais le raccourcir mais je ne sais pas faire !
Est-ce possible ?
Merci à vous 🙂
lionel,

 

Dernière édition: 11 Mars 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Mars 2020

• #8

re
bonjour le fil
@arthour973
sinon tu met ça dans un module

VB:

Function fonction_perso(cel As Range, cel2 As Range)
    If cel = "" Or cel2 = "" Then
        fonction_perso = ""
    Else
        If Val(Right(cel.Text, 6)) = Val(cel2.Text) Then
            fonction_perso = Val(cel2.Text)
        Else
            fonction_perso = "non!"
        End If
    End If
End Function

et dans ta cellule en "J" tu met
=fonction_perso($G2;$I2)
et tu étends la formule jusqu'ou tu veux
tu a la gestion des résultat négatifs et des vides dans la fonction
sans prolonger la formule avec des SI ET OU
TU AURA DONC
soit le right 6
soit "non!"
soit rien si g ou i ou les deux sont vides

 

Dernière édition: 10 Mars 2020

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Mars 2020

• #9

Chalut Patrick 🙂
Merci d'être là pour moi.
je vois ça et je te dis,
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2020

• #10

Bonjour Lionel, sylvanu, M12, patricktoulon,

Je ne vois vraiment pas pourquoi il faudrait du VBA puisque cette formule Excel va très bien :

Code:

=SI(ET(NBCAR(H2)>5;NBCAR(H2)<12;DROITE(G2;NBCAR(H2))=""&H2);H2;"n/a")

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Mars 2020

• #11

Bonjour Gérard 🙂
Merci pour cette formule.
Je vois ça tout à l'heure et je reviens.
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2020

• #12

Bonjour Gérard, sylvanu, M12, Patrick,

J'ai tout testé encore merci pour vos codes et formules 🙂
Ce qui me correspond le mieux est la formule : =SIERREUR(SI(CHERCHE(J4;G4);J4;FAUX);"")

Mais j'ai 2 soucis :
1 - J'ai besoin de chercher de G4 à H dernière cellule non vide et je n'arrive pas à modifier,
2 - de coder en VBA la formule modifiée.

Malgré mes essais, je n'y arrive pas 😡
Auriez-vous les solutions ?

Encore un grand merci à vous tous 🙂
Amicalement,
lionel,

 

Dernière édition: 11 Mars 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Mars 2020

• #13

Bonjour Lionel,

arthour973 à dit:

Ce qui me correspond le mieux est la formule : =SIERREUR(SI(CHERCHE(J4;G4);J4;FAUX);"")

Cliquez pour agrandir...

Cela ne correspond pas à ce que tu indiquais aux posts #1 ou #7, tu changes d'idée sans arrêt...

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2020

• #14

Bonjour Gérard 🙂
C'est vrai ... mais avec tous les tests et essais ainsi que les codes et formules, j'en suis arrivé à mieux apprécier mon besoin.
et SIERREUR(SI(CHERCHE(J4;G4);J4;FAUX);"") permet de trouver la valeur cherchée que si elle est à droite dans la ou dans les cellules dans lesquelles se fait la recherche.

Encore merci pour les réponses déjà reçues,
Lionel 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Mars 2020

• #15

arthour973 à dit:

SIERREUR(SI(CHERCHE(J4;G4);J4;FAUX);"") permet de trouver la valeur cherchée que si elle est à droite dans la ou dans les cellules dans lesquelles se fait la recherche.

Cliquez pour agrandir...

Où as-tu péché ça ??? Avec CHERCHE la valeur sera trouvée aussi si elle est à gauche ou au milieu !!!

Et pourquoi ne pas utiliser simplement =SI(ESTNUM(CHERCHE(J4;G4));J4;"")

 

Vote positif 0 Vote négatif