VBA fonction IF
Bonjour à toutes et tous,
Voilà je me lance sur les macros et j'ai besoin de votre aide.
Je voudrais (si cela est possible) écrire un code pour effectuer l'opération suivante :
Si la valeur de la cellule A2 (qui est du texte) de la feuil1 est égal à la valeur de la cellule A4 (également du texte) de la feuil2 et que la valeur de la cellule (encore du texte) B2 de la Feuil1est égal à la valeur (toujours du texte) de la cellule B4 de la Feuil2 alors copier le contenu (du texte comme vous pouvez vous en doutez) de la cellule B5 de la Feuil2 dans la cellule B3 de la Feuil1.
Si la condition n'est pas vraie, alors recommencer un test logique en partant du principe que la conditions 1(valeur Feuil1!A2) est toujours vraie mais que conditions 2 n'est plus la valeurs de Feuil2!A4 mais Feuil2!A5.
J'ai fait une formule mais je n'arrive plus à rentrer d'autre test logique :
= SI(ET(A2=Feuil2!A4;B2=Feuil2!B4);Feuil2!C4;SI(ET(A2=Feuil2!A4;B2=Feuil2!B5);Feuil2!C6; .... etc etc
J'espère avoir été explicite,
Merci pour votre aide
Ramouch
Bonjour,
Une macro à tester ...
Sub Test()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim L As Long
Set Ws1 = Worksheets("Feuil1")
Set Ws2 = Worksheets("Feuil2")
For L = 4 To Ws2.Range("A" & Rows.Count).End(xlUp).Row
If Ws1.Range("A2").Value = Ws2.Cells(L, 1).Value And _
Ws1.Range("B2").Value = Ws2.Cells(L, 2).Value Then
Ws1.Range("B3").Value = Ws2.Cells(L + 1, 2).Value
End If
Next L
Set Ws2 = Nothing: Set Ws1 = Nothing
End Sub
Cordialement.
Merci beaucoup gyrus,
votre aide m'a été précieuse puisqu'elle fonctionne.
Il ne me reste qu'a tenter de comprendre ce que le code signifie.
Merci beaucoup
Ramouch