recherchev ou macro ou autres ? :s

Re : recherchev ou macro ou autres ? :s

Bonjour San_bander, et bienvenue sur le forum

ton fichier en retour

à+
Philippe

Re : recherchev ou macro ou autres ? :s

Un grand merci Philippe.
Et est-ce qu'il est possible de faire pareil, avec un 3éme code ? Par exemple, je recherche 1 + 5 + 8 !

😉

Re : recherchev ou macro ou autres ? :s

Re,

voici

à+
Philippe

Re : recherchev ou macro ou autres ? :s

hiii, je vais encore t'embéter un petit peu ^^.
En ayant 3-4...codes, il n'est pas possible d'avoir la reponse dans UNE et mm seule cellule comme pour 2 codes (comme tu as fais en premier).

Encore merci Philippe.

^^

Re : recherchev ou macro ou autres ? :s

Re,

hiii, je vais encore t'embéter un petit peu ^^.

Cliquez pour agrandir...

ça ne m'embête pas du tout mais je manque de temps en ce moment et je ne saurai pas donner réponse avant demain midi

En ayant 3-4...codes, il n'est pas possible d'avoir la reponse dans UNE et mm seule cellule comme pour 2 codes (comme tu as fais en premier).

Cliquez pour agrandir...

En ayant 3-4...codes, les .......... laissant supposer que la prochaine demande se situera aux alentours de 33-44 ...... codes.
il sera alors plus facile de réaliser cela par macro
Dommage que la question n'ait pas été plus précise et plus complète dès le début 😡

à+
Philippe

Re : recherchev ou macro ou autres ? :s

^^" ! mais je te rassure, au maximum, il y aura 5 codes !

Excuse moi, c'est parce que je pensé dès le debut pouvoir me débrouiller avec juste la petite formule ms après je suis un peu vite dépassée.


merciiiii 😱

Re : recherchev ou macro ou autres ? :s

Re,

voici :
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

Re : recherchev ou macro ou autres ? :s

Mille merciiiiiiiiii ! c'est exactement se qu'il me faut !!

Peux tu m'envoyer la macro stp ? parce que je ne sais pas pourquoi, mais quand je fais afficher les macros (beh yen a pas dedans...:s) ! je dois pas être douée.

Encooore merciiiii

Re : recherchev ou macro ou autres ? :s

aaah j'ai trouvé :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo1(1 To 5)
Dim tablo2(1 To 5)
Dim cellule As Range
If Not Intersect(Target, Range("F3:J" & Range("F65535").End(xlUp).Row)) Is Nothing Then
ligne = Target.Row
For i = 6 To 10
For Each cellule In Range("A3:A" & Range("A65535").End(xlUp).Row)
If cellule = Cells(ligne, i) Then
For j = 1 To 5
If tablo1(j) = Cells(cellule.Row, 2) Then
GoTo etape1
End If
Next j
tablo1(i - 5) = Cells(cellule.Row, 2)
etape1:
For j = 1 To 5
If tablo2(j) = Cells(cellule.Row, 3) Then
GoTo etape2
End If
Next j
tablo2(i - 5) = Cells(cellule.Row, 3)
etape2:
End If
Next cellule
Next i
Application.ScreenUpdating = False
Cells(ligne, 11) = ""
Cells(ligne, 12) = ""
For i = 1 To 5
Cells(ligne, 11) = Cells(ligne, 11) & tablo1(i) & " "
Cells(ligne, 12) = Cells(ligne, 12) & tablo2(i) & " "
Next i
End If
Application.ScreenUpdating = True
End Sub



Merciii Philippe ! t'imagine mm pas Oh cmb tu viens de m'aider ^^