If? Index? Equiv? lequel utiliser?

[bomagicmusic]

Bonjour à tous,

Je cherche je cherche et rien ne correspond à mes attentes:
J'ai une liste de nom dans une colonne A avec une date dans la colonne B.
Je voudrais que si le nom=toto alors la date de la colonne B correspondante se copie dans la cellule (par exemple D2) d'une autre feuille. j'ai essayé avec if mais je ne peux pas entrer de nom ou alors index??? pourriez-vous m'aider?

Merci

 

[Tibo]

Re : If? Index? Equiv? lequel utiliser?

Bonjour,

Bon, on va essayer de traduire ce que tu nous as raconté...

=SI(NB.SI($A:$A;nom)=0;"";RECHERCHEV(nom;$A:$B;2;0))

Pour une réponse plus précise, merci de nous joindre un extrait de ton fichier (anonymisé).

@+

 

[Raja]

Re : If? Index? Equiv? lequel utiliser?

Bonsoir,

Si les données sont dans l'ordre que tu indiques, la formule RECHERCHEV suffit largement. Je reprends ton exemple pour indiquer une formule dans la cellule D2 de recherche à adapter.

=RECHERCHEV("Toto";Plage_de_la_colonne_A:B;2;FAUX)

PS : La cellule D2 est au format Date et FAUX pourra être remplacé par la valeur zéro.

édit : Salut Tibo

 

[Etienne2323]

Re : If? Index? Equiv? lequel utiliser?

Bonjour bomagicmusic,
si jamais une réponse en VB de ton problème pourrait te satisfaire, voici une piste de solution. Est-ce que quelque chose comme ceci pourrait te convenir ?

Sub test()

Dim DerniereLigne As Integer

DerniereLigne = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row

For i = 2 To DerniereLigne
    Sheets(1).Select
    If Cells(i, 1).Value = "bb" Then
        Cells(i, 2).Copy
        Sheets(2).Select
        With Cells(i, 4)
            .PasteSpecial xlPasteValues
            .NumberFormat = "m/d/yyyy"
        End With
    End If
Next i
       
Sheets("Feuil1").Cells(1, 1).Select
 
End Sub

Cordialement,

Étienne

 

[bomagicmusic]

Re : If? Index? Equiv? lequel utiliser?

Merci pour ces réponses rapides, je vais tout analyser et reviendrai sur le forum.

 

[bomagicmusic]

Re : If? Index? Equiv? lequel utiliser?

Bonjour,

j'ai étudié les propositions et je m'oriente vers du VBA car étant donné que le numéro de ligne peux changer je ne vois pas comment résoudre ça avec une fonction
Cependant dans le code d'étienne 2323 la ligne :Sheets("Feuil1").Cells(1, 1).Select ne marche pas.
Quelqu'un aurait-il une idée?
MERCI


Sub test()

Dim DerniereLigne As Integer

DerniereLigne = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row

For i = 2 To DerniereLigne
Sheets(1).Select
If Cells(i, 1).Value = "bb" Then
Cells(i, 2).Copy
Sheets(2).Select
With Cells(i, 4)
.PasteSpecial xlPasteValues
.NumberFormat = "m/d/yyyy"
End With
End If
Next i

Sheets("Feuil1").Cells(1, 1).Select

End Sub