Microsoft 365 sierreur et recherche

Usine à gaz · 6 Mars 2020

Bonjour à toutes et à tous,

Je butte sur un code que je n'arrive pas à faire malgré tous mes essais
Ce que je voudrais faire :
si les 6 derniers chiffres de G2 = I2 alors copier I2 en J2
Pourriez-vous m'aider ?
Je "tourne" autour du bon code mais je n'y arrive pas.
J'en suis là :

VB:

Sub Macro1()
[a2].Select
    If Cells(ActiveCell.Row, 7).Value = "=IF(VALUE(RIGHT(Cells(ActiveCell.Row, 7),6)) = Cells(ActiveCell.Row, 9)" Then
    Cells(ActiveCell.Row, 10) = Cells(ActiveCell.Row, 9).Value
    End If
End Sub

Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,

job75 · 11 Mars 2020

Code:

=SI(SOMMEPROD((J4<>"")*(DROITE(G4:G1000;NBCAR(J4))=""&J4));J4;"")

Usine à gaz · 11 Mars 2020

Merci Gérard,
Je regarde de suite

Usine à gaz · 11 Mars 2020

Re
Oui ça marche bien sûr,
Est-il possible de :
1 - Modifier la formule pour rechercher de G4 à H dernière cellule non vide ?
2 - et de coder la formule en VBA ?
Ce serait super pour moi
lionel,

Usine à gaz · 11 Mars 2020

Re
=SI(OU(ESTNUM(CHERCHE(J4;G4));ESTNUM(CHERCHE(J4;H4)));J4;"") fonctionne super bien.
Mais je n'arrive pas à coder pour l'inclure dans mon code.
Je continue d'essayer lol,
lionel,

job75 · 11 Mars 2020

VB:

[K4].Resize(100) = "=IF(ISNUMBER(SEARCH(J4,G4))+ISNUMBER(SEARCH(J4,H4)),J4,"""")"

Usine à gaz · 11 Mars 2020

Re-Bonsoir,

LOL, je ne m'en sors pas
Je joins un fichier test ce sera mieux
la formule en L2 fonctionne mais si je veux chercher dans une plage de cellules voir en L4 ça ne marche plus.

"Avec CHERCHE la valeur sera trouvée aussi si elle est à gauche ou au milieu !!! "
Très Important : la valeur cherchée ne doit être trouvée que si elle représente la partie droite de la cellule

Je continue à chercher,
lionel,

job75 · 11 Mars 2020

arthour973 à dit:
Très Important : la valeur cherchée ne doit être trouvée que si elle représente la partie droite de la cellule

Alors ta formule avec CHERCHE ne convient pas ! Retour à zéro.

Usine à gaz · 11 Mars 2020

OUI mais avec =SIERREUR(SI(CHERCHE(J5;H5);J5;FAUX);"PB") ça fonctionne si je recherche dans une seule cellule mais ne fonctionne plus si je veux chercher dans une plage de cellules.
Je joins le fichier test.
lionel,

Usine à gaz · 11 Mars 2020

LOL me suis trompé. Ca ne marche pas non plus ... Bon sang

job75 · 11 Mars 2020

Pourtant pas bien compliqué =SI((J4<>"")*(DROITE(G4;NBCAR(J4))=J4);J4;"")

Usine à gaz · 11 Mars 2020

Merci Gérard d'être encore là .
Je regarde

Usine à gaz · 11 Mars 2020

LOL, ne fonctionne pas chez moi

je joins le fichier test (L4

job75 · 11 Mars 2020

OK, j'avais oublié de convertir J4 en texte =SI((J4<>"")*(DROITE(G4;NBCAR(J4))=""&J4);J4;"")

Usine à gaz · 11 Mars 2020

Merci Gérard
comme ça ... ça fonctionne super

Mais je voudrais rechercher si J4 est dans l'une des cellules d'une plage de cellules.
par exemple : =SI((J4<>"")*(DROITE(G4:G1000;NBCAR(J4))=""&J4);J4;"")
et la ça ne marche plus, ça me donne "#EPARS!"

Je ne vois pas comment modifier pour rechercher dans toute la plage.
lionel,

job75 · 11 Mars 2020

Code:

=SI(SOMMEPROD((J4<>"")*(DROITE(G4:G1000;NBCAR(J4))=""&J4));J4;"")

Usine à gaz · 11 Mars 2020

Bon sang, j'aurais jamais trouvé.
Merci Gérard pour m'avoir autant aidé
Bonne fin de journée à toi
lionel,

Microsoft 365 sierreur et recherche

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires