Microsoft 365 Recherche info à partir d'une cellule

Calvus

XLDnaute Barbatruc

• 13 Juillet 2019

• #2

Bonjour,

Comme ceci peut être.

VB:

Option Explicit

Sub Recherche()
Dim i As Integer
For i = 1 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    If Range("A1") Like Feuil1.Cells(i, 1) Then
    Cells(1, 1) = Feuil1.Cells(i, 1)
    Cells(2, 1) = Feuil1.Cells(i, 2)
    Cells(3, 1) = Feuil1.Cells(i, 3)
    End If
Next i
End Sub

A+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2019

• #3

supprimé...

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Juillet 2019

• #4

Salut Robert,

Content de te croiser !

Je t'attends toujours... mémoire d'oiseau va ! 😉

Ps : je sais que tu vas me demander de quoi je parle..mais je vais te laisser chercher un peu..

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2019

• #5

Re,

Arf ! Calvus... Faux et archi faux ! Les oiseaux ont bien plus de mémoire que moi... Désolé mais je ne vois absolument pas de quoi tu parles...

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Juillet 2019

• #6

Une vieille histoire qui remonte à loin loin loin, que je t'avais rappelée il y a déjà 2 ou 3 ans et que tu avais oubliée déjà !
Il était question que si tu passais une fois par ici, on se ferait un bœuf où je t'accompagnerais, toi chantant du Brassens..

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2019

• #7

Re,

Ha.... La dernière fois que je suis passé par Antibes j'ai perdu un œil !.... Et j'ai encore mes deux yeux... Ça doit être pour ça...

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Juillet 2019

• #8

Et tu te souviens de quoi je parle ou pas du tout ?

Et moi j'étais à Sète la semaine dernière..

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2019

• #9

Re,

Non bien sûr... Je ne me souviens pas du contexte mais tu as tout dit dans le post #6...

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Juillet 2019

• #10

Je chercherai et t'enverrai le lien en mp.

Bonne soirée 🙂

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2019

• #11

Cool, merci !

Bonne soirée à toi aussi.

 

Vote positif 0 Vote négatif