Microsoft 365 sierreur et recherche

[Usine à gaz]

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à :

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,

 

[Usine à gaz]

Merci Gérard,
Je regarde de suite

 

[Usine à gaz]

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]

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]

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

 

[Usine à gaz]

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]

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]

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]

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

 

[job75]

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

 

[Usine à gaz]

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

 

[Usine à gaz]

LOL, ne fonctionne pas chez moi

je joins le fichier test (L4

 

[job75]

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

 

[Usine à gaz]

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]

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

 

[Usine à gaz]

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